Delphy 7

[Ivan94]

помогите сделать

Начав тренировки спортсмен в первый день пробежал 10км. каждый следующий день он увеличивал длину пробега на 10% от норма предыдущего дня. на какой день спортсмен будет пробегать 20км? на какой день суммарный путь будет больше 100км?

[AlexMas]

daylim:=10;
alllim:=10;
d:=1;
b:=true;
b1:=b;

while b or b1 do
begin
   daylim:=daylim+daylim*0.1;
   alllim := alllim + daylim;
   Inc(d);
   if (daylim>=20) and b then  begin d1:=d; b:=false; end;
   if (alllim>=100) and b1 then begin d2:=d; b1:=false; end;
end;
ShowMessage('20 км будет пробегать на : ' + IntToStr(d1)+' день');
ShowMessage('100 км пробежит на : ' + IntToStr(d2)+' день');

[Ivan94]

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

daylim:=10;
alllim:=10;
d:=1;
b:=true;
b1:=b;

while b or b1 do
begin
   daylim:=daylim+daylim*0.1;
   alllim := alllim + daylim;
   Inc(d);
   if (daylim>=20) and b then  begin d1:=d; b:=false; end;
   if (alllim>=100) and b1 then begin d2:=d; b1:=false; end;
end;
ShowMessage('20 км будет пробегать на : ' + IntToStr(d1)+' день');
ShowMessage('100 км пробежит на : ' + IntToStr(d2)+' день');

я не поннимаю как это залить в Delphi

[AlexMas]

Запустить Delphi, добавить на форму кнопку, дважды кликнуть по ней. В обработчик вставить код.

И не забыть объявить переменные.Перед begin в обработчике вставить:

var
daylim, alllim: float;
d,d1,d2: integer;
b,b1: boolean;

[Ivan94]

вообще ничего не получается
закинь пожалуйста исходник

[Valio]

Мне кажется там надо and поставить. В противном случае while будет прерываться как только b = false. А это наступит при daylim>=20 и тогда не узнаем "на какой день суммарный путь будет больше 100км".

[Ivan94]

у меня вообще ни чего не работает

[AlexMas]

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

Мне кажется там надо and поставить. В противном случае while будет прерываться как только b = false. А это наступит при daylim>=20 и тогда не узнаем "на какой день суммарный путь будет больше 100км".

неа:
если b(true) или b1(true) = true - заходим
если b(false) или b1(true) = true - заходим
если b(true) или b1(false) = true - заходим
если b(false) или b1(false) = false - не заходим

=)

З.Ы.: и сотню километров всего(8 день), он набирает быстрее, чем 20 км за день(9 день) =)

[Ivan94]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }

end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
s:real;
begin
s:=10;
i:=1;
repeat
i:=i+1;
s:=s+s*0.10;
until s>=20;
label1.Caption:='Спортсмен пробежит больше 20км на '+IntTOStr(i)+' день';
end;
end.

как сделать чтобы с кнопки запускалось (что надо прописать)

[AlexMas]

Добавить на форму кнопку и дважды на ней кликнуть. В код добавится процедура обработки TForm1::Button1Click. В ней и писать.