Contoh Program Bahasa Pascal mengubah dejat celcius menjadi Fahrenheit

//Contoh Program Bahasa Pascal mengubah dejat celcius menjadi Fahrenheit

uses wincrt;
var
x:integer;
C,F:real;
begin
writeln('--------------------------');
writeln(' Celcius       Fahrenheit ');
writeln('--------------------------');
C:=0;
for x:=1 to 10 do
begin
F:=1.8* C +32;
writeln('|',C:5:2,F:15:2,'   |');
C:=C+0.25;
end;
writeln('--------------------------');
end.

=======================================================================

//Contoh membuat PROGRAM KONVERSI SUHU dengan menggunakan Program Bahasa Paskal

uses wincrt;
label
1,2,3,4,5,6,keluar;

var
ketik,ulang:char;
c:real;
begin
1:
writeln('PROGRAM KONVERSI SUHU');
WRITELN('---------------------');
writeln;
writeln;
writeln('Pilih menu berikut dengan menekan tombol [1..4]');
writeln('[1] Konversi Celcius ke Fahrenheit');
writeln('[2] Konversi celcius ke Reamur');
writeln('[3] Conversi Celcius ke Kelvin');
writeln('[4] Keluar Program');
writeln;
write('Nasukan Pilihan Anda: ');
readln(ketik);
if ketik ='1' then
begin
goto 2;
end;
if ketik ='2' then
begin
goto 3;
end;
if ketik ='3' then
begin
goto 4;
end;
if ketik ='4' then
begin
goto 6 ;
end;
{ TAMBAHAN JIKA USER TDK PILIH NO. PILIHAN / TDK MILIH SAMA SEKALI( ENTER ) MAKA:}

if (ketik='5') or (ketik='6') or (ketik='7') or (ketik='8') or
   (ketik='9') or (ketik='0') or not(ketik=' ') then
begin
goto 5 ;
end;


2:
clrscr;
writeln;
write('Masukan suhu dalam Celcius: ');
readln(c);
writeln(c:0:0,'  Celcius= ',(c*9/5)+32:0:0,' Fahrenheit');
writeln('tekan tombol sembarang untuk kembali ke menu...');
readln(ulang);
begin
goto 1;
end;
3:
clrscr;
writeln;
write('Masukan suhu dalam Celcius: ');
readln(c);
writeln(c:0:0,'  Celcius= ',(c*4/9):0:0,' Reamur');
writeln('tekan tombol sembarang untuk kembali ke menu...');
readln(ulang);
begin
goto 1;
end;
4:
clrscr;
writeln;
write('Masukan suhu dalam Celcius: ');
readln(c);
writeln(c:0:0,'  Celcius= ',(c+273):0:0,' Kelvin');
writeln('tekan tombol sembarang untuk kembali ke menu...');
readln(ulang);
begin
goto 1;
end;
5:
clrscr;
writeln;
writeln(' Maaf !!!!!');                 
writeln(' Anda SALAH memasukan Nomer Pilihan.');
writeln('      ----- ');                          
writeln('tekan tombol sembarang untuk kembali ke menu...');
readln(ulang);
begin
goto 1;
end;

6:
begin  
writeln;
writeln(' Anda keluar dari Program.');
write(' TERIMA KASIH.');

goto keluar;
end;
keluar:
end.