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...
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...
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...
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...
program pascal hitung kata dan program pascal hitung NGdapat tugas pascal ni kemaren cara buat program pascal hitung kata dan program pascal hitung NG , izinkan saya berbagi..hehehhe
program Hit… 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...
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 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...
Pascal Program mencari penjumlahana. Baiklah saya akan mulai membahas yang namanya program pascal,yuk mari kita belajar pascal sama2...teman2 harus p… 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...
0 Response to "Cara menggunakan array versi 1 di program pascal"
Posting Komentar