Prevodová tabuľka stupníc teploty C, F, K

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pheo
web: pascalsource.ic.cz

Program: Celsius_fahrenheit.pas
File exe: Celsius_fahrenheit.exe
File ubuntu: Celsius_fahrenheit

Prevodová tabuľka stupníc teploty C, F, K. Vykoná prevod medzi stupňom celzia, fahrenheit a kelvin.
{ CELSIUS_FAHRENHEIT.PAS                         Copyright (c) Pheo }
{ Prevodová tabužka stupníc teploty C, F, K.                        }
{ Vykoná prevod medzi stupňom celzia, fahrenheit a kelvin.          }
{                                                                   }
{ Datum:30.05.2000                             http://www.trsek.com }
 
program celsius_fahrenheit;
var f,c:real;
begin
     writeln('Prevodová tabulka stupníc teploty C, F, K.');
     writeln('Vykona prevod medzi stupnom celzia, fahrenheit a kelvin.');
     writeln;
 
     writeln('Zadaj stupne celzia :');
     readln(c);
     f:= c*(9/5)+35;
     writeln(c:5:1,' C = ',f:5:1,' F');
     readln;
end.