нахождение высокосного года, сезона года и к-ва дне с начала года Делфи 7 (есть код программы полностью)

[программирование]

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

задание программы:
1)создать форму про.png.
2)вводим в программу число, месяц и год (начиная с 2001) - результат программы является ли год высокосным или нет.
3)по номеру месяца определить сезон года (зима,весна,лето или осень).

вот код

PHP код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    month: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    rik: TButton;
     procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  tdate=class
    month,day,year:integer;
    procedure setvalue(m,d,y:integer);
    function leapyear:boolean;
  end;
var
  Form1: TForm1;
    aday:tdate;
  mn,dn,yn:integer;


implementation

{$R *.dfm}
 procedure tdate.setvalue(m,d,y:integer);
begin
 month:=m;
 day:=d;
 year:=y;
end;
function tdate.leapyear:boolean;
begin
 if  (year mod 4 <>0) then
      leapyear:=false
 else if (year mod 100<>0) then
      leapyear:=true
 else if (year mod 400<>0) then
      leapyear:=false
 else
      leapyear:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
// ctvorenna obektu
   aday:=tdate.Create ;
   // vikorictanna ego
   mn:=strtoint(form1.edit1.text);dn:=strtoint(form1.edit2.text);yn:=strtoint(form1.edit3.text);
   aday.setvalue(mn,dn,yn);
   case month of
12,1,2:showmessage('Winter');
3..5:showmessage('Spring');
6..8:showmessage('Summer');
9..11:showmessage('Autumn');
end;
if aday.leapyear  then
    showmessage('Visokicniy rik:' + inttostr(aday.year)+' '+inttostr(yn))
      else
    showmessage('NEvisokicniy rik:' + inttostr(aday.year));
    //znichenna obekta
    form1.edit4.Text:='Vi vveli datu '+inttostr(dn)+'/'+inttostr(mn)+'/'+inttostr(yn);
    aday.Free;
end;

   begin
   // ctvorenna obektu
   aday:=tdate.Create ;
   // vikorictanna ego
   mn:=1;dn:=1;yn:=2001;
   aday.setvalue(mn,dn,yn);
   if aday.leapyear  then
    showmessage('Visokicniy rik:' + inttostr(aday.year))
    else
    showmessage('NEvisokicniy rik:' + inttostr(aday.year));
    //znichenna obekta
    aday.Free;
end. 


выдаёт ошибку
в строчке
mn:=strtoint(form1.edit1.text);dn:= strtoint(form1.edit2.text);yn:=strt oint(form1.edit3.text);

[Вадим Мошев]

Какую именно ошибку выдает?
Вообще, записывайте каждый оператор на отдельной строке, так будет проще отлаживать программу.

Кстати, зачем високосность года проверять так:

function tdate.leapyear:boolean;
begin
 if  (year mod 4 <>0) then
      leapyear:=false
 else if (year mod 100<>0) then
      leapyear:=true
 else if (year mod 400<>0) then
      leapyear:=false
 else
      leapyear:=true;
end;

Достаточно лишь проверить, делится ли порядковый номер года на 4 нацело и всё. В вашем случае, это может выглядеть вообще так

unction tdate.leapyear: boolean;
begin
result:=(year mod 4) = 0

[grominfo]

Я не пойму, почему вот этот код вынесен за пределы процедуры?

if aday.leapyear  then
    showmessage('Visokicniy rik:' + inttostr(aday.year)+' '+inttostr(yn))
      else
    showmessage('NEvisokicniy rik:' + inttostr(aday.year));
    //znichenna obekta
    form1.edit4.Text:='Vi vveli datu '+inttostr(dn)+'/'+inttostr(mn)+'/'+inttostr(yn);
    aday.Free;
end;

   begin
   // ctvorenna obektu
   aday:=tdate.Create ;
   // vikorictanna ego
   mn:=1;dn:=1;yn:=2001;
   aday.setvalue(mn,dn,yn);
   if aday.leapyear  then
    showmessage('Visokicniy rik:' + inttostr(aday.year))
    else
    showmessage('NEvisokicniy rik:' + inttostr(aday.year));
    //znichenna obekta
    aday.Free;

[Poma][a]

