Proceduros

Sudarykite procedura duotajam skaiciui pakelti nurodytu laipsniu.

Laikrodis rodo laika, kuri isreiskia triju kintamuju reiskmes: valandos (12-os valandu skaleje), minutes ir sekundes. Sudarykite procedura, kuri pakeistu kintamuju reiksmes taip, kad jos reikstu laika po sekundes.

Kas gal galit help sitas dvi programikes? :}

pirmajam tai su for ir daugini.

antajam

laikas:=h*3600+min*60+s+2;

h:=laikas div 3600;

laikas:=laikas mod 3600;

ir t.t :D

laikas:=h*3600+min*60+s+2;

h:=laikas div 3600;

laikas:=laikas mod 3600;

ir t.t :D

Aš tai taip parašiau:

procedure po_sekundes(var val, min, sek: integer);
begin
sek := sek + 1;
min := min + sek div 60;
sek := sek mod 60;
val := val + min div 60;
min := min mod 60;
val := val mod 12;
end;