Archivo diario: septiembre 27, 2007

Convertir grados Celsius a Farenheit en Turbo Pascal

PROGRAM FARENHEI; {*TURN DEGREE CELSIUS IN FARENHEIT*} USES CRT; VAR C,F:REAL; BEGIN CLRSCR; WRITE(‘Ingrese temperatura en grados Celsius: ‘); READLN(C); WRITELN; WRITELN; WRITELN; WRITE(‘La temperatura ingresada corresponde a ‘, (9/5)*C+32:2:1, ‘ ºF’); READKEY; END.   Tags: Pascal Celsius Farenheit Anuncios

Publicado en Turbo Pascal | Etiquetado , , | 4 comentarios