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;(15-04-2018, 05:34 PM)محمد الدرة كتب : [ -> ]اجابة صحيحة 100%كود :procedure TForm1.Button1Click(Sender: TObject); var a :integer; begin a:=strtoint(inputbox('a','a','0')); messagebox(inttostr(a*a)); end;
(15-04-2018, 08:25 PM)rahiche كتب : [ -> ]عندي تعقيب بسيط فقط :ما رأيك لو وضعت لك هذا الكود
"هذه اخطاء يتم كشفها باستخدام الكومبايلر لا اضن يتم تسميتها تحديات او تمارين "
بالتوفيق
begin
a:=inputbox('a',a=','0');
showmessage(floattostr(sqrt(a)));
end;procedure TForm1.Button1Click(Sender: TObject);
var
a: Integer;
begin
a := StrToInt(InputBox('Enter a value', 'a', '0'));
ShowMessage(IntToStr(a * a));
end;
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 يجب أن يكون موجبا أي يجب اضافة الشروط
هذه التحديات بدأت بها للمبتدئين لأني جديد في المنتدى انتظر أن أصير مبرمجا محترفا أو نحو الاحتراف ولن يستطيع أحد حل أي من تماريني شكرا على التعقيب