LAPORAN AKHIR 3 "Matrix"

FORTRAN "PROGRAM ARRAY 2 DIMENSI"

integer*2 P,L,T,H
write(*,5)
read(*,10)P
write(*,15)
read(*,20)L
write(*,25)
read(*,30)T
H=P*L*T
5 format('PANJANG =')
10 format(I3)
15 format('LEBAR =')
20 format(I3)
25 format('TINGGI =')
30 format(I3)
write(*,35)H
35 format('VOLUME BALOK =', I3)
end


output

PANJANG = 5
LEBAR = 5
TINGGI = 5

VOLUME BALOK = 125




Output

NAMA = DENIS SOPYAN
NPM = 17108284
KELAS = 2 KA16

NAMA SAYA = DENIS SOPYAN dengan NPM 17108284 dengan KELAS 2 KA16





OUTPUT

ORDO MATRIKS 2X2 = 2

matrix[ 1, 1]:3
matrix[ 1, 2]:4
matrix[ 2, 1]:6
matrix[ 2, 2]:7

Matrix yang diinput :

3 4
6 7






OUTPUT

ORDO MATRIX :4
matrix[ 1, 1]:8
matrix[ 1, 2]:6
matrix[ 1, 3]:2
matrix[ 1, 4]:9
matrix[ 2, 1]:2
matrix[ 2, 2]:4
matrix[ 2, 3]:5
matrix[ 2, 4]:1
matrix[ 3, 1]:10
matrix[ 3, 2]:11
matrix[ 3, 3]:89
matrix[ 3, 4]:26
matrix[ 4, 1]:3
matrix[ 4, 2]:8
matrix[ 4, 3]:6
matrix[ 4, 4]:4

Matrix yang diinput :
8 6 2 9
2 4 5 1
10 11 89 26
3 8 6 4
Press Ctrl/Z and then Enter to exit
WATFOR>


LOGIKA

Integer mat(10,10) merupakan kolom baris sebagai parameter . write (*,'(24(/))') menyatakan bahwa output akan dimulai pada baris ke-25 karena 24 baris pertama telah dikosongkan.

Tanda \ pada statement write (*,'(A,\)')'ORDO MATRIX :' menyatakan bahwa kursor akan berada di samping setelah kalimat ORDO MATRIX tercetak. Sedangkan A menandakan bahwa yang akan dicetak berupa karakter ('ORDO MATRIX) .

do i=1,n
do j= 1,n
write (*,'(A,I2,A,I2,A,\)')' matrix[',i,',',j,']:'
read(*,*)mat(i,j)
ENDDO
ENDDO

Merupakan statement untuk Looping i dimana j akan mengikuti looping sebanyak i .Statement write (*,'(A,I2,A,I2,A,\)')' matrix[',i,',',j,']:' akan mencetak sesuai dengan format masing-masing .A untuk mencetak yang berupa karakter dan I2 akan mencetak yang berupa special karakter ( ,) .

do i=1,n
do j=1,n
write(*,'(I5,\)')mat(i,j)
ENDDO
print *,' '
ENDDO

Merupakan statement untuk Looping j dimana i akan mengikuti looping sebanyak j. I5 menyatakan bahwa nilai integer yang diinput dapat sebanyak 5 digit.

STOP
END
Berfungsi untuk mengakhiri program





output








output





PL/SQL


set serveroutput on
DECLARE
A INTEGER
BEGIN
FOR A IN 1..10 LOOP -> MENCETAK integer A DARI 1-10
DBMS.OUTPUT.PUT_LINE(TO_CHAR(A));
END LOOP;
END;
/


OUTPUT

1
2
3
4
5
6
7
8
9
10


set serveroutput on
DECLARE
B INTEGER
BEGIN
FOR B IN REVERSE 1..10 LOOP -> MENCETAK integer B DARI 10-1
DBMS.OUTPUT.PUT_LINE(TO_CHAR(A));
END LOOP;
END;
/


OUTPUT

10
9
8
7
6
5
4
3
2
1