определения дня недели по дате

[Sasha_Smirnov]

А вот тоже одно из определений (на уровне простого, так скажем, пользователя).

Открываю по Alt-F11 программную среду Word или Excel, жму Ctrl-G и ввожу

? weekdayname(weekday(date,vbMonday))

Нажимаю Enter. Печатается:

суббота

Вопрос: это кто-нить знал?

Упражнения, конечно, полезны, но для самопроверки пригодится.

[KoFeMaN]

вот такой получился готовый код=)

program lab_8;
const DaysInMonth : array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
const NameofDays  : array[1..7] of string = ('ponedelnik','vtornik','cpeda',
'4etverg','pyatnica','cybbota','voskpecenbe');
Type year = 1500..3000;
month = 1..12;
day = 1..31;
data = Record
y : year;
m : month;
d : day;
End;
function sum_day(td:data):integer;
var i:byte;
    s:integer;
begin
sum_day:=0;
for i:=1 to td.m-1 do
    begin
      sum_day:=sum_day+DaysInMonth[i];
        if (i=2) and ((td.y mod 4=0) and (td.y mod 400<>0)) Then
         sum_day:=sum_day+1;
    end;
sum_day:=sum_day+td.d;
end;
function name_day(sum_day:integer):string;
begin
 if (sum_day>7) then
  begin
  sum_day := sum_day mod 7;
  end;
  writeln(NameofDays[sum_day]);
end;
var td:data;
    sd:integer;
    nd:string;
begin
  writeln('vvedite date');
  readln(td.d, td.m, td.y);
  sd:=sum_day(td);
  nd:=name_day(sd);
  writeln(nd);
  readln;
end.

[KoFeMaN]

Sasha_Smirnov Это Визал Басик=)А я про паскаль спрашивал.=)Но все равно спасибо=)

[Serge_Bliznykov]

оп-с!
1) ошибки в коде! нельзя внутри функции к ней самой прибавлять (это можно делать только при использовании рекурсии!):

function sum_day(td:data):integer;
var i:byte;
    Result_sum_day:integer;
begin
  Result_sum_day:=0;
  for i:=1 to td.m-1 do
    begin
      Result_sum_day:=Result_sum_day+DaysInMonth[i];
      if (i=2) and ((td.y mod 4=0) and (td.y mod 400<>0)) Then
          Result_sum_day:=Result_sum_day+1;
    end;
  sum_day:=Result_sum_day+td.d;
end;

2)
попробуйте Вашу программу для 28 1 2007
пусто?!
так и должно быть!
Это ОШИБКА!
Вы плохо заменили цикл на MOD 7
я же говорил, что Воскресение станет НУЛЕВЫМ!
надо так:

const NameofDays  : array[0..6] of string = ('voskpecenbe','ponedelnik','vtornik','cpeda',
'4etverg','pyatnica','cybbota');
...

function name_day(sum_day:integer):string;
begin
 sum_day := sum_day mod 7;
 writeln(NameofDays[sum_day]);
end;

[Sasha_Smirnov]

Ясно, что паскаль. Я изучал. А что с русскими буквами-то у него стало?

[Serge_Bliznykov]

А что с русскими буквами-то у него стало?

ничего.... их в тексте нет! видимо руссификатор не стоит, или человек перестраховывается, чтобы вывод программы читался вне зависимости есть ли русская локаль под DOS, на той машине, где программа будет запускаться....
а может автор и просто по приколу так сделал...

[Hitriy]

Я тут написал программку, которая определяет день недели 1901-2096 годов, а также говорит, високосный год или нет. К тому же в программу нельзя ввести например 30 февраля или 31 апреля. В зависимости от того, високосный год или нет - 29 февраля можно ввести или нельзя. При нажатии на кнопку "Вычислить", если в месяце максимальное число меньше выбранного, оно автоматически становится максимальным для данного месяца. Вот ссылка на программу. Зацените. Если нужно будет, выложу исходники. http://depositfiles.com/files/my15z1m2d

[ZvEr_HaCkEr]

Давай.Заценим