Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.01.2009, 14:22   #1
311
 
Регистрация: 23.01.2009
Сообщений: 6
Восклицание !!!помогите в Packal!!!

Написать программу,которая по номеру месяца выдает название следующего за ним месяца(при m==1 получаем февраль,4-май и т.д).
311 вне форума
Старый 29.01.2009, 14:37   #2
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Можно так.
Код:
uses crt;
const ms:array[1..12] of string[10]=('февраль','март','апрель','май','июнь',
                                     'июль','август','сентябрь',
                                     'октябрь','ноябрь','декабрь','январь');
var n:byte;
begin
clrscr;
repeat
write('n=');
readln(n);
until (n>0)and(n<13);
write('Месяц ',ms[n]);
readln
end.
puporev вне форума
Старый 29.01.2009, 14:51   #3
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

Код:
program month;
var
 x : integer;
begin

  write ('Enter number of month: ');
  readln(x);
  if (x>=1) and (x<=12) then
  begin
    x:=x mod 12;
    write ('Next is ');
    case x of
     0 : writeln ('January');
     1 : writeln ('February');
     2 : writeln ('March');
     3 : writeln ('Aprel');
     4 : writeln ('May');
     5 : writeln ('June');
     6 : writeln ('July');
     7 : writeln ('August');
     8 : writeln ('September');
     9 : writeln ('October');
     10 : writeln ('November');
     11 : writeln ('December')
    end
  end
  else writeln ('Error');

  readln;

end.
capta1n вне форума
Старый 29.01.2009, 14:57   #4
]Wowan[
Delphi forever
Форумчанин
 
Аватар для ]Wowan[
 
Регистрация: 13.01.2009
Сообщений: 113
Смех

Если в названии темы есть хоть слово про Паскаль, то Capta1n полюбому там уже побывал!
Программы на заказ Delphi, Pascal.
ася: 415 253 529. Мыло: wowan141750@gmail.com.
]Wowan[ вне форума
Старый 29.01.2009, 15:00   #5
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

+1 да, скоро перейду на си может меня всего и не хватит вскоре - со второго курса начинается Java - а это вам не школьный паскальчик, а язык новый и гибкий, с большими возможностями
capta1n вне форума
Старый 29.01.2009, 15:15   #6
]Wowan[
Delphi forever
Форумчанин
 
Аватар для ]Wowan[
 
Регистрация: 13.01.2009
Сообщений: 113
По умолчанию

А ты программера учишся, да?
Программы на заказ Delphi, Pascal.
ася: 415 253 529. Мыло: wowan141750@gmail.com.
]Wowan[ вне форума
Старый 29.01.2009, 15:20   #7
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

дада
capta1n вне форума
Старый 31.05.2013, 18:12   #8
nata4k@
 
Регистрация: 31.05.2013
Сообщений: 3
По умолчанию

Пожалуйста, помогите))Что значит константа $F в Паскале.Что она делает с числом, когда ее прибавляешь???
nata4k@ вне форума
Старый 31.05.2013, 18:14   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

$ ставится перед числом в 16-тиричной системе. $F = 16.
Тема закрыта.
I'm learning to live...
Stilet вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Packal sorry HECTOR.A. Помощь студентам 1 08.12.2008 16:49
программа на Packal HECTOR.A. Помощь студентам 1 08.12.2008 16:12