Statement ARRAY

LABORATORIUM TEKNIK KIMIA
FAKULTAS TEKNOLOGI INDUSTRI
UPN “VETERAN” JATIM
Pratikum : Statement ARRAY
Percobaan : VIII
Tanggal : 09 Juni 2011
Pembimbing : : Ir. Shinta Soraya Santi,MT

Nama : M.Khadik Asrori
NPM/Semester : 1033010011/II
Romb./Group : I/D
NPM/Trman praktek : 1033010015/ Nurul Amalia


LAPORAN RESMI




Soal :

1. Buatlah program beserta flowchartnya untuk menampilkan hasil sebagai berikut !!
2 21 31 12 3 16 17
13 33 22 31 14 19 24
42 54 32 29 65 71 21
10 19 29 18 12 91 55
2. Buatlah program beserta flowchartnya untuk menampilkan hasil sebagai berikut dengan menggunakan data array !!
X X2 X3
1 1 1
2 4 8
3 9 27
4 16 64
5 25 125

Jawaban :
1. Program
program prog_soal_1;
uses wincrt;
var
k,l:integer;
data:array[1..4,1..7] of integer;
begin
data[1,1]:=2;
data[1,2]:=21;
data[1,3]:=31;
data[1,4]:=12;
data[1,5]:=3;
data[1,6]:=16;
data[1,7]:=17;
data[2,1]:=13;
data[2,2]:=33;
data[2,3]:=22;
data[2,4]:=31;
data[2,5]:=14;
data[2,6]:=19;
data[2,7]:=24;
data[3,1]:=42;
data[3,2]:=54;
data[3,3]:=32;
data[3,4]:=29;
data[3,5]:=65;
data[3,6]:=71;
data[3,7]:=21;
data[4,1]:=10;
data[4,2]:=19;
data[4,3]:=29;
data[4,4]:=18;
data[4,5]:=12;
data[4,6]:=91;
data[4,7]:=55;
for k:=1 to 4 do
begin
for l:=1 to 7 do
begin
write(data[k,l]:5);
end;
writeln;
end;
end.

Hasil

 
Flowchart :

 

2. Program
program prog_soal_2;
uses wincrt;
var
k,l:integer;
data:array[1..5,1..3] of integer;
begin
writeln(' x x^2 x^3');
writeln('-----------------------');
data[1,1]:=1;
data[1,2]:=1;
data[1,3]:=1;
data[2,1]:=2;
data[2,2]:=4;
data[2,3]:=8;
data[3,1]:=3;
data[3,2]:=9;
data[3,3]:=27;
data[4,1]:=4;
data[4,2]:=16;
data[4,3]:=64;
data[5,1]:=5;
data[5,2]:=25;
data[5,3]:=125;
for k:=1 to 5 do
begin
for l:=1 to 3 do
begin
write(data[k,l]:5);
end;
writeln;
end;
end.

Hasil :


 
Flowchart :