Localize file www.TrSek.com/zadania/celsius_fahrenheit.pas

{ 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.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com