| 12+ Свидетельство СМИ ЭЛ № ФС 77 - 70917 Лицензия на образовательную деятельность №0001058 |
Пользовательское соглашение Контактная и правовая информация |
 | Поспелова Галина Васильевна2845 Учитель информатики высшей категории Россия, Тульская обл., Новомосковск Материал размещён в группе «Урок информатики и ИКТ» |
Контрольная работа "Циклы в Паскале"
Контрольная работа «Программирование циклов»
Вариант 1
Задание 1. Составить алгоритм и программу вывода на экран кубов всех целых чисел от – 5 до 12.
Задание 2. Составить алгоритм и программу вывода на экран таблицы значений Y: y=x2+1 для всех значений x от 0 до 2 с интервалом 0,25.
Задание 3. Вычислить и вывести значения периметров 30 прямоугольников при различных значениях их сторон (А>0 и В>0), вводимых с клавиатуры.
Вариант 2
Задание 1. Составить алгоритм и программу вывода на экран удвоенных значений целых чисел от 5 до 15.
Задание 2. Составить алгоритм и программу вывода на экран таблицы значений Y: y=sin3x для всех значений x от 1 до 2 с интервалом 0,3.
Задание 3. Вычислить и вывести значения площадей 40 квадратов при различных значениях их сторон (А>0), вводимых с клавиатуры.
Вариант 3
Задание 1. Составить алгоритм и программу вывода на экран квадраты всех целых чисел от 7 до 20.
Задание 2. Составить алгоритм и программу вывода на экран таблицы значений Y: y=2sinx для всех значений x от 0,1 до 0,6 с интервалом 0,1.
Задание 3. Вычислить и вывести значения периметров 25 треугольников при различных значениях их сторон (А>0, B>0, C>0), вводимых с клавиатуры.
Решения:
Задания 1:
program n_1;
uses crt;
var x,y:integer;
begin
clrscr;
writeln('Кубы чисел от -5 до 12');
for x:=-5 to 12 do
begin
y:=x*x*x;
writeln ('y(',x,')=',y);
end;
end.
Задание 2:
program n_2; uses crt; var x,y:real; begin clrscr; writeln('Таблица значений Y: y=x*x+1'); x:=0; while x<=2 do begin y:=x*x+1; writeln ('y(',x,')=',y:3:2); x:=x+0.25; end; end. | program n_2_1; uses crt; var x,y:real; begin clrscr; writeln('Таблица значений Y: y=x*x+1'); x:=0; repeat y:=x*x+1; writeln ('y(',x,')=',y:3:2); x:=x+0.25; until x>2; end. |
Задание 3:
program n_3;
uses crt;
var i, a,b,p:integer;
begin
clrscr;
writeln ('Определение периметров');
for i:=1 to 30 do
begin
writeln ('Введите стороны ',i,' прямоугольника');
readln (a,b);
if (a<=0) or (b<=0) then writeln ('Ошибка ввода') else
begin
p:=2*(a+b);
writeln ('Периметр со сторонами(',a,',',b,')=',p);
end;
end;
end.
