مشكل في برمجة برنامج بسيط للمبتدئين

[مهند الرسيني]

يبدو انك تفتقر إلى أساسيات باسكال فعلا وهذا واضح من كتابتك للكود
على أي حال تفضل قمت بتعديل الكود الخاص بك ليعمل بالطريقة التي كتبتها في البداية :

PHP كود :

function CalcCircleArea(Nq, Ta : Extended):Extended;
begin
  Result := (sqr(Nq) * Ta);
end;

function CalcCylinderSize(CircleArea, AHigh : Extended):Extended;
begin
  Result := (CircleArea * AHigh);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  p = 3.14;
begin
  Label3.Caption := CalcCircleArea(StrToFloat(Edit1.text), p);
end;

procedure TForm1.Button3Click(Sender: TObject);
const
  p = 3.14;
begin
  Label7.Caption := CalcCylinderSize(CalcCircleArea(StrToFloat(Edit1.text), p),
                                     StrToFloat(Edit2.text));
end; 


في حال اردت شرحا لما يحصل فتوجه إلى قسم الكتب ونتقي كتاب لباسكال وبدا التعلم وسترى كيف تتضح الأمور من تلقائها
ونصيحة لك رتب كودك قدر المستطاع قبل ان تعتاد على هذه الطريقة في كتابة الكود وتندما لاحقا