19.42
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.
