أين الخطأ 3

[chamsderreche]

السلام عليكم
أين الخطأ في هذا الكود مدة التمرين يوم واحد

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var a :integer;
begin
a:=inputbox('a','a','0')
messagebox(a*a);
end; 


[محمد الدرة]

كود :

procedure TForm1.Button1Click(Sender: TObject);
var a :integer;
begin
a:=strtoint(inputbox('a','a','0'));
messagebox(inttostr(a*a));
end;

[chamsderreche]

كود :

procedure TForm1.Button1Click(Sender: TObject);
var a :integer;
begin
a:=strtoint(inputbox('a','a','0'));
messagebox(inttostr(a*a));
end;

اجابة صحيحة 100%

[rahiche]

عندي تعقيب بسيط فقط :
"هذه اخطاء يتم كشفها باستخدام الكومبايلر لا اضن يتم تسميتها تحديات او تمارين "
بالتوفيق

[chamsderreche]

عندي تعقيب بسيط فقط :
"هذه اخطاء يتم كشفها باستخدام الكومبايلر لا اضن يتم تسميتها تحديات او تمارين "
بالتوفيق

ما رأيك لو وضعت لك هذا الكود

كود :

begin
a:=inputbox('a',a=','0');
showmessage(floattostr(sqrt(a)));
end;

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

[youryour]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var 
  a: Integer;
begin
  a := StrToInt(InputBox('Enter a value', 'a', '0'));
  ShowMessage(IntToStr(a * a));
end; 


---

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var 
  a: Integer;
begin
  a := StrToInt(InputBox('Enter a value', 'a', '0'));
  if a = 0 then
    ShowMessage('a cannot be zero')
  else
    ShowMessage(IntToStr(a * a));
end; 


عندي تعقيب بسيط فقط :
"هذه اخطاء يتم كشفها باستخدام الكومبايلر لا اضن يتم تسميتها تحديات او تمارين "
بالتوفيق

ما رأيك لو وضعت لك هذا الكود

كود :

begin
a:=inputbox('a',a=','0');
showmessage(floattostr(sqrt(a)));
end;

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