מחר יש לי מבחן, ועשיתי תוכנית כדי לחזור למבחן (התרגיל היה במחברת)
התוכנית מקבלת זמן מדוייק (שעה דקה ושניות) של זמן ההמראה של מטוס, ומקבלת רק את השניות של זמן הטיסה, והתוכנית צריכה להחזיר את השעה המדוייקת שהוא נחת
זאת התוכנית שעשיתי (לקח לי מאה שנה להבין איך לעשות את זה):

Program Weird;
Var Sec,Min,Hour,MinFlight,SecsFlight,MinFlightB,HourF light,HourAfter,MinAfter,SecsAfter,Dada : Real;
Begin
Writeln('Please Specify the exact time of takeoff');
Read(Hour,Min,Sec);
Writeln('Please Specify the minutes of the whole flight');
Read(MinFlight);
MinFlightB:=trunc(MinFlight/60);
HourFlight:=(MinFlight/60)/60;
SecsFlight:=MinFlight mod 60;
If MinFlightB>60 then begin
MinFlightB:=MinFlightB/60;
HourFlight:=HourFlight+MinFlightB;
end;
If HourFlight>24 then HourFlight:=HourFlight-24;
If SecsFlight>60 then begin
SecsFlight:=SecsFlight/60;
MinFlightB:=MinFlightB+SecsFlight;
end;
HourAfter:=Hour+HourFlight;
MinAfter:=Min+MinFlightB;
SecsAfter:=Sec+SecsFlight;
Writeln('the time of the landing is:',HourAfter,':',MinAfter,':',SecsAfter);
End.

זאת השגיאה שאני מקבל
c:\untitled454.pas:10: invalid operands to binary `mod'
הבנתי שזאת שגיאת אופרנד
אני יודע אופרנד אופרטור אופרנד, ו
MinFlight
יוצא מספר מסויים משמע הוא אופרנד ככה שאני לא מבין מה הבעיה
אולי בגלל ששמתי
MOD
במשתנה שהוא REAL?
ניסיתי לשים גם ב
INTEGER
אבל עדיין אותה בעייה

I sit and I stare
I know that I'll soon go mad
In my solitude
I'm praying
Dear lord above

נראה לי ש-SecsFlight חייב להיות Integer.

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);

בקיצור תעבור שוב על התוכנית שלך ותבדוק אותה טוב טוב...