19, 20 января: Информатика 10 класс (1, 2 группа)

 

19, 20 января: Информатика 10 класс (1, 2 группа)

Друзья!
Сегодня повторяем (а для кого то изучаем) ветвления на языке Паскаль.

Урок № 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
видео:
Условные операторы

Скачать Паскаль можно ЗДЕСЬ
Олег ВастаевОлег Вастаев
21.01 22:170 ОтветитьЕщё
Д.з.
№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 max<>a then write ('Ответ: Борис и Виктор старше Антона');
if max<>b then write ('Ответ: Антон и Виктор старше Бориса');
if max<>c then write ('Ответ: Борис и Антон старше Виктора');
end.
Сергей МоховСергей Мохов
22.01 08:010 ОтветитьЕщё
Спасибо всем! Время истекло! Работы больше не принимаются! Комментарии публикуются!
Timofei NikolaevichTimofei Nikolaevich
22.01 18:110 ОтветитьЕщё
Я вчера не увидел,что нужно текстом кидать, но домашку я сделал!

{Линов Тимофей 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 (a<255) or (a=11) or (a mod 100<>11)
   then writeln('Вам ',a,' лет.')
 else if (a=2) or (a=3) or (a=4) or (a mod 10>=0)
   then writeln('Вам ',a,' года.');
end.
*
 
....