Delphy 7

[Ivan94]

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

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

Что писать!

[AlexMas]

то, что было выше
Примерно так это должно выглядеть:

procedure TForm1.Button1Click(Sender: TObject )
var
daylim, alllim: float;
d,d1,d2: integer;
b,b1: boolean;
begin
  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)+' день');
end;

Delphi у меня на работе нет, поэтому проект скинуть не получится, набирал в блокноте =)

[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.
и я сюда добавил кнопку но незнаю что прописать(((

[BDA]

Что писать!

Тут нужно не написать, а мышкой перетащить кнопку из палитры компонентов на форму (или все написать в коде, но это чуть сложнее).

[Valio]

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

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

=)

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

Гы точно

Единственное там ошибка будет. Я думаю автору полезно будет её исправить самостоятельно )

[DCC Error] Unit1.pas(28): E2003 Undeclared identifier: 'float'

[Ivan94]

Вы меня серьёзно загрузили, я хочу сделать своим способом но у меня не получается привязать кнопку (ВЫПОЛНИТЬ)

[BDA]

Вот проект с кнопкой.

[Valio]

Вон у тебя в FormCreate написано. Ты нажимаешь F9 и происходит выполнение.

Или ты хочешь по нажатию на кнопке делать выполнение?
Тогда кинь на форму кнопку, щёлкни по ней два раза и скопируйю свой код в обработчик кнопки.

[Ivan94]

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

Вон у тебя в FormCreate написано. Ты нажимаешь F9 и происходит выполнение.

Или ты хочешь по нажатию на кнопке делать выполнение?
Тогда кинь на форму кнопку, щёлкни по ней два раза и скопируйю свой код в обработчик кнопки.

да я хочу чтобы программа начинала работать с нажатием кнопки, я просто не пойму какой код прописать(

[Valio]

Дык тебе дали код.

Кнопку кинул на форму? При двойном щелчке на ней тебя должно перекинуть в редактор кода, где будет написано:

procedure TForm1.Button1Click(Sender: TObject);
begin
// тут нужно писать код, который будет выполняться при нажатии на кнопку
end;

Вот между begin и end и нужно писать код. Для начала напиши там это:

ShowMessage('Я нажал кнопку.');

Работает?