Билет 2

1. Напишите все известное вам о булевском типе данных.

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

Var a:integer;

b:real;

begin

a:=2; b:=3;

writeln(a);

write(a*b:5:2);

writeln(‘ End’);

end.

3. Напишите фрагмент программы вычисляющей значение переменной y по следующим формулам:

при четных x при нечетных х

4. Найдите все ошибки в программе и исправьте их:

Var x,y:char;

I:integer;

Begin

Writeln(‘введите’x);

Y:=20;

If x:= 5 then y:=y*x;

Writeln(‘y равен, y’);

End.

5. Какое значение будет иметь переменная z после выполнения операторов:

z:=0; if x>0 then if y>0 then z:=1 else z:=2; если x=1 и y=-1?

6. Вычислите значение выражения chr(ord(‘5’)+1)?

1) 54 2) ‘54’ 3) ‘6’ d) 6

7. Что будет выведено на экран в результате выполнения следующей программы. (Известно, что код символа с равен 99):

Var c:char;

Begin

c:=’A’;

writeln(‘c’);

writeln(c);

Writeln(char(ord(‘c’)),’ ‘,succ(c));

End.

8. Какие значения примут переменные с и d после выполнения следующего фрагмента программы:

c:=1; d:=10;
while d<100 do

begin

c:=c*2;

d:=d+10;

end;

9. Какое значение примет переменная А после выполнения следующего фрагмента программы:

А:=0; x:=1;
repeat
А:=А+x;
x:=х*2
until x>=30;

10. Какое значение примет переменная А после выполнения следующего фрагмента программы:

А:=0; b:=false;
while not b do

begin
А:=А+5;
if A>20 then b:=true;

end;

11. Практическое задание 1. Известны размеры (ширина, длина, высота) двух ящиков. Определить, объем какого ящика больше. Размеры меньшего ящика увеличить в два раза и снова сравнить объемы двух ящиков. Вывести на экран больший объем.

12. Практическое задание 2. Напишите программу, рисующую в центре экрана разными цветами квадраты со сторонами от 20 до 400 пикселей с шагом в 20 пикселей.

Дата добавления: 2015-08-09