Сегодня повторяем (а для кого то изучаем) ветвления на языке Паскаль.
Урок № 1: Ветвления
Уровень A. Ввести три целых числа, найти максимальное из них.
Пример:
Введите три целых числа:1 5 4 Максимальное число 5 |
Уровень B. Ввести пять целых чисел, найти максимальное из них.
Пример:
Пример:
Введите пять целых чисел: 1 5 4 3 2 Максимальное число 5 |
Уровень C. Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше.
Пример:
Пример:
Возраст Антона: 15 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Борис старше всех. |
Пример:
Возраст Антона: 17 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Антон и Борис старше Виктора. |
Урок № 2: Сложные условия
Уровень A. Напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке.
Пример:
Введите три числа: 5 5 5 Все числа одинаковые. |
Пример:
Введите три числа: 5 7 5 Два числа одинаковые. |
Пример:
Введите три числа: 5 7 8 Нет одинаковых чисел. |
Уровень B. Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке.
Пример:
Введите номер месяца: 5 Весна. |
Пример:
Введите номер месяца: 15 Неверный номер месяца. |
Уровень C. Напишите программу, которая получает возраст человека и выводит этот возраст со словом «год», «года» или «лет». Например, «21 год», «22 года», «25 лет».
Пример:
Введите возраст: 18 Вам 18 лет. |
Пример:
Введите возраст: 21 Вам 21 год. |
Пример:
Введите возраст: 22 Вам 22 года. |
Решения в виде текста программы размещаем в комментариях к этому сообщению.
Ваши помощники:
Учебник «Информатика (2 часть), 10 класс», К.Ю. Поляков, Е.А. Еремин, параграф 57, стр. 126-131
Ветвление.ppt - презентация (автор К.Ю. Поляков)
сайт: http://learnpascal.ru/cikly-v-paskal/for-while-repeat.html
видео: Условные операторы
Скачать Паскаль можно ЗДЕСЬ
№1:
{Вастаев Олег. Уровень-С}
var i,max,a,b,c,cht:byte;
begin
write('Возраст Антона: ');
readln(a);
write('Возраст Бориса: ');
readln(b);
write('Возраст Виктора: ');
readln©;
max:=0;
for i:=1 to 3 do begin
if a>max then max:=a;
if b>a then max:=b;
if c>b then max:=c;
if a=max then inc(cht);
if b=max then inc(cht);
if c=max then inc(cht);
end;
if cht=3 then begin
if max=a then write ('Ответ: Антон старше всех.');
if max=b then write ('Ответ: Борис старше всех.');
if max=c then write ('Ответ: Виктор старше всех.');
end
else
if maxa then write ('Ответ: Борис и Виктор старше Антона');
if maxb then write ('Ответ: Антон и Виктор старше Бориса');
if maxc then write ('Ответ: Борис и Антон старше Виктора');
end.
{Линов Тимофей 10А}
program LinovTimofei;
var a,b,v:byte;
begin
write('Возраст Антона: ');
readln(a);
write('Возраст Бориса: ');
readln(b);
write('Возраст Виктора: ');
readln(v);
begin
if b>v
then if b=a then write ('Ответ: Борис и Антон старше Виктора. ')
else if b>a then write ('Ответ: Борис старше обоих мальчиков. ')
else
end;
begin
if a>b
then if a=v then write ('Ответ: Антон и Виктор старше Бориса. ')
else if a>v then write ('Ответ: Антон старше обоих мальчиков. ')
else
end;
begin
if v>a
then if v=b then write ('Ответ: Виктор и Борис старше Антона. ')
else if v>b then write ('Ответ: Виктор старше всех. ')
else
end;
begin
if a=v then if v=b then write ('Ответ: Возраст одинаковый! ')
end;
end.
{Линов Тимофей}
program LinovTimofeiLVLC;
var a:byte;
begin
readln(a);
if (a=1)or (a mod 10=1) then writeln('Вам ',a,' год.')
else if (a>4) and (a11)
then writeln('Вам ',a,' лет.')
else if (a=2) or (a=3) or (a=4) or (a mod 10>=0)
then writeln('Вам ',a,' года.');
end.