ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ОФФТОП_OLD > Болталка
Перезагрузить страницу Вопрос по паскаль
   
 
Страница 2 из 2 < 1 2
 
Опции темы Поиск в этой теме Опции просмотра

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

Репутация: 1224


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

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

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

Репутация: 2274


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

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

Репутация: 979


Отправить сообщение для rushter с помощью ICQ
По умолчанию
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
Провел на форуме:
7469280

Репутация: 2389
Отправить сообщение для Godfather Bulan с помощью ICQ
По умолчанию
Код:
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
Провел на форуме:
2022674

Репутация: 1224


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

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

Репутация: 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
Провел на форуме:
1141766

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

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



« Предыдущая тема | Следующая тема »


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


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




ANTICHAT.XYZ