Помогите пожалуйста с расчетами ....

[Sashko]

Всем добдрого времени суток
Вообшем есть такая проблема - написал прогу , она должна подсчитывать за сколько времени наберетса н-количество ресурсов (это я для одной игры хочу написать прогу) Тоесто там такая система : Сначала мы вводим сколько ресурсов мы делаем за 1 час . потом сколько у нас есть этого ресурса , а потом сколько нам надо ... и прога должна подсчитать за сколько времени ( я хочу сделать часы:минуты ) мы сможем иметь заданое количество ресурса .... но я чето немогу додуматса как так зделать , чтобы точно показывало сколько надо часов : минут .Вот моя прога , которую надо отредактировать :

[deleted]

Очень прошу , помогите !!! Ато уже неделю сижу и хз как нормально ее зделать . чтобы нормально показывала чч:мм ......
Заранее благодарен .

[lexus_ilia]

Для точности использовал тип real...

program Resourse_Calculator;
uses
 crt;
var
 m:integer;
 x,y,z,b:real;
begin
 clrscr; 
 writeln ('CKoLbKo PeCyPCoB 3a 1 4aC');
 read (x);
 writeln ('CkOLbKo Ceu4aC');
 read (y);
 writeln ('CkoLbKo Hy}l{Ho');
 read (z);
 b:=x/3600; {B ceKyHDy PecyPCoB}
 b:=(z-y)/b; {CKoLbKo HyjHo CeKyHd}
 b:=b/60; {nepBeDeM B MuHyTbl}
 m:=0;
 while b>=60 do
 begin
  inc(m);
  b:=b-60;
 end;
 Writeln('4tobbl noLy4uTb ' ,z:6:0, ' PeCyPCoB Bam Hy}l{Ho ' ,m, ':' ,b:2:0);
 Write('(4aCoB:MuhyT)');
 readkey;
end.

[Sashko]

Да ты гений Огромное тебе спасибо !

[lexus_ilia]

Единственное что я не учёл, так это переход от 24 часам к 1-му дню, если тебе это надо то можно сделать...

[Sashko]

Сообщение от lexus_ilia

Единственное что я не учёл, так это переход от 24 часам к 1-му дню, если тебе это надо то можно сделать...

давай , если не трудно конешно

Заранее пасиб !


Кстати , что это за такая интересная строчка : " inc(m) " .Что за "inc" ? Это как бы including ( этот типа включно) ?

[Ламер_001]

инкремент, т.е. увеличение на 1

[sverhuVniz]

вставь это перед выводом
...
if b>= 24 then begin
while b>=24 do
begin
b:=b-24;
k:=k+1;{k это кол-во суток}
end;
end;
...

выводишь теперь и число K

[sverhuVniz]

хотя можно и без if

[Sashko]

Сообщение от sverhuVniz

вставь это перед выводом
...
if b>= 24 then begin
while b>=24 do
begin
b:=b-24;
k:=k+1;{k это кол-во суток}
end;
end;
...

выводишь теперь и число K

Это походу не верно :
например если у меня вийдет 176 часов , то когда исполнитса этот цыкл покажет : 1 сутка и 152 часа ...

[sverhuVniz]

Сообщение от Sashko

Это походу не верно :
например если у меня вийдет 176 часов , то когда исполнитса этот цыкл покажет : 1 сутка и 152 часа ...

всё верно


часы будут уменьшаться (на 24*кол суток) если есть целые сутки