uses wincrt;
type LarikInt = array [1..100] of integer;
var
A:LarikInt;
procedure BacaLarik (var A : LarikInt; N : integer);
var
k : integer;
type LarikInt = array [1..100] of integer;
var
A:LarikInt;
procedure BacaLarik (var A : LarikInt; N : integer);
var
k : integer;
begin
for k:= 1 to N do
begin
write ('Masukkan elemen ke-' ,k,' : ');
readln (A[k])
end;
end.
for k:= 1 to N do
begin
write ('Masukkan elemen ke-' ,k,' : ');
readln (A[k])
end;
end.
You May Like :
Related Posts :
Cara Membuat perulangan for anak ayam menggunakan program pascal- program pascal hitung kata dan program pascal hitung NG
- Cara menggunakan array versi 1 di program pascal
- Contoh program pencarian beruntun bagi dua
- Cara menggunakan array versi 3 di program pascal
- Contoh pascal program pengurutan data
- Program pascal Pengurutan gelembung
- Program C++ Mencari Luas Lingkaran
- Pascal Program mencari penjumlahan
- Cara menggunakan array versi 2 di program pascal
0 Response to "Cara menggunakan array versi 1 di program pascal"
Posting Komentar