Program Pascal 1

Membuat Program :

1234 = 1 Ribuan + 2 Ratusan + 3 Puluhan + 4 Satuan

Algoritma :

Langkah 1 : Input Suatu Bilangan Bulat (x)

Langkah 2 : Bagi x Dengan 1000 Simpan Hasilnya Ke Variabel Ribuan

Langkah 3 : Bagi x Dengan 1000 Simpan Sisanya Ke Variabel SisaRibu

Langkah 4 : Bagi SisaRibu Dengan 100 Simpan Hasilnya Ke Variabel Ratusan

Langkah 5 : Bagi SisaRibu Dengan 100 Simpan Sisanya Ke Variabel SisaRatus

Langkah 6 : Bagi SisaRatus Dengan 10 Simpan Hasilnya Ke Variabel Puluhan

Langkah 7 : Bagi SisaRatus Dengan 10 Simpan Sisanya Ke Variabel Satuan

Langkah 8 : Tampilkan Ke Monitor Ribuan,Ratusan,Puluhan,Satuan

Program :

uses crt;

var

x:word;

Ribuan:word;

SisaRibu:word;

Ratusan:word;

SisaRatus:word;

Puluhan:word;

Satuan:word;

begin

clrscr;

write('Masukkan Bilangan Bulat:');

readln(x);

Ribuan:=x div 1000;

SisaRibu:=x mod 1000;

Ratusan:=SisaRibu div 100;

SisaRatus:=SisaRibu mod 100;

Puluhan:=SisaRatus div 10;

Satuan:=SisaRatus mod 10;

writeln(x,'=',Ribuan,'Ribuan+',Ratusan,'Ratusan+',Puluhan,'Puluhan+',Satuan,'Satuan');

readln;

end.