A’ASSALAMU’ALAIKUM WR.WB.

Baik lah untuk pertemuan kali tentang baimana cara

Membuat menghitung angka tambah satu di pascal.

1.buka aplikasi pascal anda lalu tuliskan kode programnya bisa dilihat pada gambar di samping

Atau bisa juga bi bawah ini.

Code programnya

PROGRAM MENGHITUNG_TAMBAH_ANGKA_SATU ;

USES CRT ;

VAR X:INTEGER ;

BEGIN

CLRSCR;

X:=0;

WRITE('MASUKAN ANGKA SATU =');

READLN(X);

WHILE X<5 DO

BEGIN

WRITELN(' JUMLAH ' , X , ' TAMBAH SATU ' , X + 1 ,' ');

X := X+1;

END;

WRITELN('PENJUMLAHAN SELESAI');

READLN;

END.

2.klik compile,jika aplikasi yang sob buat sama dengan yg gambar dibawah

ini berakti aplikasi yang sob buat sukses.

3.setelah klik Run,seperti gambar di bawah ini.

4.setelah program jalan tulis kan angka 1 tekan enter untuk mengetahui hasilnya

seperti gambar dibawah ini.

Selamat mencoba

Semoga sukses ae sob

Posted by Unknown

Menghitung Angka Tambah Satu Diprogram Pascal