Help in Pascal

[[email protected]]

Katarxas KalHspera sas............

 

Defteron....... exw arxHsei edw kai ea mHna na ma8enw apo to sxoleio mou thn Glwsa programatismou Pascal.................. (ara eimai teliws arxarios wpos katalabate:-?) kai 8a H8ela thn BoH8eia sas se mia kapws Geleia askHsH pou mas edwsan na LYsoume............

 

"Na Grafei Programma pou 8a diabazei to xrono se SEC kai 8a BrHskei ton idio Xrono se ---> hh:mm:ss"

 

kai edwsa Thn parakato LysH:

 

>
Program Secconds;
uses Wincrt;
Var Sec:integer;
Var Hour, min, Secc:real;
Begin

Writeln('Give the Secconds');
Read(sec);
Hour:= Sec div 3600;
min:=sec mod 60;
Sec:= Hour mod min;
Write(Hour, ':', min, ':', Secc);
end.

Peste mou.... Giati exw tHn enThpwsH oti exw kanei kapio megalo la8os............( Shgoura kati mou ksefHge......) (pantos o Compiler to Metafrazei mia Xara:confused:) PLZ re pedia Help:?

[Exiled2]

Μήπως αντί για Sec:= Hour mod min; πρέπει να βάλεις Secc:= Hour mod min; ?

[[email protected]]

wx sori TypograFiko la8os ... alla etc to exw kanei

[Exiled2]

Μήπως από το Hour πρέπει να κρατήσεις μόνο το ακέραιο μέρος και το δεκαδικό να το αναλύσεις σε min και αντίστοιχα μετά το min σε secc?

[[email protected]]

Diladi....=..... Secc:= min mod 60; .....????????

[Exiled2]

τα min μπορούν να βγούν σαν min=(sec mod 3600) div 60;

 

Δεν έχω κάποιον compiler τώρα και τα γράφω λίγο ξεκρέμαστα, ελπίζω να μην κάνω λάθος.

Θύμισέ μου, div είναι η διαίρεση ή το ακέραιο μέρος της διαίρεσης?

[[email protected]]

Se efxaristw pantos 8a to prospa8isw egw an dw kana la8os 8a kanw kana new post

[Exiled2]

και το secc=sec mod 60;

[[email protected]]

eleos .... mou Bgazei sth line Secc:=.......... error "MOD ZerO" ti Fteei?

 

eleos .... mou Bgazei sth line Secc:=.......... error "MOD ZerO" ti Fteei?

 

op ShgnomH den Hda to Deftero POST sou..... twra eftiakse thx pragmatika re file

[Exiled2]

και οι μεταβλητές να είναι integer όχι real

[smilefreeware]

Hour:= Sec div 3600;

min:=(Sec-3600*Hour) div 60;

Sec:=Sec-3600*Hour-60*min;