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

c:=100;  d:=0; while с mod 2 =0 do

begin

c:=c div 2;

d:=d+1;

end;

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

А:=1; b:=true;

repeat А:=А+1;

b:=b and (A>10) until b;

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

for i:=20 downto 5 do А:=4*i;

11. Практическое задание 1. Заданы координаты четырех точек, являющихся вершинами четырехугольника. Вычислить периметр этого четырехугольника и если он больше 100, то вывести на экран знак «>», в противном случае знак «<».

12. Практическое задание 1. Напишите программу, рисующую разными цветами 100 шариков радиуса 10, причем их расположение на экране должно выбираться случайным образом.

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

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

2. Если y - вещественная переменная, а n – целая, то какие из следующих операторов присваивания правильны?

1) y:=n+1; 2) n:=y-1; 3) n:=4.0; 4) y:=trunc(y);

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

Var s:integer;

p:real;

begin

p:=5.5;

write(‘p=’,p:5:3);

s:=10;

p:=p*s;

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

writeln(‘конец программы ’);

end.

4. Укажите фрагмент программы, предназначенный для вычисления значения y. При х положительных y= -6; при х отрицательных y=x2-6; при х=0 y=0:

1)If x>0 then y:=sqrt(x)-6

Else If x<0 then y:=sqr(x)-6

else y:=0;

2. If x>0 then y:=sqr(x)-6

Else If x<0 then y:=sqrt(x)-6

else y:=0;

2. If x>0 then y:=sqrt(x)-6;

If x<0 then y:=sqr(x)-6

else y:=0;

2. y:=0;

If x>0 then y:=sqrt(x-6);

If x<0 then y:=sqr(x-6);

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

Var i,j,k:integer;

Begin

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

i:=20;

j:=k/i;

Writeln(j = , j);

End.

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

Var c:char;

Begin

c:=’ф’;

writeln(c);

writeln(‘c’);

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

End.

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

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

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

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

c:=1;  d:=0; while d<50 do

begin

d:=d+sqr(c);

c:=c+1;

end;

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

А:=1; b:=false;

repeat А:=А+1;

b:=b or (A>10) until b;

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

A:=0;

for i:=10 downto 7 do А:=A+i;

11. Практическое задание 1. Заданы три вещественных числа: 1) определить, что больше: сумма или произведение этих чисел, 2) вывести на экран отдельно целую и дробную часть суммы.

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