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

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)).

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