Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
LYeKTsIYa_14_2.doc
Скачиваний:
20
Добавлен:
20.04.2019
Размер:
158.72 Кб
Скачать

Контрольные задания

  1. Какая структура программы правильна:

а) program MyProgram; б) program MyFirst;

begin begin

writeln(‘Привет’) x:=y+100

end. end.

  1. Какой из перечисленных разделов обязателен в программе:

1) раздел var; 2) раздел const; 3) раздел type; 4) раздел begin .. end; 5) раздел label.

  1. Для чего используется слово uses?

а) такого слова нет в языке Pascal;

б) это какой-то пользовательский идентификатор;

в) с его помощью подключают стандартные библиотеки;

г) это стандартная константа, равная 3.14;

д) это логическая операция.

  1. В разделе процедур и функций описываются только стандартные процедуры?

а) да, только стандартные; б) нет, только пользовательские;

в) и стандартные, и пользовательские; г) такого раздела вообще быть не может.

  1. Найдите ошибки в следующих программах:

а) program rp1; б) program rp2;

begin begin

summa:=6+8 var x:integer;

end. x:=5*3;

write(x)

end.

в) program rp3; г) program rp4;

begin var X,Y,Сумма:integer;

writeln(‘Ввести значение X’); begin

writeln(‘X в квадрате =’, X*X) writeln(‘Ввести X’);

end. readln(X);

var X:integer; writeln(‘Ввести Y’);

readln(Y);

Сумма:=X+Y;

writeln( Сумма)

end.

д) program rp5; е) program rp6;

const d=5; const k=true;

begin var x:real;

d:=sqr(d); begin

writeln(‘d**2=’, d) read(x);

end. writeln(ord(x)=k)

end.

ж) program rp7; з) program rp8;

var a,b,c:integer; var x:real;

begin begin

read(a,b); read(x);

writeln((a+b+c)/2) y:=sqrt(x)+1;

end. writeln(y)

end.

и) program rp9; к) program rp10;

const b=2.5; const =3.14159;

var a,b,c:integer; var a,b:integer;

begin begin

read(a,c); read(a);

writeln(a*c>b) d:=odd( *0) and b>0;

end. writeln(d)

end.

  1. Какие из приведенных ниже операторов присваивания являются правильными:

а) X:=Y+SIN(SIN(Z)); б) A:=(X<Y) OR B AND (I<>K);

в) X:=I+J-B; г) I:=I+K/J,

если I,J,K: INTEGER; X,Y,Z: REAL; A,B: BOOLEAN?

  1. Что получится в результате выполнения операторов:

а) WRITE(‘A’:3,2:1); WRITELN(5*3.2);

б) WRITELN(5<6,5<=6:8); WRITELN(‘КОНЕЦ’);

в) WRITELN(5*3.2:1,’ РЕЗУЛЬТАТ’)?

  1. Какими будут значения переменных m и n после выполнения последовательностей операторов:

а) m:=25; б) m:=5;

n:=m+1; n:=6;

m:=m-25 m:=m*m;

n:=n*m

  1. Какими будут значения переменных x, y, z после выполнения операторов:

x:= 8+6 mod 4*2;

y:=x div 5*5;

z:=x*5 div 5

  1. Какие значения будут выведены в результате выполнения последовательности операторов?

x:=(sin(sqr(1)-1)+2*abs(-2)/cos(2-2);

y:=x*(sqr(2));

write(x,y)

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]