помогите найти ошибку

[Lady_Ann]

Язык программирования Delphi. Программа должна считать площадь и периметр прямоугольника. Но получается либо площадь, либо периметр(((
помогите найти ошибку в коде:

procedure TForm1.CalcButtonClick(Sender: TObject);
var a,b,c,d: real;
s: string; code: integer;
begin
val(Edit1.Text,a,code);
val(Edit2.Text,b,code);c:=a*b; d:=(a+b)*2;
str(c:-10:4,s);
Label5.Caption:=s;
Label7.Caption:=s;
end;

собственно за остальную часть программы я спокойна. но эта вызывает сомнения

Comments

[mikluho]

Я делфу не знаю, но имхо,

str(c:-10:4,s);
Label5.Caption:=s;
Label7.Caption:=s;
end;

надо заменить на

str(c:-10:4,s);
Label5.Caption:=s;
str(в:-10:4,s);
Label7.Caption:=s;
end;

или как-то так

[Lady_Ann]

mikluho пасибо большое))) прога заработала

[mikluho]

Lady_Ann, а всего-то надо было вывести на форму оба рассчитанных значения, а не одно

[Lady_Ann]

mikluho )) понятно))) впредь буду внимательней