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

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

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

Var a:integer;

b:real;

begin

a:=2; b:=30;

writeln(a);

write(‘ответ ’,a+b:5:2);

writeln(‘ a+b’);

end.

3. Какие из выражений относятся к вещественному типу?

1) 1+0.0; 2) 20 div 3 ; 3) sqr(5.0);

4) sqr(4); 5) 5.2-3.2.

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

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

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

1) ‘32’ ; 2) ‘5’ ; 3) 3; 4) 5.

6. С помощью какого условного выражения можно определить попадает ли точка с координатами (x,y) внутрь прямоугольника с координатами левого верхнего угла (2,10), правого нижнего угла (8, 3):

1. If (x>2) or (x<8) or (y<10) or (y>3) then write(‘попадает’);

2. If (x>2) and (x<8) or (y<10) and (y>3) then write(‘попадает’);

3. If (x>2) or (x<8) and (y<10) or (y>3) then write(‘попадает’);

4. If (x>2) and (x<8) and (y<10) and (y>3) then write(‘попадает’).

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

Var d:char;

Begin

d:=’5’;

writeln(d);

writeln(‘d’);

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

End.

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

c:=1;  d:=1; while с<=5 do

begin

d:=d*c;

c:=c+1;

end;

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

А:=1; b:= 3;

repeat А:=А+b;

b:=b*(-2); until (A>5);

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

A:=1;

for i:=3 to 5 do А:=A*i;

11. Практическое задание 1. Ввести курсы доллара по трем различным банкам по отношению к рублю (пример 1 доллар 30 рублей, 32,5р., 34,3 р.). Определить, сколько долларов можно приобрести по наиболее выгодному курсу на сумму 10000 рублей.

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

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

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

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

var x:real;

begin

x:=8+8/4;

write(‘среднее=’,x:4:2);

end.

3. Какие из выражений относятся к вещественному типу?

1) 1.0+10; 2) 20 mod 6 ; 3) sqrt(16);

4) 20/5; 5) sqr(4).

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

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

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

1) ‘23’ 2) ‘5’ 3) ‘3’ 4) 5

6. С помощью какого условного выражения можно определить, что точка с координатами (x,y) не попадает внутрь прямоугольника с координатами левого верхнего угла (2,10), правого нижнего угла (8, 3):

1) If (x<=2) or (x>=8) or (y>=10) or (y<=3) then write(‘не попадает’);

2) If ((x<=2) and (x>=8)) or ((y>=10) and (y<=3)) then write(‘не попадает’);

3) If ((x<=2) or (x>=8)) and ((y>=10) or (y<=3)) then write(‘не попадает’);

4) If (x<=2) and (x>=8) and (y>=10) and (y<=3) then write(‘не попадает’).

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

Var e:char;

Begin

e:=’T’;

writeln(e);

writeln(‘e’);

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

End.