contoh perulangan pada pascal

contoh Perulangan pada pascal

Perulangan while do and repeat until

-          Perulangan while do

Contoh pascal sederhana:

Program………………………

Uses…………………………….

Var

………………

………………

Begin

I:=0

While I < N do

Begin

Writeln(I);

I:=I+1;

Readln;

End:

End.

-          Perulangan repeat until

Contoh pascal sederhana:

Program………………

Uses…………………….

Var

…………………………

………………………...

Begin

I:=0

Repeat

Writeln(I);

I:=I+1;

Until (I>N);

Readln;

End.

Perulangan for

Perulangan for terbagi menjaadi dua macam yaitu:

-          Perulangan for positif

Yaitu perulangan dengan nilai pencacah dari yg terkecil ke yg terbesar.

Bentuk umum: for I :=1 to 100 do

Contoh program sederhana:

program contoh_perulangan_positif;

uses wincrt;

var

                I :integer;

Begin

                For I := 1 to 10 do;

                Writeln(I);

End;

-          Perulangan for negative

Yaitu perulangan dengan nilai pencacah dari bilanagan yg terbesar ke bilangan yg terkecil.

Bentuk umum: for I := 1 down to 100 do

Contoh program sederhana:

program contoh_perulangan_negative;

uses wincrt;

var

                I :integer;

Begin

                For I := 1 down to 10 do;

                Writeln(I);

End;

ARRAY(tipe data berbentuk)

Terdapat dua jenis array yaitu array dua dimensi dan array tiga dimensi

1.       Array dua dimensi

Array 2 dimensi (matrik/tabel) adalah kumpulan elemen data sejenis dimana setiap elemennya dinyatakan dengan 2 subscript....

Bentuk umum (m,n)

Ket : m :baris

          n :kolom

Contoh program array dua dimensi pada bahasa pascal:

program array_dua_dimensi;

uses wincrt;

var

   matrik :array[1..3,1..2] of shortint;

   i,j :byte;

begin

writeln('contoh matrik :');

matrik[1,1] :=2;

matrik[1,2] :=3;

matrik[2,1] :=3;

matrik[2,2] :=4;

matrik[3,1] :=8;

matrik[3,2] :=10;

            for i :=1 to 3 do

            begin

            for j :=1 to 2 do

            write(matrik[i,j]:5);

            writeln;

            end;

readln;

end.