Tugas Algoritma & Pemrograman 2A_No 5

uses wincrt;
var
input: real;
c, f, r: real;
suhu: char;
nilai: real;
back: char;
Celcius, Reamur, Fahrenheit: real;
label 100;

begin

100:
write(’Masukkan Jenis Suhu Celcius/ Fahrenheit/ Reamur (c/f/r) : ‘);
readln(suhu);

if(suhu <> ‘c’)then
if(suhu <> ‘f’)then
if(suhu <> ‘r’)then

begin
writeln(’Jenis suhu yang anda masukan salah, silahkan coba kembali’);
writeln;
goto 100;
end;

begin
write(’Masukkan nilai : ‘);
read(nilai);
readln;
end;

if(suhu = ‘c’)then
begin
f:=(angka * 9/5) + 32;
r:=angka * 4/5;
writeln(’Hasil konversi suhu : Celcius’);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘f’)then
begin
c:=(angka * 5/9);
r:=(angka * 4/9) + 32;
writeln(’Hasil konversi suhu : Fahrenheit’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘r’)then
begin
c:=angka * 5/4;
f:=(angka * 9/4) + 32;
writeln(’Hasil konversi suhu : Reamur’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
end;

write(’Apakah Anda Ingin Kembali? (y/n) : ‘);
readln(back);

if(back=’n’)then
goto 100

end.