Menghitung Bilangan Genap Di Program Pascal

Asalamu’alaikum Wr.Wb.

Membuat program dengan mengunakan program pascal Program yang kan di buat kali adalah membuat program Menghitung_bilangan_genap. cara pembuatan sangat mudah sob bisa dilihat pada gambar di samping ini sob utuk pembuatan programnya. Atau lihat kode program nya dibawah ini biar lebih jelas.

Code Programnya

program menghitung_bilangan_genap;

uses crt;

var

   genap :array[1..100]of integer;a,b,jum:integer ;

   begin

   clrscr;

   a:=0;

   b:=2;

   write ('masukan jumlah bilangan genap ' ) ;readln(jum);

   while a<> jum do

   begin

   inc(a);

   genap[a] :=b;

   b:=b+2;

   end;

   writeln;

   writeln('hasil yang disimpan di array=');

   for b:=1 to jum do

   writeln('bilangan genap ke-',b,':',genap [b]);

   readln;

   end.

A.klik compile setalah code programnya sudah selesai di tulis,Atau

     seperti gambar dibawah ini menandakan program sukses.

B.untuk menjalan programnya klik Run 

B.Untuk menjalan aplikasinya input kan banyak bilangan genap contoh 10,

    setelah di tulis angka 10 klik Enter.akan terlihat hasil seperti gambar dibawah ini.

Sekian dan Terima Kasih

Posted by Unknown

Tweet