04-12-2004, 19:52
|
|
|
חבר מתאריך: 22.03.02
הודעות: 478
|
|
מוזר שלא קיבלת TYPE MISTMACH
SecsFlight:=MinFlight mod 60;
MinFlightB:=trunc(MinFlight/60);
אתה משתמש במשתנים מסוג ממשי לצורך פעולות במס' שלמים, ואתה מאכסן מס' שלמים בתוך משתנים ממשיים, בקיצור עשית פה סלט גדול של סוגי משתנים...
גם בהדפסה לא שמת הגדרת גודל... זה ירשום לך מס' ענקיים לדוגמא:
5.000000000000000000000000e+00:2.40000000000000000 0000000000e+01:1.30000000000000000000e+1
וכו'. כדאי מאד שתגביל:
Writeln('the time of the landing is:',HourAfter:2:0,':',MinAfter:2:0,':',SecsAfter: 2:0);
בקיצור תעבור שוב על התוכנית שלך ותבדוק אותה טוב טוב...
|