uses wincrt;
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.
You May Like :
Related Posts :
mencari nilai rata2 mahasiswa menggunakan program pascaluses wincrt;
var
nama,nim:string;
nt,nmt,na:integer;
nr :real;
begin
writeln (' DAFTAR NILAI MAHA… Read More...
Contoh program pencarian beruntun bagi duauses wincrt;
var
L : array [1..100] of integer;
n1,x1,m,hasil :integer;
function BinarySearch2(n :integer; x : integer) : integer;
var
i,… Read More...
Pascal Program mencari penjumlahana. Baiklah saya akan mulai membahas yang namanya program pascal,yuk mari kita belajar pascal sama2...teman2 harus p… Read More...
program pascal dengan menggunakan procedureuses wincrt;
procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string);
var
ruangan5 : string;
begin
ruangan5 := ruangan4;
ruangan… Read More...
Cara Membuat bintang versi 2 menggunakan program pascaluses wincrt;
var
i,j :integer;
begin
for i := 1 to 5 do
begin
for j := 1 to i do
begin
&… Read More...
Cara Membuat bintang versi 1 menggunakan program pascaluses wincrt;
var
i,j :integer;
begin
for i := 5 downto 1 do
begin
for j := 1 to i do
&nb… Read More...
Cara menggunakan array versi 3 di program pascaluses wincrt;
var
I : integer;
X : array [1..5] of integer;
begin
writeln ('Masukkan 5 buah bilangan integer !');
for I := 1 to 5 do
&n… Read More...
Cara Membuat perulangan for anak ayam menggunakan program pascaluses wincrt;
var
a,i : integer;
begin
write ('Anak ayam yang turun = ');
readln (a);
for i:= a downto 1 do
begin
if i=1 then
write ('An… Read More...
Cara menggunakan array versi 2 di program pascaluses wincrt;
type LarikInt = array [1..100] of integer;
var
A:LarikInt;
procedure TulisLarik ( A : LarikInt; N : integer);
var
k : integer;
… Read More...
Cara menggunakan array versi 1 di program pascaluses wincrt;
type LarikInt = array [1..100] of integer;
var
A:LarikInt;
procedure BacaLarik (var A : LarikInt; N : integer);
var
k : integer… Read More...
0 Response to "Cara menggunakan array versi 1 di program pascal"
Posting Komentar