Федеральное агентство по образованию
Томский государственный университет систем управления
и радиоэлектроники (ТУСУР)
Школьный университет
УТВЕРЖДАЮ
Директор ОЦ «Школьный университет»
_____________И. В. Дмитриев
«____»______________2006 г.
Учебный курс: Программирование и основы алгоритмизации
На языке Pascal
Разделы: операторы Циклов. Графика.
Контрольная работа № 2
Типы данных, операторы циклов, графика.
Составитель: Тимошевская Н. Е.
преподаватель
ОЦ «Школьный университет»
Томск 2006
Пояснительная записка
Билеты для проведения контрольной работы составлены в соответствии с учебной программой по теме «Типы данных, операторы циклов, графика».
Цель контрольной работы – закрепить теоретические знания и практические навыки по темам «Типы данных», «Оператор цикла с условием», «Оператор цикла с параметром», «Построение графических изображений средствами языка Pascal».
Контрольная работа содержит 10 билетов, каждый из которых включает 12 заданий, два из которых являются практическими заданиями. Практические задания 11 и 12 необходимо выполнить за компьютером.
Варианты правильных ответов находятся в файле «КР2 Ответы.doc», расположенном в этом же каталоге.
Контрольная работа по теме «Типы данных, операторы циклов, графика» Билет 1
Напишите все известное вам о целом типе данных.
Найти неправильную запись вещественного числа в языке Паскаль:
1) 7.0 2) .65785 3) 9.8E3
Напишите, что и в какой последовательности будет выведено на экран в результате выполнения следующей программы. (Нарисовать в точности, как это будет выглядеть на экране):
Var a:integer;
b:real;
begin
a:=2;
writeln(a);
b:=a*a+3*a;
write(’при а=’,a, ‘Ответ ‘,b);
write(‘ End’);
end.
Напишите фрагмент программы вычисляющей значение переменной y по следующим формулам:
п
ри
x
положительных при х
отрицательных
Найдите все ошибки в программе и исправьте их:
Var x,y,i:real;
Begin
Read(‘введите’,x);
Y:=10;
y:=y*x;
Writeln(y равен , y);
End.
Чему будет равно значение переменной b при а=16 после выполнения следующего участка программы:
if (a div 3) mod 2=0 then b:=sqrt(a*4)+5
else b:=sqr(a-10)-6;
Что будет выведено на экран в результате выполнения следующей программы. (Известно, что код символа с равен 99):
Var x:char;
Begin
X:=’c’;
Writeln(char(ord(x)),’ ‘,char(99),’ ‘,succ(x));
End.
Какие значения примут переменные с и d после выполнения следующего фрагмента программы:
c:=0; d:=10; while d>=0 do
begin
c:=c+1;
d:=d-3
end;
Какое значение примет переменная А после выполнения следующего фрагмента программы:
А:=0; x:=1; repeat А:=А+x*x; x:=х+1 until x>=4;
Какое значение примет переменная а после выполнения следующего фрагмента программы:
А:=0; b:=true; while b do
begin А:=А+5; if A>20 then b:=false;
end;
Практическое задание 1. На плоскости заданы три точки. Вычислить площадь треугольника, вершинами которого являются эти точки. Проверить, что эти точки лежат не на одной прямой (если точки лежат на одной прямой, то площадь треугольника равна 0).
Практическое задание 2. Напишите программу, рисующую в центре экрана разными цветами окружности с радиусами от 10 до 200 пикселей с шагом в 10 пикселей.