Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача, нахождение дня недели по дате

Автор: Biowolf 25.02.2004 13:34

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

Автор: Atos 25.02.2004 15:41

А это, кажется, в учебнике Фаронова было.

Автор: Atos 25.02.2004 16:04

Точно, было. Уже готовый текст проги читай http://www.borlpasc.narod.ru/docym/Faronov/pr5/pr5.html

Автор: Biowolf 26.02.2004 21:00

С посибо за помощь. Текст нашел. Может еще что подскажеш посмотри две другие мои темы.

Автор: Darkwolf 2.03.2004 13:53

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

Код

uses crt;
var
IsCorrectDate: Boolean;
d,m,y : Integer;
Procedure InputDate (var d,m,y : Integer; var correctly : Boolean);
begin
Write ( 'Vvedite datu ');
ReadLn(d,m,y);
correctly := (d>=1) and (d<=31) and (m>=1)
and (m<=12) and (y>=1582) and (y<=4903)
end;
Procedure WriteDay (d,m,y : Integer);
const
Days_of_week : array [0..6] of String [11] =
( ' Ponidelinic' , 'Vtornic  ' , ' Sreda ' ,
' Chetverg ' , ' Piatnica ' , ' Subota' , ' Voskresenie ' );
var
c, w : Integer;
begin
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 (Days_of_week [w] )
end;
begin
clrscr;
repeat
InputDate (d,m,y, IsCorrectDate);
if IsCorrectDate then
WriteDay (d,m, y )
until not IsCorrectDate
end.

Автор: Darkwolf 2.03.2004 13:54

Может еще идейку подкинете как улучшить

Автор: Darkwolf 29.03.2004 6:27

Хотел ёщё раз обратить ваше внимание наэту тему. Может у кого ниуть
возникли новые идеи .

Автор: Darkwolf 29.03.2004 18:10

Кто нибуть срочно подскажите

Автор: Darkwolf 29.03.2004 19:10

Кто что сможет подскажите как сделать что верно работала.

Код

Program z2;
uses crt         ;
var cor : boolean ;
    d,m,g,q,i:Integer;

Procedure InputDate (var d,m,g : integer; var cor : boolean);
begin
 i:=g div 4;
 writeln('Vvedite datu'); readln(d,m,g);
 cor:= (d>=1) and (d<=31) and (m>=1) and (m<=12) and (g>=1582) and (g<=4903);
Case m of
4,6,9,11: If d>30 then
       begin
   cor:= not cor;
    writeln('V atom masiace 30 dnei')
        end;

2 :  If i=0 then
      begin
       If d>29 then
     begin
    cor:=not cor;
    writeln('V atom masiace 29 dnei')
     end;
      end;
      else
  If d>28 then
    begin
      cor:=not cor;
      writeln('V atom masiace 28 dnei')
     end;
 end;
end;
Procedure WriteDay (d,m,g : integer);
const dni_nedeli : array[0..6] of string[11]=('Vos','Pon','Vtor','Sreda','Chetverg','Piatnica','Subota');
var   s,F :integer;
begin
 if m<3
 then begin m:=m+10; g:=g-1 end
 else m:= m-2;
 s:= g div 100;  
 g:=g mod 100;
 F:=abs(trunc(2.6*m-0.2)+d+g div 4 +g+s div 4-2*s) mod 7;
 writeln(dni_nedeli[F])
end;
BEGIN
repeat
clrscr;
InputDate(d,m,g,cor);
 if cor then WriteDay(d,m,g);
 writeln('Dlia vixoda 2 dlia povtora 1');
 readln;
 until q=2;
writeln('Dlia vixoda  Enter.');
readln;
END.