по заданной дате вычислить какой день недели. Pascal.

[Яська]

по заданной дате вычислить какой день недели.

[maladoy]

не знаю как в паскале но в delphi вот так

var
  d: TDateTime;
begin
  d := StrToDate(Edit1.Text);
  ShowMessage(FormatDateTime('dddd',d));
end;

[alexBlack]

алгоритм вычисления дня недели

[NoHeart]

Код:

Program Day_of_week;

uses CRT;

procedure GetDay (var d, m, y : integer);
var
correct : byte;
begin
correct := 1;
repeat
writeLn ('Введите дату.');
write ('День - ');
readLn (d);
write ('Месяц - ');
readLn (m);
write ('Год - ');
readLn (y);

{ Проверим правильность года. Если год не "правильный", то попросим ввести дату ещё раз }
if y <= 4903 then
if y >= 1000 then
correct := 0;
until correct = 0
end;

procedure CountDay (d, m, y : integer);
var
week : array [0 .. 6] of string[11];
c, w : integer;
begin
week [0] := 'воскресенье';
week [1] := 'понедельник';
week [2] := 'вторник';
week [3] := 'среда';
week [4] := 'четверг';
week [5] := 'пятница';
week [6] := 'суббота';

{ Месяц январь или февраль = > нужно преобразовать }
if m < 3 then
begin
m := m + 10;
y := y - 1
end
else
m := m - 2;

c := y div 100;
y := y mod 100;
w := abs (trunc (2.6 * m -0.2) + d + y div 4 + y + c div 4 - 2 * c) mod 7;
writeLn ('соответствует день недели - ', week [w])
end;

var
d, y, m : integer;

begin
ClrScr;
GetDay (d, m, y);
CountDay (d, m, y)
end.

[Иван 883]

program task;
uses crt;
var n:integer;
begin
clrscr;
writeln('Введите число');
readln(n);
case n of
1,8,15,22,29:writeln('Понедельник') ;
2,9,16,23,30:writeln('Вторник');
3,10,17,24,31:writeln('Среда');
4,11,18,25:writeln('Четверг');
5,12,19,26:writeln('Пятница');
6,13,20,27:writeln('Суббота');
7,14,21,28:writeln('Воскресенье');
else writeln('Такого дня в недели нет');
end;
readln;
end.