Слайд 16
program ugadaika; uses crt; var x, y: integer; label a1;
begin clrscr; randomize; y:=random(11); a1: readln (x); if x=y then
writeln ('ugadano') else begin if x goto a1; end; end.
Программа «Угадай-ка»
Слайд 17
program ugadaika; uses crt; var x, y, k: integer; label a1; begin clrscr; randomize; k:=0; y:=random(11); a1:
readln (x); k:=k+1; if x=y then
writeln ('ugadano s ', k, ' popytki') else begin if x goto a1; end; end.
В программу можно ввести подсчет количества попыток угадывания.
Слайд 18
Задачи: Определить, является ли целое число N четным двузначным
числом
Определить, является ли треугольник со сторонами a, b, c
равнобедренным
Заданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича. Определить, пройдет ли кирпич через отверстие.
Слайд 19
4. Определить правильность даты, введённой с клавиатуры (число
– от 1 до 31, месяц – от 1
до 12). Если введены некорректные данные, то сообщить об этом.
5. Услуги телефонной сети оплачиваются по правилу: за разговоры до A мин в месяц оплачиваются B р., а разговоры сверх установленной нормы оплачиваются из расчета C р. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.
Слайд 20
6. Решить квадратное уравнение вида
ax2+bx+c=0