PASCAL - CONTOH PROGRAM BILANGAN ACAK KEMUDIAN CARI DAN SUSUN BILANGANGENAP

Listing Program :

program bilanganbulat;
uses crt;
var bil  : array[1..20] of byte;
    genap: array[1..20] of byte;
    n,m,x,y,bantu,jum : byte;
    coba : char;
begin
repeat
     clrscr;
     writeln('PROGRAM BILANGAN ACAK CARI SUSUN GENAP');
     while n < 2 do
     begin
          write('Tentukan banyaknya bilangan : ');readln(n);
          if n < 2 then
             writeln('Banyak bilangan harus lebih dari 1');
     end;
     for x := 1 to n do
     begin
          write('Bilangan ke - ',x, ': ');readln(bil[x]);
          if bil[x] mod 2 = 0 then
          begin
               inc(m);
               jum := jum + bil[x];
               genap[m]:=bil[x];
          end;
     end;
     writeln('Jumlah bilangan yang genap adalah : ',jum:4);
    
     write('Secara ASCENDING urutan bilangan genap adalah : ');
     for x := 1 to m do
     begin
          for y := 1 to m do
          begin
               if genap[x] < genap[y] then
               begin
                    bantu := genap[y];
                    genap[y] := genap[x];
                    genap[x] := bantu;
               end;
          end;
     end;
     for x := 1 to m do
         write(genap[x]:3);
     writeln;
     n := 0;jum := 0;m := 0;
     repeat
           write('MASIH INGIN MENCOBA URUTAN BILANGAN ACAK ? [y/t] : ');
           readln(coba);
     until coba in['t','y','T','Y'];
until coba in['t','T'];
end.

Jangan lupa tinggalkan pesan berupa saran dan kritik yang bermanfaat untuk blog  ini. Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama.