Question

9 Napisz program, który przelicza temperatury pomiędzy Celsjuszem, Kelwinem i Fahrenheitem. Użytkownik wpisuje temperaturę, a następnie wybiera informację, w jakich stopniach została podana. W wyniku otrzymuje informację o tym, jakie wartości ma ta temperatura w pozostałych jednostkach. Aby dokonać przeliczeń, musisz wiedzieć, że Temperatura w kelwinach = Temperatura w stopniach Celsjusza + 273,15 Temperatura w fahrenheitach = 32 + (9.0/5.0) * Temperatura w stopniach Celsjusza

Answer 1

Program znajduje się w załączniku.

 

 

 

 

Dodatkowo dodaję kod źródłowy:

 

program temperatury;
uses crt;
var a:real;
b:string;
begin
clrscr;
gotoxy(6,1);
writeln('Program konwertujĄcy podstawowe jednostki temperatury.');
writeln('');
write('Podaj wartosc temperatury: ');
readln(a);
write('Podaj, w jakiej jednostce zostala wprowadzona wartosc (wpisz: C/K/F): ');
readln(b);
writeln('');
if (b='C') or (b='c') then
begin
writeln('Zostala podana temperatura: ',a:0:2,' `C.');
writeln('Ta temperatura w innych jednostkach:');
writeln('',(a+273.15):0:2,' K;');
writeln('',(a*9/5+32):0:2,' `F.');
end;
if (b='F') or (b='f') then
begin
writeln('Zostala podana temperatura: ',a:0:2,' `F.');
writeln('Ta temperatura w innych jednostkach:');
writeln('',((a-32)*5/9):0:2,' `C.');
writeln('',((a-32)*5/9+273.15):0:2,' K.');
end;
if (b='K') or (b='k') then
begin
writeln('Zostala podana temperatura: ',a:0:2,' K.');
writeln('Ta temperatura w innych jednostkach:');
writeln('',(a-273.15):0:2,' `C;');
writeln('',((a-273.15)*9/5+32):0:2,' `F.');
end;
writeln('');
write('Zadane.pl, 02.10.2011 r.');
readln;
end.