Определить дату

[Guagpro]

Дата некоторого дня характеризуется тремя натуральными числами: g (год), m (порядковый номер месяца) и n(число). По заданным g, n и m определить дату предыдущего дня.
Сделать программу через подпрограмму.

var
g,n,m:integer;
procedure a;
var
 g,n,m:integer;
begin
 if g=1 then
 if n=1 then
begin
 g:=31;
 n:=12;
 m:=m-1;
end
else
begin
 n:=n-1;
 if n=1 then 
 g:=31;
 if n=2 then
 g:=28;
 if n=3 then
 g:=31;
 if n=4 then
 g:=30;
 if n=5 then
 g:=31;
 if n=6 then
 g:=30;
 if n=7 then
 g:=31;
 if n=8 then
 g:=31;
 if n=9 then
 g:=30;
 if n=10 then
 g:=31;
 if n=11 then
 g:=30;
 if n=12 then
 g:=31;
end
else
begin
 g:=g-1;
end;
end;
begin
 writeln('введите дату в формате День.Месяц.Год');
 readln(g,n,m);
 a;
 writeln(g,n,m);
end.

Он мне почему то день выводит ту же самую дату что и ввел, и условие где выдает сколько дней в месяце как нибудь поменьше сделать

[Аватар]

EncodeDate(g,n,m) - дата
EncodeDate(g,n,m)-1 - дата предыдущего дня
DaysInAMonth - кол-во дней в заданном году и месяце

Не обратил внимания, что паскаль. Это для дельфей

[Guagpro]

Сообщение от Аватар

EncodeDate(g,n,m) - дата
EncodeDate(g,n,m)-1 - дата предыдущего дня
DaysInAMonth - кол-во дней в заданном году и месяце

Не обратил внимания, что паскаль. Это для дельфей

пичаль

[Guagpro]

Сделал вот так строчка с вызовом процедуры в самом паскале почему то пропускается и выдает мне то же число что я ввел изначально если удаляю строчку mes(g,n,m); ничего не меняется.HELPPP

var
g,n,m:integer;
procedure mes(g,n,m:integer);
begin
if g =1 then
if n=1 then
begin
g:=31;n:=12;m:=m-1;
end
else
begin
case n of 
3,5,7,8,10,12:g:=31;
4,6,9,11:g:=30;
2:g:=28;
end;
g:=g-1;
end
else
g:=g-1;
end;
begin
write('data');
read(g,n,m);
mes(g,n,m);
writeln(g,'.',n,'.',m);
end.

[Sciv]

Мой вариант - без учета високосных лет - как-то так:

const days:array [1..12] of word=(31,28,31,30,31,30,31,31,30,31,30,31);


Procedure PrevDay(var d,m,y: word);
begin
  if (d=1) then begin
    if (m=1) then begin
      y:=y-1;
      m:=12;
      d:=Days[12];
    end
    else begin
      m:=m-1;
      d:=Days[m];
    end
  end
  else d:=d-1;
end;

var g,n,m:word;

begin
  ReadLn(n,m,g);
  WriteLn(n,'.',m,'.',g);
  PrevDay(n,m,g);
  WriteLn(n,'.',m,'.',g);
  ReadLn;
end.

А в Вашей программе чтобы все заработало - нужна самая малость:

procedure mes(var g,n,m:integer);

[Poma][a]

Вот мой :
Писал в браузере :

const
   DayInMonth : array [1..12] of Byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

function IsLeapYear (y : Integer) : Boolean;
begin
    IsLeapYear := (y mod 400 = 0) or ((y mod 4 = 0) and (y mod 100 <> 0));
end;
var
    d, m, y : Integer;

begin
    ReadLn (d, m, y);
    if (d = 1) and (m = 1) then begin
        d := 31;
        m := 12;
        Dec (y)
   end
   else
      
    if d = 1 then begin
        d := DayInMonth[m-1];
        Dec (m);
        if (m = 2) and (IsLeapYear (y)) then
             Inc (d);
        
   WriteLn (d, ' ', m, ' ', y)
end.

[Sciv]

Ромаха, ему через подпрограмму нужно предыдущий день определять, переоформляй. А так - мне нравится, держи плюс

[Poma][a]

А так - мне нравится, держи плюс

Спасибо

ему через подпрограмму нужно предыдущий день определять, переоформляй.

Ой, это как нибудь без меня