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

[toross]

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

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

[SimBa]

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

[toross]

ДА

[X-FRITS]

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

[PHOEN_i_X]

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

непонятно

[D1mOn]

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

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

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

[banana]

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

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.

[Sinay]

case of and while true

[fatalo]

mesyac , writeln ('Введите текущий месяц'): readln ($mesyac);
и делаешь условие. if $mesyac= 3 to 5 then writeln ($mesyac, ' месяц - это Весна') и т.д.
Это что за синтаксис?Смесь языков? :))

[banana]

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

[Sinay]

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

[Godfather Bulan]

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

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.
пиндец.... ну и код)))

[Ponchik]

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

[rushter]

Ponchik,
считываешь дату в формате каомнить типа день/месяц/год
отделяеш месяц от всего что введено вереподишь его в integer и делаешь
case i of
3..5: writeln("весна");
6..8:writeln("лето");
9..11:writeln("осень");
12,1,2:writeln("зима");
end;

[Godfather Bulan]

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

[Sinay]

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

[][yZ]

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

тогда уж лучше так
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.

[TRX.new]

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

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