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:

Esta entrada fue publicada en Turbo Pascal y etiquetada , , . Guarda el enlace permanente.

4 respuestas a Convertir grados Celsius a Farenheit en Turbo Pascal

  1. Hiram dijo:

    Hola m podrían pasar el seudocodigo algoritmo, y diagrama de flujo de la misma, gracias me seria de mucha ayuda

  2. Convertidor dijo:

    Buen script, tendras algun otro convetidor en turbo pascal me gustaria armar una aplicacion propia que reuniera muchos convertidores, en areas, aceleracion, temperatura, fuerza, distancia, etc.

    gracias

    • flomana dijo:

      Ese script era de cuando cursaba Programación estructurada. No creo tener más convertidores. Todos los ejercicios en Pascal y en Python. Me había interesado mucho el tema de los números primos. Saludos

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s