أين الخطأ 3 - نسخة قابلة للطباعة

أين الخطأ 3 - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : أين الخطأ 3 (/showthread.php?tid=9321)

أين الخطأ 3 - chamsderreche - 14-04-2018

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

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

RE: أين الخطأ 3 - محمد الدرة - 15-04-2018

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

RE: أين الخطأ 3 - chamsderreche - 15-04-2018

(15-04-2018, 05:34 PM)محمد الدرة كتب :
كود :
procedure TForm1.Button1Click(Sender: TObject); var a :integer; begin a:=strtoint(inputbox('a','a','0')); messagebox(inttostr(a*a)); end;

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

RE: أين الخطأ 3 - rahiche - 15-04-2018

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

RE: أين الخطأ 3 - chamsderreche - 16-04-2018

(15-04-2018, 08:25 PM)rahiche كتب : عندي تعقيب بسيط فقط :
"هذه اخطاء يتم كشفها باستخدام الكومبايلر لا اضن يتم تسميتها تحديات او تمارين "
بالتوفيق

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

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

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

RE: أين الخطأ 3 - youryour - 16-06-2023

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; 

(16-04-2018, 10:48 PM)chamsderreche كتب :
(15-04-2018, 08:25 PM)rahiche كتب : عندي تعقيب بسيط فقط :
"هذه اخطاء يتم كشفها باستخدام الكومبايلر لا اضن يتم تسميتها تحديات او تمارين "
بالتوفيق
ما رأيك لو وضعت لك هذا الكود

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

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