רוטר - תגידו לי בבקשה איך אני יכול לשפר את התוכנית

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"תגידו לי בבקשה איך אני יכול לשפר את התוכנית"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #8362	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 8362

Shrek

16:53 22.11.02

תגידו לי בבקשה איך אני יכול לשפר את התוכנית

השאלה היא כזאת כפי שכתוב:
כתוב תוכנית המגרילה מספר אקראי בין 10-20 ומבצעת את הפעולות הבאות:
א.מחשבת את שורש המספר
ב. בודקת את שורש המספר שהוגרל ואם יוצא מספר שלם היא מציגה כפלט את ההודעה "שורש המספר הוא שלם" אחרת היא מציגה "שורש המספר המוגרל הוא מספר ממשי"
עצות תגובות ותודה רבה לכם
http://rotter.net/User_files/nor/3dde44817ad079dd.jpg

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
אתה פשוט יכול לקצר בכתיבה, וגם לתקן כמה דברים	Dudenland	23.11.02 18:57	1
טעות חמורה!!	gil_soffer1	24.11.02 00:23	2
צודק בהחלט !!!	Dudenland	24.11.02 11:38	3

Dudenland

18:57 23.11.02

1. אתה פשוט יכול לקצר בכתיבה, וגם לתקן כמה דברים
בתגובה להודעה מספר 0

Program Random3;
Var
Num : Real;
Begin
Randomize;
Num:=Sqrt(Random(11)+10);
WriteLn('The Num Square Root Is: ', Num);
If (Num Mod 1) = 0 Then
Writeln('The Num Square Root Is Integer')
Else
WriteLn('The Num Square Root Is Real')
End.

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

gil_soffer1

00:23 24.11.02

2. טעות חמורה!!
בתגובה להודעה מספר 1

אסור אסור אסור להשתמש בDIV או MOD עם מספרים ממשיים והפונקציה SQRT מחזירה ערך REAL.
אפשר לבדוק אם מה שאחרי הנקודה שווה ל0 ע"י הפונקציה Frac

Program Random3;
Var
Num: Real;
Begin
Randomize;
Num:= Sqrt(Random(11) +10);
WriteLn('השורש הוא: ', Num);
If Frac(Num) = 0 Then
Writeln('השורש שלם')
Else
WriteLn('השורש ממשי');
End.

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

Dudenland

11:38 24.11.02

3. צודק בהחלט !!!
בתגובה להודעה מספר 2

סליחה, טעות שלי...

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד