Contoh Program Pascal

Banyaknya Muncul
-------------------------------------
program BanyakMuncul;

var i,n,muncul,x: integer;
angka : array[1..100] of integer;

begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);

//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;

//menentukan nilai x
write('Nilai x : ');readln(x);

//algortima banyaknya kemunculan
muncul := 0;
for i:=1 to n do
begin
if (x=angka[i]) then
inc(muncul); //muncul:=muncul + 1;
end;

//menampilkan hasil
write('Banyaknya kemunculan nilai ',x,' : ',muncul);
        readln()
end.


hitung jumlah array
------------------------------
program JumlahArray;

var i,n,jumlah : integer;
angka : array[1..100] of integer;

begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);

//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;

//algoritma penjumlahan array
jumlah:=0;
for i:=1 to n do
begin
jumlah:=jumlah+angka[i];
end;

//menampilkan jumlah yang diperoleh
writeln('Jumlahnya ', jumlah);
        readln;
end.


Terurut kecil ke besar
--------------------------
program kecibesar;

var i,n : integer;
angka : array[1..100] of integer;
jawab : string;

begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);

//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;

//algoritma penjumlahan array
jawab := 'Terurut dari kecil ke besar'; i:=1;
while i < n do
begin
if angka[i] > angka[i+1] then
begin
jawab := 'Tidak terurut dari kecil ke besar';
end;
i:= i + 1;
end;

//menampilkan jumlah yang diperoleh
writeln(jawab);
        readln;
end.


Menentukan yang besar
------------------------------------
Program Mencari_Besar;
uses crt;

var
     n,i,besar : integer;
     t : array[1..100] of integer;

begin
     write('Banyak Angka : '); readln(n);

     for i := 1 to n do
         begin
         write('angka ke ',i ,' : '); readln(t[i]);
         end;
         besar := t[i];
         for i := 1 to n do
             begin
             if besar < t[i] then
                besar := t[i];
             end;

     writeln('Nilai terbesar : ',besar);
end.


Menentukan Posisi
-------------------
Program Mencari_Posisi;

uses crt;

var
   t : array[1..100] of integer;
   x,i,posisi,n : integer;

begin
     write('Banyaknya Bilangan : '); readln(n);

     for i := 1 to n do
         begin
              write('Posisi ke ',i, ': '); readln(t[i]);
         end;
              write('Nilai X  '); readln(x);

         posisi:=0;
         for i := 1 to n do
             begin
                  if x = t[i] then
                     posisi:=i;
             end;
         writeln('Posisi : ', posisi);
end.



Menentukan Semua Negatif
-----------------------------
program semuaNegatif;

var i,n : integer;
angka : array[1..100] of integer;
jawab : string;

begin
//menentukan banyaknya angka yang akan dimasukkan
write('Banyaknya angka : ');readln(n);

//melakukan perulangan untuk mengisi data di array
for i:=1 to n do
begin
write('Angka ke-',i,' : ');readln(angka[i]);
end;

//algoritma penjumlahan array
jawab := 'Semua Negatif'; i:=1;
while i<=n do
begin
if angka[i]>0 then
begin
jawab := 'Tidak Semua Negatif';
end;
i:= i +1;
end;

//menampilkan jumlah yang diperoleh
writeln(jawab);
        readln;
end.

Download Contoh Program Pascal Disini

Download

Posted by Gung Prabawa

Tweet