+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : أين الخطأ (/showthread.php?tid=9306)
أين الخطأ - chamsderreche - 06-04-2018
السلام عليكم،
هناك خطأ في هذا الكود حاولوا اكتشافه مدة التمرين يوم واحد والله ولي التوفيق
PHP كود :
procedure squareroot(a : Integer);
begin
showmessage(inttostr(sqrt(a)));
end;
end.
RE: أين الخطأ - مبرمج حر - 06-04-2018
sqrt ترجع float
RE: أين الخطأ - chamsderreche - 07-04-2018
(06-04-2018, 10:20 PM)مبرمج حر كتب : sqrt ترجع float
حل صحيح 100% فيصبح الكود هكذا
PHP كود :procedure squareroot(a : Integer);
begin
showmessage(floattostr(sqrt(a)));
end;
end.