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