Вопрос по паскаль

Помогите на счет задачи на паскале.

Выводит времЯ года по введеному с клавиатуры числу, выходи при нажатии 0.

 

курс 10класса?=)

 

ДА

 

дай пример, непонимаю до конца условие.
что за "времЯ года по введеному с клавиатуры числу"??

 

Выводит времЯ года по введеному с клавиатуры числу ?

непонятно

 

21.04.2009 - Весна
30.08.2009 - Лето
01.11.2009 - Осень
10.01.2009 - Зима

свитч месяц
кейс 3,4,5
врителайн Весна
кейс 6.7.8
врителайн Лето
кейс 9,10,11
врителайн Осень
кейс 12,1,2
врителайн Зима


Наводку дал, дальше сам думай))

 

Выйти при нажатии на 0 - это until press '0' как то так.
Времена года:
Простейший способ через условия -

Code:

Program vrem_goda;
uses crt; 
var mesyac,temp : integer;
begin
clrscr;
writeln ('Введите месяц: ');
readln (mesyac);
if mesyac=1 then 
writeln (mesyac, ' месяц - это зима');
 if mesyac=2 then 
writeln (mesyac, ' месяц - это зима');
 if mesyac=3 then 
writeln (mesyac, ' месяц - это весна'); 
if mesyac=4 then 
writeln (mesyac, ' месяц - это весна');
 if mesyac=5 then 
writeln (mesyac, ' месяц - это весна'); 
if mesyac=6 then 
writeln (mesyac, ' месяц - это лето'); 
if mesyac=7 then 
writeln (mesyac, ' месяц - это лето'); 
if mesyac=8 then 
writeln (mesyac, ' месяц - это лето'); 
if mesyac=9 then 
writeln (mesyac, ' месяц - это осень');
 if mesyac=10 then 
writeln (mesyac, ' месяц - это осень');
 if mesyac=11 then 
writeln (mesyac, ' месяц - это осень');
 if mesyac=12 then 
writeln (mesyac, ' месяц - это зима'); 
end.

 

case of and while true

 

Это что за синтаксис?Смесь языков? )

 

Омг, точн это же на пыхапе такие условия и переменные, ща на паскаль поправлю

 

плохо оформил
оператором выбора надо и у тебя он работает один раз,надо пока не нажмут 0
программисты=\

 

пиндец.... ну и код)))

 

Godfather Bulan, а в паскале нет switch =\
Можно былобы массивами сделать но в 10 классе хз проходят их или нет

 

Code:

program asd;
const
a:array [1..12] of string[10]=('zima','zima','vesna','vesna','vesna','leto','leto','leto','osen','osen','osen','zima');
var
i:byte;
begin
readln (i);
writeln (a[i]);
readln;
end.

 

памяти больше жрет

 

тогда уж лучше так

Code:

program asd;
const
a:array [0..12] of string[10]=('','zima','zima','vesna','vesna','vesna','leto','leto','leto','osen','osen','osen','zima');
var
i:byte;
begin
  repeat
    readln (i);
    writeln (a[i]);
  until i=0;
  readln;
end.

 

Такая задача.. а вы такую дискуссию развели =) .. Он сделал уже наверно .. в 10 классе врятли будут оценивать объем используемой памяти) .. Там смотрят работает/не работает ;-)))

P.S. еще надо фильтр на вводимые данные хоть как добавить и защиту от переполнения стека..