Intan Array

Apr 15, 2009 No Comments by Sahabat

Contoh program dengan array di pascal kiriman Made Intan Dwipayani

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses wincrt;
var baris, kolom,i,j : integer;
a : array [1..50,1..50] of integer;
Begin
  Clrscr;
  Write('Masukkan Jumlah Baris : ');Readln(baris);
  Write('Masukkan Jumlah Kolom : ');Readln(kolom);
  Writeln;
  Gotoxy(1,5);Write('A= '); {gotoxy = mengarahkan cursor ke x,y}
  for i := 1 to baris do
    for j := 1 to kolom do
    begin
      Gotoxy(j*5,i*2+3); {gotoxy = mengarahkan cursor ke x,y}
      Readln(A[i,j]);
    end;
  Gotoxy(30,5);Write('AT='); {gotoxy = mengarahkan cursor ke x,y}
  for i := 1 to kolom do
    for j := 1 to baris do
    begin
      Gotoxy(j*5+30,i*2+3); {gotoxy = mengarahkan cursor ke x,y}
      Write(A[j,i]);
    end;
End.

Made Intan Dwipayani
[email protected]

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “Intan Array”

Leave a Reply

You must be logged in to post a comment.