20-03-2015, 06:41 PM
كود :
procedure TForm1.Button1Click(Sender: TObject);
var a,r,c,h :real;
const p=3.14;
begin
r:=strtofloat(edit1.text);
a:=sqr(r)*p;
Label3.Caption:=floatToStr(a);
end;
procedure TForm1.Button3Click(Sender: TObject);
var h,c,a :real;
begin
h:=strtofloat(edit2.text);
c:=[color=Red]a[/color]*h;
Label7.Caption:=floatToStr(c);
end;في الإجراء الثاني لم يتم وضع قيمة المتغير a
فكل إجراء له متغيراتها الخاصة به وهي من نوع متغيرات محلية وليست عامة (بفتراض انك قرأت كتاب يشرح اساسيات باسكال)