Составить процедуру и функцию, которая по заданному номеру месяца печатает название времени года - Turbo Pascal
Формулировка задачи:
Составить процедуру и функцию,которая по заданному номеру месяца печатает название времени года
Решение задачи: «Составить процедуру и функцию, которая по заданному номеру месяца печатает название времени года»
textual
Листинг программы
const
Seasons: array [0..3] of String[5] = ('зима','весна','лето','осень');
function Season(n: Integer): String;
begin
Season:=''; if n in [1..12] then Season:=Seasons[(n mod 12) div 3];
end;
procedure GetSeason(n: Integer; var s: String);
begin
s:=''; if n in [1..12] then s:=Seasons[(n mod 12) div 3];
end;
var n: Integer; s: String;
begin
Write('Номер месяца: '); ReadLn(n); GetSeason(n,s);
WriteLn('Сезон: ',s,' ',Season(n));
end.