רוטר - בוקר טוב לכולם.. בעיה בפסקל עם בידוד שבר

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

"בוקר טוב לכולם.. בעיה בפסקל עם בידוד שבר"

גירסת הדפסה

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

אשכול מספר 8852

InSaNe R

07:23 15.01.03

בוקר טוב לכולם.. בעיה בפסקל עם בידוד שבר

קיבלתי שאלה במבחן שבה אני נדרש לבודד את השבר 1.5
כלומר לגרום לכך שישאר רק 0.5 כמו הפונקציה frac
אבל בלי להשתמש בה מסיבה כלשהיא...
איך אני עושה את זה?
תודה מראש..

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
אולי ככה ?	Dudenland	15.01.03 10:31	1
ממש לא.....	Quant86	15.01.03 22:42	2
דרך מעניינת לעגל כלפי מעלה	liranr	16.01.03 15:15	3
אפשר...	gil_soffer1	16.01.03 23:40	4

Dudenland

10:31 15.01.03

1. אולי ככה ?
בתגובה להודעה מספר 0

function Frac2(num) : real;
begin
Frac2:=abs(num - (num div 1));
end;

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

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

Quant86

22:42 15.01.03

2. ממש לא.....
בתגובה להודעה מספר 1

כי גם אם התכוונת לחלק ב 10, אתה מוריד ספרה אחרונה, ועוד משתמש בDIV על מספר שהוא לא מוגדר כשלם, בקיצור בלאגן עשית
הדרך הכי ישרה היא לעגל כלפי מעלה את המס' ולהוריד את מה שעיגלנו מהמס' עצמו
frac:= num - round(num +0.5) -1

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

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

liranr

15:15 16.01.03

3. דרך מעניינת לעגל כלפי מעלה
בתגובה להודעה מספר 2

אבל הרבה יותר פשוט לעגל כלפי מטה בעזרת trunc, ואז

frac := num - trunc(num)

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

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

gil_soffer1

23:40 16.01.03

4. אפשר...
בתגובה להודעה מספר 0

Function frac2(num: real): real;
Begin
If num < 0 Then num = -num;
While num >= 1 Do num = num -1;
frac2 = num;
End;

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

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