Календарь на паскаль.

[noisor]

Помогите пожалуйста написать календарь на паскале на вводе 2 числа.
число и номер месяца. на выходе номер дня недели. заранее спасибо

[Serge_Bliznykov]

слишком мало данных.
во-первых, что такое "номер дня недели"? Сегодня, например, какой "номер дня недели"?
во-вторых, если вы про понедельник, вторник и т.д., то даты и номера месяца недостаточно, нужно знать или год или какой номер дня недели был 1-го января.

успехов.

[min@y™]

вводе 2 числа.
число и номер месяца

Ништяк придумал! А год как же?

[Stilet]

А год как же?

Наверное текущий...

[min@y™]

Наверное текущий...

Бугага! При запуске программы выдавать сообщение "Trial period expires 31.12.2014"!!!

[Stilet]

"Trial period expires 31.12.2014"!!!

Ты про день недели забыл )
А точнее про номер дня недели.

[min@y™]

Ты про день недели забыл )
А точнее про номер дня недели.

А, ну да.
Trial period expires at wednesday, dec/31/2014.

[noisor]

Год текущий. извиняйте, ошибся. на выводе номер недели и дня недели(1-понедельник, 2-вторник и т.д).
(35 неделя, 4 день.)

[abit]

вот на Free Pascal набросал:

uses sysutils;

type
TMyDate = class
      constructor Create(); overload;
      constructor Create(new_day,new_month:byte); overload;
private
      date: TDate;
public
   function Wednesday :byte;
end;

constructor TMyDate.Create(); overload;
begin
  Date:=Now;
end;

constructor TMyDate.Create(new_day,new_month:byte); overload;
var Year, Month, Day: Word;
begin
  Self.Create();
  DecodeDate(Date,Year,Month,Day);
  Month:=new_month;
  Day:=new_day;
  try
    Date:=EncodeDate(Year, Month, Day);
  except
    on EConvertError do Writeln('Некорректная дата, будет использована текущая');
  end; 
end;

function TMyDate.Wednesday:byte;
var tmp:integer;
begin
  tmp:=DayOfWeek(Date);
  //т.к. в англии принято считать первым днём недели воскресенье - скорректируем
  tmp:=tmp-1;
  if (tmp=0) then tmp:=7;
  Wednesday:=tmp;
end;

var
  MyDate:TMyDate;
  day,month:byte;

begin
   Write('Введите дату : '); Readln(day);
   Write('Введите номер месяца : '); Readln(month);
   MyDate:=TMyDate.Create(day,month);
   Writeln('Номер дня недели : ',MyDate.Wednesday);
   Readln;
end.

[noisor]

Огромное спасибо!