Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Вопрос по паскаль (https://forum.antichat.xyz/showthread.php?t=120873)

toross 16.05.2009 13:06

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

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

SimBa 16.05.2009 13:08

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

toross 16.05.2009 13:12

ДА

X-FRITS 16.05.2009 13:21

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

PHOEN_i_X 16.05.2009 13:27

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

непонятно

D1mOn 16.05.2009 13:46

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 16.05.2009 14:23

Выйти при нажатии на 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 16.05.2009 16:24

case of and while true

fatalo 16.05.2009 18:42

Цитата:

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

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

banana 16.05.2009 22:24

Цитата:

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

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


Время: 17:37