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

c:=1;  d:=2; while с+d<10 do

begin

c:=c+1;

d:=d+1;

end;

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

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

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

А:=0;   b:=false; while (A<15) and not b do

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

end;

11. Практическое задание 1. Из города А одновременно выехали две машины, первая в город В, вторая в город С. Известны расстояния между городами А и В, и А и С, и скорости машин. 1) Определить, какая из машин быстрее доедет до своего города. 2) Определить, какая из машин быстрее доедет до своего города, если скорость машины, имеющей меньшую скорость, увеличить в два раза.

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

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

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

2. Продолжите определение:

Идентификатор – это…

3. Чему равно выражение (a or b and not a) при a=true и b=false?

1) true 2) false

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

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

5. Указать порядок выполнения операций при вычислении выражения:

a and b or not c and d

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

Var x,y:char;

I:integer;

Begin

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

Read('x');

Y:=0;

If x= 5 then y=10; else y=100;

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

End.

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

при x кратных 3

п ри х кратных 5

у=0 в остальных случаях.

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

c:=100;  d:=0; while с-d>0 do

begin

c:=c-10;

d:=d+10;

end;

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

А:=2;  

repeat А:=А*A; until A>=50;

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

for i:=1 to 10 do А:=3*i;

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

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

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

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

2. Найти неправильную запись вещественного числа в языке Паскаль:

1) 58.098 2) -5.65785 3) 19.8E3

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

Var s:integer;

p:real;

begin

s:=5;

writeln(s);

p:=s/2+5;

write(’при s=’,s, ‘результат ‘,p:5:3);

write(‘ конец’);

end.

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

п ри v положительных

при v неположительных

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

Var i,j,k:integer;

Begin

Read(‘введитеk’);

i:=20;

j:=k/i;

Writeln(j = , j);

End.

6. Чему будет равно значение переменной b при а=10 после выполнения следующего участка программы:

if (a div 3) mod 2=0 then b:=sqrt(a*4)+5

else b:=sqr(a-5)-6;

7. Выберите правильные ответы. Первым символом в идентификаторе может быть:

1. буква

2. знак пробела

3. знак подчеркивания

4. цифра

5. точка