Задача на Pascal

[Vera_Akimova]

Задача на Pascal

Недавно начала изучать самостоятельно паскаль.
И попалась такая задачка, вроде знаю все, что для нее нужно,
а вот сообразить никак не могу, как правильно "построить" ее.
Нужно,вот что : я ввожу в запрос какой-либо месяц , и после этого ввода, программа выводил время года.
Буду благодарна за пом:tehnari_ru_942:ощь.

 

[Gruvi]

И какой именно паскаль???

Тут вам в помощь инструкция case.

пример:
case Ch of
'A' .. 'Z', 'a' .. 'z' : WriteLn('Буква');
'0' .. '9' : WriteLn('Цифра');
'+', '-', '*', '/' : WriteLn('Оператор');
else WriteLn('Специальный символ')
end;

 

[AlexZir]

Например, так:

var mount:string;
writeln('Введите название месяца');
readln(mount);
case mount of
'январь', 'февраль', 'декабрь':writeln('зима');
'июнь', 'июль', 'август':writeln('лето');
'март', 'апрель', 'май':writeln('весна');
'сентябрь', 'октябрь', 'ноябрь':writeln('осень');
else writeln('нет такого месяца');
end;
readln
end.

 

[Vladimir_S]

Например, так:

Не, Лёш, так не пойдет: этот сволочной Case не принимает строкового формата индекса, ему подай Ordinal Type. Потому предлагаю такой вариант (НЕ для АВС):

Const
 Month:Array[1..13] of String=('January','February','March','April',
                               'May','June','July','August','September',
                               'October','November','December','');
Var
 k:Byte;
 S:String;
Begin
 Repeat
  Write('Month (any letters to quit): ');
  Readln(S);
  k:=1;
  While (k<13) and (Month[k]<>S) do Inc(k);
  Case k of
    12,1,2: Writeln('Winter');
     3,4,5: Writeln('Spring');
     6,7,8: Writeln('Summer');
   9,10,11: Writeln('Autumn');
  End;
 Until k=13;
End.

 

[AlexZir]

Владимир, переделать нетрудно, главное, принцип. Кстати, мой компилятор сожрал и не подавился, но я использовал линуксовую Geany, может поэтому.

 

[Vladimir_S]

Кстати, мой компилятор сожрал и не подавился, но я использовал линуксовую Geany, может поэтому.

Да, скорее всего. А обычный Паскаль плюется. Уж на что Free демократичный, а туда же.