взялся вобщем я за эти проги. хотелось бы по-больше комментариев, что где считает и для чего какая переменная (т к преподше надо отчитываться по полной программе, если почует халяву
- мне хана=)
насчет 3 задачки. она считает сегодняшнюю дату 2004 12 25 правильно, но вот например 2000 12 25 уже не правильно.
вот нащел ту которая считает правильно, но она сделана не по тем требованиям. если не сложно, то или подправь свою или переделай эту...
Код:
program caiendar;
var d,m,y,c,g:integer;
begin
writeln ('‚ўҐ¤ЁвҐ Ј®¤, *®¬Ґа ¬Ґбпж* Ё зЁб«®');
readln (g,m,d);
y:=g mod 100;
c:=g div 100;
if m>=3 then m:=m-2 else m:=m+10;
g:=(d+trunc(0.2*(13*m-1))+y+trunc(y/4)+trunc(c/4)-2*c) mod 7;
write ('¤Ґ*м *Ґ¤Ґ«Ё-');
if g=1 then writeln ('Ї®*Ґ¤Ґ«м*ЁЄ'); {poned}
if g=2 then writeln ('ўв®а*ЁЄ');
if g=3 then writeln ('б।*');
if g=4 then writeln ('зҐвўҐаЈ');
if g=5 then writeln ('Їпв*Ёж*');
if g=6 then writeln ('бгЎЎ®в*');
if g=0 then writeln ('ў®бЄаҐбҐ*мҐ');{vos}
end.
еще раз прошу. чем больше коммнетариев тем лучше!(идеальный вариант каждая строка коммент
просто я например даже не знаю что такое inc
)
респект!