Достаточно лишь проверить, делится ли порядковый номер года на 4 нацело и всё. В вашем случае, это может выглядеть вообще так

Нет! Нет! И еще раз нет!!!
Возьмем 1900 год. По-твоему, он будет високосным, хотя это не так..

Можно делать так

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

[Вадим Мошев]

Сообщение от Poma][a

Нет! Нет! И еще раз нет!!!
Возьмем 1900 год. По-твоему, он будет високосным, хотя это не так..

Это из-за того, что в условии сказано, что "начиная с 2001 года"? Если да, то я просто не так понял

[программирование]

в этой программе нужно:
1)опеределить является ли год высокосным.
2)сезон года по номеру месяца.
3)сколько дней прошло с начала года.

вот код программы

PHP код:

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    month: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    rik: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit4: TEdit;

     procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  tdate=class
    month,day,year:integer;
    procedure setvalue(m,d,y:integer);
    function leapyear:boolean;

  end;
tdate=class
    month,day,year:integer;
    procedure setvalue(m,d,y:integer);
    function leapyear:boolean;

  end;

var
  Form1: TForm1;
    aday:tdate;
  mn,dn,yn:integer;


implementation

{$R *.dfm}
 procedure tdate.setvalue(m,d,y:integer);
begin
 month:=m;
 day:=d;
 year:=y;
end;
function tdate.leapyear:boolean;
begin
 if  (year mod 4 <>0) then
      leapyear:=false
 else if (year mod 100<>0) then
      leapyear:=true
 else if (year mod 400<>0) then
      leapyear:=false
 else
      leapyear:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   // ctvorenna obektu
   aday:=tdate.Create ;
   // vikorictanna ego
   mn:=strtoint(form1.edit1.text);dn:=strtoint(form1.edit2.text);yn:=strtoint(form1.edit3.text);
   aday.setvalue(mn,dn,yn);


   if aday.leapyear  then
    showmessage('Visokicniy rik:' + inttostr(aday.year)+' '+inttostr(yn))
      else
    showmessage('NEvisokicniy rik:' + inttostr(aday.year));
    //znichenna obekta
    form1.edit4.Text:='Vi vveli datu '+inttostr(dn)+'/'+inttostr(mn)+'/'+inttostr(yn);
    aday.Free;
end;
 Procedure tdate.TellQuarter;
begin

case mn of
12,1,2:showmessage('Winter');
3..5:showmessage('Spring');
6..8:showmessage('Summer');
9..11:showmessage('Autumn');
end;
  function tmydate.getdays: integer;
const
  days: array [1 .. 11] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30);
var
  i, c: integer;
begin
  c := day;
  for i := 1 to month - 1 do
    inc(c, days[i]);
  inc(c, ord((month > 2) and leapyear));
  result := c;
end;
 begin
   // ctvorenna obektu
   aday:=tdate.Create ;
   // vikorictanna ego
   mn:=1;dn:=1;yn:=2001;
   aday.setvalue(mn,dn,yn);
   if aday.leapyear  then
    showmessage('Visokicniy rik:' + inttostr(aday.year))
    else
    showmessage('NEvisokicniy rik:' + inttostr(aday.year));
    //znichenna obekta
    aday.Free;

end. 


[Poma][a]

Неа..

Иными словами, год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. Год не является високосным, если он не кратен 4, либо он кратен 100, но при этом не кратен 400.

Из Вики (Тыц)

[Вадим Мошев]

Сообщение от Poma][a

Неа..
Из Вики (Тыц)

Минутку... а мы по какому календарю живём?

[программирование]

Достаточно лишь проверить, делится ли порядковый номер года на 4 нацело и всё. В вашем случае, это может выглядеть вообще так
Нет! Нет! И еще раз нет!!!
Возьмем 1900 год. По-твоему, он будет високосным, хотя это не так..

Можно делать так
Код:

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

Нет! Нет! И еще раз нет!!!
Возьмем 1900 год. По-твоему, он будет високосным, хотя это не так..

Можно делать так
Код:

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

а если у меня в программе начинаются года с 2001 года?

[Poma][a]

а если у меня в программе начинаются года с 2001 года?

Всё равно..

Минутку... а мы по какому календарю живём?

По тому, который на стеночке висит По Григорианскому..