Разработка контрольной работы по языку программирования ПАСКАЛЬ

Контрольная работа по теме

«Язык программирования Паскаль».

Вариант 1.

1. Даны а, в,с. Вычислить z и k, если

[pic] [pic] , [pic]

2. Чему будет равно значение переменной х после выполне­ния последовательностей операторов?

а) a: = 1; б) a: = 2;

b: = 3 * a x: = a * a ;

x: = (a + b) / a * b – a; x: = x * x ;

x: = x * a .

3. Написать программу по заданной блок-схеме.

[pic]

Значение К не определено

4. Построить блок-схему по заданной программе.

Program Urok;

Var

К, Р : Integer;

Begin

Write(‘Введите целые числа К и Р ^f);

ReadLn (К,Р);

If Р = 0

Then

begin

F := 0;

WriteLn('Значение P равно 0^f)

end

Else

begin

F := К * P;

If К / P > 1

Then WriteLn (^fK больше Р¹)

Else WriteLn (^fP больше К¹)

end

WriteLn (^fF=^f, F) ;

End.

5. Даны значения действительных величин a, b, c. Удвойте эти значения,

если a>=b>=c и замените их абсолютными значениями, если это не так.

Дополнительное задание:

Какое значение будет иметь переменная d после выполне­ния операторов при а) а = 3, b= 1, d = 0; б) а = 1, b = 3, d =0?

1. If a > b Then d := a Else d := b; d := d * 10;

2. If a > b Then d := b; d := d * 10;

3. If a > b Then Else begin d := b; d := d + a end; d := d*10;

4) If a > 2 Then d := 2 Else If b > 2 Then d := 1; d := d* 10.