 | La procedura è scritta
in Pascal:
 | organizza le informazioni necessarie alla stampa
dell'Ora a partire dai valori forniti dalla Funzione OraIN, inclusa in questa libreria. |
|
Codice Sorgente |
|
 |
 |
 |
PROCEDURE
Ora(riga,colonna,testo,sfondo,come:integer);
s:string;
Ora,Minuti,Secondi,Centesimi:Word;
BEGIN
textcolor(testo);
textbackground(sfondo);
gotoxy(colonna,riga);
OraIN (Ora,Minuti,Secondi,Centesimi);
str(Ora,s); IF length(s)=1 THEN s:='0'+s;
write(s,':');
str(Minuti,s); IF length(s)=1 THEN s:='0'+s;
write(s);
IF (come=0) OR
(come=1) THEN
begin
str(Secondi,s); IF length(s)=1 THEN s:='0'+s;
write(':',s);
IF come=1 THEN
begin
str(Centesimi,s); IF length(s)=1 THEN s:='0'+s;
write('.',s);
end;
end;
END;
|
|
