Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 01.02.2012, 18:22   #1 (permalink)
Катерюшка
Новичок
 
Регистрация: 01.02.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите кто-нибудь с Паскалем

Никогда не сталкивалась с программированием, а тут поступила в универ и задали на Паскале задачку:
Даны целые числа day, month, year. Проверьте возможность существования этой даты и в случае положительного результата выведите ее в виде "число название месяц год".
Катерюшка вне форума   Ответить с цитированием

Старый 01.02.2012, 18:22
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Если хотите побыстрее решить проблему - полистайте аналогичные темы

Помогите с Паскалем
Помогите с паскалем очень прошу
Помогите что нибудь сделать с видеокамерой
Помогите с Паскалем
Помогите с Паскалем
Помогите, пожалуйста, с Паскалем. Процедуры-массивы

Старый 01.02.2012, 20:35   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Катерюшка Посмотреть сообщение
Никогда не сталкивалась с программированием, а тут поступила в универ и задали на Паскале задачку:
Даны целые числа day, month, year. Проверьте возможность существования этой даты и в случае положительного результата выведите ее в виде "число название месяц год".
Легко.
Только вот два замечания.
1. Вы не указали тип Паскаля (они разные бывают). Программа написана для Turbo. Если же нужно для АВС, каковой типизированных констант понимать не изволит, то помочь не могу - я с этим извращением дела не имею.
2. На допустимый диапазон лет наложено только одно ограничение: номер года должен быть больше 1582 (год принятия Григорианского календаря).
Код:
CONST
 Month_Name:Array[1..12] of String=('January','February','March','April',
                               'May','June','July','August',
                               'September','October','November','December');
 Days_in_Months_not_bis:Array[1..12] of Byte=(31,28,31,30,31,30,
                                              31,31,30,31,30,31);
 Days_in_Months_bis:Array[1..12] of Byte=(31,29,31,30,31,30,
                                          31,31,30,31,30,31);
VAR
 Year_Type:Byte;
 Day,Month,Year:Integer;
 B:Boolean;
 i,j,N,Days:Integer;

BEGIN
 Write('Day= ');
 Readln(Day);
 Write('Month= ');
 Readln(Month);
 Write('Year= ');
 Readln(Year);
 B:=True;
 If Year<1583 then B:=False;
 If B then
  Begin
   If (((Year mod 4)=0) and ((Year mod 100)>0)) or
      (((Year mod 100)=0) and ((Year mod 400)=0))  then
      Year_Type:=1 else Year_Type:=0;
   If (Month<0) or (Month>12) or (Day<1) then B:=False;
    If B then
     begin
      If ((Year_Type=0) and (Day>Days_in_Months_not_bis[Month])) or
         ((Year_Type=1) and (Day>Days_in_Months_bis[Month])) then B:=False;
     end;
  End;
 Writeln;
 If B then
  Writeln(Day,', '+Month_Name[Month]+', ',Year)
 else
  Writeln('Incorrect!');
 Readln
END.
Vladimir_S вне форума   Ответить с цитированием
Старый 01.02.2012, 22:20   #3 (permalink)
Катерюшка
Новичок
 
Регистрация: 01.02.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Огромное спасибо, то что нужно, как раз на турбо паскаль)))))))
Катерюшка вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:23.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.