DELPHI, Электронные часы

[РезедаМуратова]

Задача:
Текущее показание электронных часов: m ч (0 < m < 23) n мин (0<n<59) k сек (0<k<59). Какое время будут показывать часы че¬рез p ч q мин r с?
помогите пожалуйста с задачей:" Какое время будут показывать часы че¬рез p ч q мин r с?"

Мой код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add('Электронные часы');

end;

procedure TForm1.Button1Click(Sender: TObject);
Var m,n,k,z,p,q,r,y,u:extended;
begin
Memo1.Lines.Add('Текущее показания:'+Edit1.Text+'часов'+Edit2.Text+'минут'+Edit3.Text+'секунд');
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
k:=StrToInt(Edit3.Text);
p:=StrToInt(Edit4.Text);
q:=StrToInt(Edit5.Text);
r:=StrToInt(Edit6.Text);
z:=(m+(n+(k/60))/60)/24;
y:=(n+(k/60))/60;
u:=k/60;
Memo1.Lines.Add('Прибавляем некоторое время:'+IntToStr(z)+'часов'+IntToStr(y)+'минут'+IntToStr(u)+'секунд');

end;

end.

[evg_m]

задача на mod (остаток от деления) div (целочисленное деление/деление с остатком)
и опыт сложения в столбик

m n k --текущее время
p q c  --прошло время
=================
x y z  --новое время

z:=(k+c) mod 60;
y:=((n+q) +(k+c) div 60) mod 60;
... остальное самостоятельно

или же все то же но по частям

z:=0;
z:=z +k+c;
y:=z div 60; //переполнение секунд в полных минутах
z:=z mod 60;//теперь есть секунды
y:=y +n+q; //сложение в столбик(мы учитываем и перенос полных минут из секунд)
....

[Аватар]

DateUtils в uses и без всяких пересчетов (делфи же )

Memo1.Lines.Add('Новое время: '+FormatDateTime('hh:mm:ss',IncSecond(EncodeTime(m,n,k,0),p*3600+q*60+r)));

[РезедаМуратова]

Спасибо, но я уже так делала изначально, но у меня возникла такая проблема и я все заменила на то, что вы уже видели. Знаний по программированию у меня минимальный, помогите пожалуйста почему возникает такая ошибка.

[РезедаМуратова]

Спасибо большое

[WorldMaster]

Потому что типы должны быть целочисленные а не Extended.
Есть же волшебная кнопочка f1 она открывает хелп по методам и операторам.

[evg_m]

Var m,n,k,z,p,q,r,y,u:extended; integer;

[min@y™]

у меня завалялось тут...

36.png

З.Ы. Delphi 7 на windows 10 в 2018 году - это половое извращение.

[РезедаМуратова]

А если вычитать в прошедшем времени?

procedure TForm1.Button1Click(Sender: TObject);
Var m,n,k,p,q,r:word;
begin
Memo1.Lines.Add('Текущее показания: '+Edit1.Text+' часов '+Edit2.Text+' минут '+Edit3.Text+' секунд ');
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
k:=StrToInt(Edit3.Text);
p:=StrToInt(Edit4.Text);
q:=StrToInt(Edit5.Text);
r:=StrToInt(Edit6.Text);
if (p and q and r)>0 then
Memo1.Lines.Add('Новое время: '+FormatDateTime('hh:mm:ss',IncSecond(EncodeTime(m,n,k,0),p*3600+q*60+r))) else
Memo1.Lines.Add('Новое время: '+FormatDateTime('hh:mm:ss',IncSecond(EncodeTime(m,n,k,0),p*3600-q*60-r))) ;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['0'..'9','<','-',#8])then
 begin
 key:=#0; end;
 //if not (key in ['0'..'9','-','.',',',#8]) then key:=#0;
end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9','<','-',#8])then
 begin
 key:=#0; end;
 //if not (key in ['0'..'9','-','.',',',#8])then key:=#0;
end;

procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['0'..'9','<','-',#8])then
 begin
 key:=#0;end;
 //if not (key in ['0'..'9','-','.',',',#8]) then key:=#0;
end;

[РезедаМуратова]

Здравствуйте.
Задача:
Текущее показание электронных часов: m ч (0 < m < 23) n мин (0<n<59) k сек (0<k<59). Какое время будут показывать часы через p ч q мин r с?
Задача как сделать обратный счет, то есть, вычитание (сколько было).
код:
Хочу сделать вычитание от текущего времени, но он это делает не корректно
так если на часах сейчас 10:10:10 и мы хотим узнать сколько было -3:-15:-70, то он должен по идее вывести 6:54:00, а выводит 5:22:16. Не могу отредактировать правильно :

procedure TForm1.Button1Click(Sender: TObject);
Var m,n,k,p,q,r:word;
begin
Memo1.Lines.Add('Текущее показания: '+Edit1.Text+' часов '+Edit2.Text+' минут '+Edit3.Text+' секунд ');
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
k:=StrToInt(Edit3.Text);
p:=StrToInt(Edit4.Text);
q:=StrToInt(Edit5.Text);
r:=StrToInt(Edit6.Text);
if (p and q and r)>0 then
Memo1.Lines.Add('Новое время: '+FormatDateTime('hh:mm:ss',IncSecond(EncodeTime(m,n,k,0),p*3600+q*60+r))) else
Memo1.Lines.Add('Новое время: '+FormatDateTime('hh:mm:ss',IncSecond(EncodeTime(m,n,k,0),p*3600-q*60-r))) ;
end;
 
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['0'..'9','<','-',#8])then
 begin
 key:=#0; end;
 //if not (key in ['0'..'9','-','.',',',#8]) then key:=#0;
end;
 
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9','<','-',#8])then
 begin
 key:=#0; end;
 //if not (key in ['0'..'9','-','.',',',#8])then key:=#0;
end;
 
procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['0'..'9','<','-',#8])then
 begin
 key:=#0;end;
 //if not (key in ['0'..'9','-','.',',',#8]) then key:=#0;
end;
 
end.