HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ОФФТОП > Болталка
Перезагрузить страницу Вопрос по паскаль
   
Ответ
Страница 2 из 2 < 1 2
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 16.05.2009, 22:43
Sinay
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
С нами: 9838060

Репутация: 1224


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

  #12  
Старый 16.05.2009, 22:44
Godfather Bulan
Постоянный
Регистрация: 18.03.2008
Сообщений: 411
С нами: 9551846

Репутация: 2389
По умолчанию
Цитата:
Сообщение от 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.
пиндец.... ну и код)))
 
Ответить с цитированием

  #13  
Старый 16.05.2009, 22:54
Ponchik
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
С нами: 10892546

Репутация: 2274


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

  #14  
Старый 16.05.2009, 23:01
rushter
Reservists Of Antichat - Level 6
Регистрация: 23.05.2008
Сообщений: 756
С нами: 9456866

Репутация: 979


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

  #15  
Старый 16.05.2009, 23:29
Godfather Bulan
Постоянный
Регистрация: 18.03.2008
Сообщений: 411
С нами: 9551846

Репутация: 2389
По умолчанию
Код:
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.
Последний раз редактировалось Godfather Bulan; 17.05.2009 в 00:01..
 
Ответить с цитированием

  #16  
Старый 16.05.2009, 23:45
Sinay
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
С нами: 9838060

Репутация: 1224


По умолчанию
памяти больше жрет
 
Ответить с цитированием

  #17  
Старый 17.05.2009, 07:42
][yZ
Познающий
Регистрация: 03.03.2009
Сообщений: 62
С нами: 9047413

Репутация: 106
По умолчанию
Цитата:
Сообщение от Godfather Bulan  
Код:
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.
тогда уж лучше так
Код:
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.
 
Ответить с цитированием

  #18  
Старый 17.05.2009, 14:13
TRX.new
Участник форума
Регистрация: 27.04.2009
Сообщений: 189
С нами: 8968720

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

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



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
У меня такой вопрос got_666 Уязвимости Mail-сервис 3 28.01.2007 15:13
Интернетчики задали российскому президенту очень странные вопросы podkashey Мировые новости. Обсуждения. 4 07.07.2006 16:53
Простой вопрос про сниффер errou PHP 15 30.01.2006 20:54



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.