Задача в Pascal очень срочно!!! - Форум
Пятница, 09.12.2016, 06:47
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задача в Pascal очень срочно!!! (паскаль)
Задача в Pascal очень срочно!!!
lulaДата: Пятница, 19.02.2010, 18:01 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
написать программу, которая по введённому номеру месяца определяет время года.программу выполнить 2-мя способами: 1) используя case 2) используя if
 
ignorerДата: Пятница, 19.02.2010, 19:59 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
через case на PascalАВС
Code
Var a : integer;
begin
   cls;
   read(a);
   case a of
    3..5 : write('весна');
    6..8 : write('лето');
    9..11 : write('осень');
    12, 1, 2 : write('зима');
   end;
end.
 
ignorerДата: Пятница, 19.02.2010, 20:02 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
решение через if на PascalАВС
Code
Var a : integer;
begin
  cls;
  read(a);
  if (a>=3)and(a<=5) then write('Весна');
  if (a>=6)and(a<=8) then write('Лето');
  if (a>=9)and(a<=11) then write('Осень');
  if (a=12)or(a=1)or(a=2) then write('Зима');
end.
 
[Nostr]Дата: Пятница, 19.02.2010, 20:03 | Сообщение # 4
Генерал-майор
Группа: Участник
Сообщений: 48
[ 3 ]
Статус: Offline
Code
Var a : integer;
begin
   cls;
   read(a);
   if ((a>=3) and (a<=5)) then write('весна');
   if ((a>=6) and (a<=8)) then write('лето');
   if ((a>=9) and (a<=11)) then write('осень');
   if ((a=12)or(a=1)or(a=2)) then write('зима');
end.
 
ignorerДата: Пятница, 19.02.2010, 20:03 | Сообщение # 5
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
[Nostr], я тебя опередил biggrin
 
[Nostr]Дата: Пятница, 19.02.2010, 20:03 | Сообщение # 6
Генерал-майор
Группа: Участник
Сообщений: 48
[ 3 ]
Статус: Offline
ыы smile
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задача в Pascal очень срочно!!! (паскаль)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016