tugas pascal no 5

uses wincrt;
var input:real;
c, f, r:real;
suhu:char;
angka:real;
puas: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 ulangi sekali lagi’);
writeln;
goto 100;
end;

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

if(suhu = ‘c’)then
begin
f:=(angka * 9/5) + 32;
r:=angka * 4/5;
writeln(’Hasil konversi dari 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 dari 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 dari suhu : Reamur’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
end;

write(’Apakah Anda puas? (y/n) : ‘);
readln(puas);

if(puas=’n')then
goto 100

end.