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

c:=0;  d:=100; while (с<10) and (d>10) do

begin

c:=c+3;

d:=d div 2;

end;

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

А:=1; b:= 3;

repeat

b:=b*(-2);

if b>0 then A:=A+b else A:=A-b; until (b>10);

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

A:=0; x:=0;

for i:=1 to 5 do

begin

x:=x+0.1;

А:=A*x;

end;

11. Практическое задание 1. Ввести длину пути и время движения двух автобусов, за которое они проделывают этот путь. Определить: скорость какого автобуса меньше. Подсчитать за какое время он проедет такое же расстояние, если увеличить его скорость на 10 единиц.

12. Практическое задание 2. Написать программу, рисующую 1000 прямых разноцветных линий, исходящих из центра экрана (показано возможное изображение), причем направление и длина линий выбираются произвольным образом (используйте процедуру delay() библиотеки crt, чтобы наблюдать построение линий в динамике).

Контрольная работа по теме «Типы данных, операторы циклов, графика» Билет 10

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

2. Какой из вариантов надо использовать, чтобы на экран было выведено следующее:

а=2

b=3 c=5

END

1) a:=2; b:=3;

writeln(‘a=2’);

writeln(‘b=3’);

writeln(‘c=5’);

writeln(END);

2) a:=2; b:=3;

writeln(‘a=’,a);

writeln(‘b=’,b,’ c=’,a+b);

writeln(‘END’);

3. a:=2; b:=3;

writeln(‘a=2’);

writeln(‘b=3’);

writeln(‘c=a+b’);

writeln(‘END’);

3. a:=2; b:=3;

write(‘a=’,a);

write(‘b=’,b,’ c=’,a+b);

write(‘END’);

3. Найти значение выражения (A Div B)+(B Mod C) при заданных значениях А=35, В=16, С=5.

4. Определить значение выражения при a=false, b=true:

(not a or b) or( not c) and d

5. Какие из предложенных условных выражений будут истинными, если точка A с координатами (x,y) попадает внутрь указанной области на координатной плоскости:

1. ( x<-5) and (y>10) or (x>-5) and (y>-10);

2. (x<-5) and (x>5) or (y>10) and (y<5);

3. (x>-5) and (x<5) and (y<-10);

4. (x<-5) or (x>5) and (y>10) or (y<5).

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

x:=8;

case x*2 of

4: writeln(‘4’);

5,6: writeln(‘56’);

7..12: writeln(‘12’);

else: writeln(‘not’);

end;

7. Какой из операторов вычислит третью с конца цифру числа n?

1) (n div 1000) mod 100; 2) (n mod 1000) div 100; 3) (n mod 100) div 1000.

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

c:=25;  d:=50; while c*d>0 do

begin

c:=c-5;

d:=d div 2;

end;

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

А:=1; b:= 3;

repeat

b:=b*2;

if b<10 then A:=A*b else A:=A-b; until (A<0);