Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
16.05.2009, 13:06
|
|
Banned
Регистрация: 11.12.2008
Сообщений: 37
Провел на форуме:
178592
Репутация:
35
|
|
Вопрос по паскаль
Помогите на счет задачи на паскале.
Выводит времЯ года по введеному с клавиатуры числу, выходи при нажатии 0.
|
|
|
16.05.2009, 13:08
|
|
Участник форума
Регистрация: 08.12.2008
Сообщений: 248
Провел на форуме:
3539299
Репутация:
148
|
|
курс 10класса?=)
|
|
|
|
16.05.2009, 13:12
|
|
Banned
Регистрация: 11.12.2008
Сообщений: 37
Провел на форуме:
178592
Репутация:
35
|
|
ДА
|
|
|
|
16.05.2009, 13:21
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 84
Провел на форуме:
1348653
Репутация:
192
|
|
дай пример, непонимаю до конца условие.
что за "времЯ года по введеному с клавиатуры числу"??
|
|
|
|
16.05.2009, 13:27
|
|
Участник форума
Регистрация: 24.01.2008
Сообщений: 281
Провел на форуме:
5286129
Репутация:
1053
|
|
Выводит времЯ года по введеному с клавиатуры числу ?
непонятно
|
|
|
|
16.05.2009, 13:46
|
|
Постоянный
Регистрация: 02.10.2005
Сообщений: 490
Провел на форуме:
2333839
Репутация:
212
|
|
21.04.2009 - Весна
30.08.2009 - Лето
01.11.2009 - Осень
10.01.2009 - Зима
свитч месяц
кейс 3,4,5
врителайн Весна
кейс 6.7.8
врителайн Лето
кейс 9,10,11
врителайн Осень
кейс 12,1,2
врителайн Зима
Наводку дал, дальше сам думай)) |
|
|
|
16.05.2009, 14:23
|
|
Участник форума
Регистрация: 04.03.2009
Сообщений: 298
Провел на форуме:
1241030
Репутация:
229
|
|
Выйти при нажатии на 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.
Последний раз редактировалось banana; 16.05.2009 в 22:39..
|
|
|
|
16.05.2009, 16:24
|
|
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
Провел на форуме:
2022674
Репутация:
1224
|
|
case of and while true
|
|
|
|
16.05.2009, 18:42
|
|
Участник форума
Регистрация: 15.05.2008
Сообщений: 166
Провел на форуме:
2591223
Репутация:
128
|
|
Сообщение от banana
mesyac , writeln ('Введите текущий месяц'): readln ($mesyac);
и делаешь условие. if $mesyac= 3 to 5 then writeln ($mesyac, ' месяц - это Весна') и т.д.
Это что за синтаксис?Смесь языков?  )
|
|
|
|
16.05.2009, 22:24
|
|
Участник форума
Регистрация: 04.03.2009
Сообщений: 298
Провел на форуме:
1241030
Репутация:
229
|
|
Сообщение от fatalo
Это что за синтаксис?Смесь языков? ) Омг, точн это же на пыхапе такие условия и переменные, ща на паскаль поправлю
Последний раз редактировалось banana; 16.05.2009 в 22:32..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
