тема лабораторной: типы данных определяемые пользователем
задача: по введенному сезону определить месяц (тупая, но она такая)
решить ее не проблема без этих типов
а как их реально задействовать здесь, я хз... туплюсь :
uses
crt;
var
season: string;
begin
clrScr;
write ('введите сезон года: ');
readln (season);
if season = 'зима' then write ('декабрь, январь, февраль')
else if season = 'весна' then write ('март, апрель, май')
else if season = 'лето' then write ('июнь, июль, август')
else if season = 'осень' then write ('сентябрь, октябрь, ноябрь')
{или можно создать массив месяцев и брать их от туда}
end.
program laba_666;
uses
crt;
type
month = (
des, jan, fab, mar, apr, may, jun, jul, aug, sep, oct, nov
);
const
month_arr: array[month] of string = (
'декабрь', 'январь', 'февраль', 'март', 'апрель', 'май',
'июнь', 'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь'
);
var
season: string;
i, first, last, a: month;
begin
clrScr;
write('Введите название сезона года: '); readln(season);
if season = 'зима' then first:= des
else if season = 'весна' then first:= mar
else if season = 'лето' then first:= jun
else if season = 'осень' then first:= sep;
a:= first;
inc(a,2);
last:= a;
for i:= first to last do writeln(month_arr[i]);
end.