Membuat Data Acak Di Pascal

Dibawah ini gan scripnya silahkan dicoba aja ya.hehe


Program contoh;
Uses wincrt;
var
   nil1 : Array [1..100] of integer;
   n,i,j,dum : integer;
Begin
     clrscr;
     write ('Mau berapa isi data acak(integer) ='); readln(n);
     for i := 1 to n do
     begin
          write ('Data Ke ',i, ' : '); readln (nil1[i]);
     end;

     {*penyapuan proses*}
     for i := 1 to n-1 do
     begin
     for j := i to n do
         begin
              if nil1[j] < nil1[i] then
                 begin
                      dum := nil1[j]  ;
                      nil1[j] := nil1[i];
                      nil1[i] := dum;
                 end;
              end;
         end;
         writeln;
         writeln ('Hasil Sortir');
         for i := 1 to n do
             write (nil1[i] : 3);
         readln;
     end.

Dibawah ini Outputnya ok. hehe.



Selamat mencoba semoga bermanfaat. 

Leave a Reply

Terima kasih sudah memberi komentar,
komentar anda sangat berguna untuk menjadikan blog ane lebih baik lagi..
jangan lupa berkunjung kembali..