Задача в дельфи

[KnoPaA]

Известно время(часы,минуты ,секунды)-3 натуральных числа! Определить время через 10 секунд!

[Вавел из ГМТУ]

О боже, эту задачу решает человечество уже на протяжении нескольких сотен лет... К сожалению решение этой задачи до сих пор не найдено

[Alex Cones]

Без сомнения многим ученым удавалось подойти близко к решении этой задачи, причем все, что они могли получить, это:

AllSecond:=Hour*60*60+Min*60+Sek;
Inc(AllSek,10);
Hour:=AllSek mod 60*60;
AllSek:=AllSek-Hour*60*60;
Min:=AllSek mod 60;
AllSek:=AllSek-Min*60;
Sek:=AllSek;

P.S. Писал здесь, могут быть ошибки.

[KnoPaA]

Сообщение от Alex Cones

Без сомнения многим ученым удавалось подойти близко к решении этой задачи, причем все, что они могли получить, это:

AllSecond:=Hour*60*60+Min*60+Sek;
Inc(AllSek,10);
Hour:=AllSek mod 60*60;
AllSek:=AllSek-Hour*60*60;
Min:=AllSek mod 60;
AllSek:=AllSek-Min*60;
Sek:=AllSek;

P.S. Писал здесь, могут быть ошибки.

Это через дельфи?

[Alex Cones]

Это будет работать в любом компиляторе на основе паскаля, нужно лишь зарегить переменные и ввод\вывод данных.

[KnoPaA]

Сообщение от Alex Cones

Это будет работать в любом компиляторе на основе паскаля, нужно лишь зарегить переменные и ввод\вывод данных.

Я попробовала в дельфии! И у меня ни чего не получилось!
Можеш написать подробнее?

[Alex Cones]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
AllSecond,Hour,Min,Sek:Integer;
begin
AllSecond:=0;
Hour:=StrToInt(Edit1.Text);
Min:=StrToInt(Edit2.Text);
Sek:=StrToInt(Edit3.text);
AllSecond:=Hour*3600+Min*60+Sek;
AllSecond:=AllSecond+10;
Hour:=AllSecond div 3600;
AllSecond:=AllSecond-(Hour*3600);
Min:=AllSecond div 60;
AllSecond:=AllSecond-(Min*60);
Sek:=AllSecond;
Edit1.Text:=IntToStr(Hour);
Edit2.Text:=IntToStr(Min);
Edit3.Text:=IntToStr(Sek);

end;

end.

Киньте на форму edit1, edit2, edit 3, button1 и назначьте батону событие он клик

[KnoPaA]

Сообщение от Alex Cones

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
AllSecond,Hour,Min,Sek:Integer;
begin
AllSecond:=0;
Hour:=StrToInt(Edit1.Text);
Min:=StrToInt(Edit2.Text);
Sek:=StrToInt(Edit3.text);
AllSecond:=Hour*3600+Min*60+Sek;
AllSecond:=AllSecond+10;
Hour:=AllSecond div 3600;
AllSecond:=AllSecond-(Hour*3600);
Min:=AllSecond div 60;
AllSecond:=AllSecond-(Min*60);
Sek:=AllSecond;
Edit1.Text:=IntToStr(Hour);
Edit2.Text:=IntToStr(Min);
Edit3.Text:=IntToStr(Sek);

end;

end.

Киньте на форму edit1, edit2, edit 3, button1 и назначьте батону событие он клик

Спасибочки огромное!Я тебя обожаю!Чмок