По порядковому номера месяца выдать время года

@Ernst_Hofer · Регистрация: 27.06.2016

Author24 — интернет-сервис помощи студентам

Составить программу, которая по порядковому номеру месяца вы-давала бы его название времени года, которому он принадлежит.

@cfbogd · 14.01.2017, 17:40

изи прога + поиск =

Pascal

var a:integer; 
begin 
repeat
writeln('Введите номер месяца [1..12]');
readln(a);
until a in [1..12];
case a of
12,1,2:writeln('зима'); 
3..5:   writeln('весна'); 
6..8:   writeln('лето');  
9..11:  writeln('осень');
end;
end.

@Ernst_Hofer · 21.01.2017, 12:21 **[ТС]**

Как мне её переписать в VCL Forms ?

@cfbogd · 21.01.2017, 12:46

Ernst_Hofer,
цикл repeat ... until удалить
readln(a); = a:=StrToInt(Edit1.Text);
writeln('зима'); = showmessage('зима'); или memo1.lines.Add('зима');
после end оператора case добавить else и showmessage текстом типа: неправильно введено число

По порядковому номера месяца выдать время года

Решение

Решение

@Ernst_Hofer 16 / 4 / 0 Регистрация: 27.06.2016 Сообщений: 99
		1
	По порядковому номера месяца выдать время года 14.01.2017, 16:59. Показов 2660. Ответов 3 Метки нет (Все метки) Составить программу, которая по порядковому номеру месяца вы-давала бы его название времени года, которому он принадлежит. 0

@Ernst_Hofer 16 / 4 / 0 Регистрация: 27.06.2016 Сообщений: 99
	21.01.2017, 12:21 [ТС]	3
	Как мне её переписать в VCL Forms ? 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	21.01.2017, 12:46	4
	Сообщение было отмечено Ernst_Hofer как решение Решение Ernst_Hofer, цикл repeat ... until удалить readln(a); = a:=StrToInt(Edit1.Text); writeln('зима'); = showmessage('зима'); или memo1.lines.Add('зима'); после end оператора case добавить else и showmessage текстом типа: неправильно введено число 1