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 :
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...- mencari volume balok menggunakan program pascaluses wincrt;
var
a,b,c : integer;
v : real ;
begin
write ('masukkan panjang balok = ');
readln (a);
write ('masu… 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 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...
- program pascal dengan menggunakan procedureuses wincrt;
procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string);
var
ruangan5 : string;
begin
ruangan5 := ruangan4;
ruangan… Read More...
- mencari luas trapesium menggunakan program pascaluses wincrt;
const
t = 5;
var
spd,spa : integer;
l :real;
begin
write ('masukkan nilai sisi pendek = ');
readln (spd);
write ('masukkan 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 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...
- 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 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