berikut adalah listing program yang dapat mengkonversi dari celcius ke fahrenheit dan ke reaumur.

program suhu;
uses crt;
var celcius : integer;
    reamur,fahrenhait : real;
begin
     clrscr;
     writeln('Program konversi suhu');
     writeln('---------------------');
     write('Suhu dalam celcius : ');readln(celcius);
     reamur:=4/5*celcius;
     fahrenhait:=9/5*celcius+32;
     writeln('Suhu dalam reamur=',reamur:5:2);
     writeln('Suhu dalam fahrenhait= ',fahrenhait:5:2);
     readln;
end.

...
Continue reading ...

Mungkin sebelumnya saya memosting Asscii viewer yang berguna untuk menampilkan hasil dari kode asscii ke charakter, nah rekan-rekan dapat mengonvert dari asscii ke charakter atau sebaliknnya. berikut source kode pada pascal:


PROGRAM ASSCIICHAR;
USES crt;
var i,j: char;
k : integer;
label akhir;
begin
clrscr;
repeat;
writeln;
writeln;
writeln;
writeln('1. ascii to char');
writeln('2. char to ascii');
write('input pilihan, ' + chr(39) + 'Q' + chr(39) +' untuk keluar : ');
j := readkey ;
j := upcase(j);
if j = '...
Continue reading ...