|
var
X : Integer;
Y : Integer;
Z : Integer;
S : Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
X := 0;
Y := 0;
Z := 0;
S := 0;
Edit1.Text := '0';
Edit2.Text := '0';
Edit3.Text := '0';
Edit4.Text := '0';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
X:=StrToInt(Edit1.Text);
Y:=StrToInt(Edit2.Text);
Z:=StrToInt(Edit3.Text);
S:=StrToInt(Edit4.Text);
X :=( ( (Y*Z)+100 ) div S)*100;
Edit1.Text := IntToStr(X);
end;
Если в калькуляторе посчитать, одно получается, он считаеть подругому 8( И потом напиши пожалуйста пример с проверкой if... Что-то он там на несоответствие типов boolean, опять ругается!
|