по основным операторам языка Pascal и ветвлению

1. Определить, какие операторы вывода записаны с ошибками (синтаксическими или смысловыми), и ответить на вопрос, в чем конкретно заключается ошибка или записать оператор правильно:

a) Write (“Введите три числа”);

b) Writeln (‘s=’, ‘p=’,’r=’);

c) Writeln (‘Cумма=’, S,’ Произведение=’, P, ‘ Разность=’ R);

d) Wrtln (X,’ ‘Y,’ ‘Z);

2. Записать следующие числа в обычном виде (без порядка):

3.45690Е+04 1.09876Е+00 6.1407Е-03 5.1198654Е+02 7.9845602Е-02

3. Определить результат последовательного выполнения операций (должны получиться целые числа):

a:=564 div 11 mod 7 * 5; b:= a* 12 mod 10 div 3; c:= a div b * 3;

a:= 381 mod 14 * 10 div 7; b:= a div 5 * 12 mod 4; c:= a mod b * 7;

4. Найти среди перечисленных операторов If правильно записанные операторы полного ветвления:

а) If (x<=0) Then begin y:= x +10; z:= y – x; end Else

begin y:= x – 5; z:= (y + x)/2;

b) If (b + c = a) Or (a + c = b) Or (c + a = b) Then (‘Треугольник не существует’) Else If (b = c) Or (c = a) Or (b = a) Then (‘Треугольник равнобедренный’);

Else If (a = b) And (b = c) Then (‘Треугольник равносторонний’) Else (‘Треугольник, возможно, существует’);

с) If (x + y = z) Then Writeln (Совпадает’) Writeln (‘Не совпадает’);

d) If (a*a + b*b = c*c) Or (b*b + c*c = a*a) Or (c*c + a*a = b*b) Then

Writeln (‘Треугольник - прямоугольный’);

е) If x<0 Then begin k:= k +1; p:=p*x end Else S:= S + x;

5. Выберите из перечисленных ниже операторы неполного ветвления, записанные с ошибками, и перепишите их в правильном варианте, объяснив, что было не так:

а) If c mod d = 0 Then Writeln (‘d – делитель c’) Else

Writeln (‘d не является делителем c’);

b) If (a <= b) And (b <= c) Then Begin a:= a * a; b:= b * b; c:= c *c; End;

c) If d>=0 Then Begin x1= (-b + sqrt (d))/(2*a);

x2= (-b – sqrt (d))/ (2*a);

Writeln (‘x1=’, x1, ‘ x2=’, x2) End;

d) If (a:=0) Or (b:=0) Or (c:=0) Then x=0;

e) If (a<b<c) Then Writeln (‘c – наибольшее’);

6. Что выведется на экран монитора после работы алгоритма, записанного в виде блок-схемы:

Нет Да

Определить результат при Х = 735, 386 и 246.

Ответы: 15, S – нечетное число; 17, S – нечетное число; 12, S – четное число.

1. Что выведется на экран монитора после работы следующей программы:

Program primer;

Var a, b, c, x, y, z: Real;

Begin

Writeln (‘Введите три числа’);

Readln (a, b, c);

X:= a*a – b + c;

If x <=-5 Then y:= x*x -12 Else

If x <=0 Then y:= x Else y:= SQRT (x);

z:= x + y;

Writeln (x,’ ‘, y, ‘ ‘, z);

Readln; End.

Определить результат работы программы при следующих значениях исходных данных:

a) а = -1, b = 7, c = 1

b) а = 2, b = 10, c = -1

c) а = 3, b = 12, c = 2

d) а = -3, b = 12, c = 3

e) а = 5, b = 10, c = -6