berikut merupakan suhu converter, namun disini menggunakan rentangan convertan sesuai inputan. namun saya hanya menampilkan celcius ke farenheit saja.


program tabelsuhu;
var f:real;
c1,c2,i, j: integer;
begin
write('masukkan suhu celcius awal : ');readln(c1);
write('masukkan suhu celcius akhir : '); readln(c2);
writeln('tabel conversi suhu');
writeln('-------------------------');
writeln('no   celcius  fahrenheit');
writeln('-------------------------');

j := 0;
for i := c1 to c2 do
begin
j := j+1;
f:= 1.8*i...
Continue reading ...

berikut listingnya:



program polindrom;
uses crt;
var kata,huruf,huruf1:string;
    i,j:integer;
begin
    write('Masukkan kata : ');readln(kata);
    j:=length(kata);
    writeln;
    huruf:='';
    for i:=1 to j do
    huruf:=huruf+kata[i...
Continue reading ...

OM SWASTIASTU, Punapi gatra? he...
baik rekan-rekan sekalian kali ini saya akan memberikan source code pascal yang dapat mendeteksi berapa jumlah huruf hidup, hurup mati serta angka, namun tanpa membaca spasi yang ada. dengan output sebagai berikut:




ini source codenya :


program carihurufhidupmatidanangka;
uses crt;
var b,k,i,j, angka:integer;
n:char;
begin
CLRSCR;
writeln('ANGKA, HURUF MATI DAN HURUF HIDUP DETECTOR');
WRITE('MASUKKAN KATA ATAU KALIMAT YANG DI AKHIRI TITIK(.) : ');
b:=0;
k:=0;
repeat
read(n...
Continue reading ...

Berikut ini adalah sebuah contoh kode pada pascal yang dapat menampilakan kode asscii dari 1 sampai 225 sejumlah tipe data string.

program assciiViewer;
USES CRT;
var i,n:integer;
begin
CLRSCR;
for i := 1 to 255 do
begin
IF  I < 255 THEN
write(i,' : ',char(i), ', ')
ELSE
write(i,' : ',char(i));
READKEY;
end;
end.

setelah itu anda harus menekan enter untuk kode selanjunya. Dengan Output sebagai berikut:


Continue reading ...

Berikut merupakan sebuah contoh program pada pascal yang menggunakan perulangan :
program anak_ayam;
uses crt;
var n:integer;
begin
write('Masukkan Jumlah Ayam');
readln(n);
writeln('lagu anak ayam:');

if n > 1 then
repeat
writeln('anak ayam turunlah ',n);
writeln('mati satu tinggalah ',n-1);
n:=n-1;
until (n=1);
writeln('anak ayam turunlah 1');
writeln('mati satu tinggalah induknya');
readkey;
end.


ketika program tersebut di run pada pascal maka anda harus mengimput angka, misalkan 7 maka akan terlihat output...
Continue reading ...