Чайник - модуль 2
Содержание материала
Модуль 2. Алгоритмы с проверкой условия (ветвление)
Что делает эта программа?
program m;
var a, b, m: integer;
begin
writeln('Введите два целых числа');
read ( a, b );
if a > b then begin
m:=a;
end
else begin
m:=b;
end;
writeln ( m);
end.
Прочитать стр. 14-17 Задачи:
Z2.1 Определить является ли введенное с клавиатуры число четным (вспомнить функцию mod).
Z2.2 Одна тетенька произносит К слов в минуту, а другая - С слов. Кто и на сколько больше скажет слов за 3 часа, если они разговаривают одновременно и непрерывно, не слушая друг друга?
Z2.3 Найти наибольшее из трех введенных с клавиатуры чисел
В программе использовать только два IF и дополнительную переменную max
(Алгоритм: сравниваются два первых числа, после определения максимального из них, запоминаем максимальное в дополнительной переменной max, сравнивается max и третье число и определяется максимальное значение. Значение максимального и есть искомый максимум). Посмотрите решение
Z2.4 Программа-шутка. Написать программу, в результате выполнения которой происходит такой диалог:
Не волнуйтесь, Ваше имя?
Хорошо, Имя! Можно, ли делить на ноль?
Если ответ ДА, то сообщение - Имя, Вам необходимо повторить математику!
Если ответ НЕТ, то сообщение - Имя, молодец!
Z2.5 Задать 3 числа. Найти среди них такое, которое меньше наибольшего, но больше наименьшего
Сложные условия.
Во многих задачах при решении требуется проверка выполнения сразу нескольких условий. При проверке их записывают в скобках и связывают союзами Not, And и Or.Например: (a < b) and (b < c); (a < c) or (b < c) and (b < a);Порядок выполнения : выражения в скобках - Not - and - or.
Задача. Ввести с клавиатуры 2 натуральных числа: d - день и m - месяц. определить, нет ли ошибки при вводе.
Решение.
Program Data;
Const dd=30; {максимальное количество дней}
mm=12; {максимальное количество месяцев}
Var d, m: integer;
begin
Write ('Введи день, месяц ');
Readln (d, m);
if(d<=dd) and (m<=mm) then {должны быть выполнены оба условия}
Writeln ('Дата введена верно ')
else Writeln ('Дата введена неверно ');
end.
Z2.6 Ввести возраст человека (от 1 до 100 лет) и вывести его вместе с последующим словом «год», «года» или «лет».
Z2.7 Ввести с клавиатуры 3 натуральных числа: часы, минуты и секунды Определить, нет ли ошибки