Дидактический материал по информатике «Программы на языке Паскаль» (9-11 класс)
16. Имеется садовый участок, имеющий форму прямоугольника со сторонами А метров и В метров. Составьте программу, которая определит сколько досок надо купить, чтобы поставить сплошной забор. Ширина одной доски 10 см.
17. В магазине продается костюмная ткань. Ее цена В руб. за квадратный метр. Составьте алгоритм и программу, которая подсчитает и выведет на экран стоимость куска этой ткани длиной Х метров и шириной 80 см.
2. Разветвляющиеся программы
1. Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным.
Write (‘Введите целое число: ‘);
if n mod 2=0 then writeln(‘Введенное число является четным!’)
else writeln(‘Введенное число является не четным!’);
2. Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число делится без остатка на 3.
write(‘Введите целое число: ‘);
if n mod 3=0 then writeln(‘Введенное число делится на 3 без остатка!’)
else writeln(‘Введенное число делится на 3 с остатком!’);
3. Вычислить значение функции y=
if x3 then y= sqr(x)+5
4. Напишите программу-модель анализа пожарного датчика в помещении, которая выводит сообщение "Пожароопасная ситуация", если температура (в нашей модели она будет вводиться с клавиатуры) в комнате превысила 60°C.
if t60 then writeln(‘Пожароопасная ситуация’)
else writeln(‘Температура не пожароопасная’);
5. Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат.
write(‘Введите координату x: ‘);
write(‘Введите координату y: ‘);
write(‘Введите длину радиуса r: ‘);
if (sqr(x)+sqr(y))= sqr (r) then writeln (‘Точка лежит на окружности!’)
else writeln (‘Точка не лежит на окружности!’);
6. Составьте программу, определяющую, пройдет ли график функции y=5x 2 -7x+2 через заданную точку с координатами (a,b).
write(‘Введите координату a: ‘);
write(‘Введите координату b: ‘);
if (5*sqr(a)+7* a+2)=b then
writeln(‘График функции проходит через данную точку!’)
else writeln(‘График функции не проходит через данную точку!’);
7. Напишите программу, которая анализирует человека по возрасту и относит к одной из четырех групп: дошкольник, ученик, работник, пенсионер. Возраст вводится с клавиатуры.
write(‘Введите возраст человека: ‘);
write(‘Этот человек относится к группе ‘);
case vozrast of
8. Верно ли, что данное натуральное число оканчивается на нечетную цифру.
if a mod 2=1 then
9. Написать программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (0;5).
write(‘Введите число a: ‘);
else writeln(‘не принадлежит’);
10. Определить, является ли треугольник прямоугольным, если известны величины двух его углов.
write(‘Введите величины двух углов треугольника ‘);
if (a=90) or (b=90) or (180-(а+b))=90 then
else writeln(‘Треугольник не является прямоугольным’);
11. По введенным величинам углов определить, является ли треугольник прямоугольным.
write(‘Введите величины углов треугольника ‘);
if (а =90) or (b=90) or (c=90) then
else writeln(‘Треугольник не является прямоугольным’);
12. Вывести на экран номер четверти, которой принадлежит точка с координатами (х;у), при условии, что х 
0.