menghitung luas segitiga

Menghitung luas segitiga

integer a,al,ti

real ls

write (*,'(24(/))')

write(*,'(a)')'------------------------'

write(*,'(a)')'Menghitung Luas Segitiga'

write(*,'(a)')'------------------------'

write(*,'(a,\)')'Input alas segitiga : '

read(*,'(I2)')al

write(*,'(a,\)')'Input tinggi segitiga : '

read(*,'(I2)')ti

ls = ( al * ti ) / 2

write(*,*)' '

write(*,'(a,F6.2)')'Luas segitiga adalah :',ls

stop

end



Penjumlahan matriks

integer x(5,5),y(5,5),z(5,5),a,b,c,d,e,f,g,h,i,j

WRITE (*,'(24(/))')

a = 2

write(*,'(a)')'---------------------------------'

write(*,'(a)')'Menentukan nilai elemen matriks I'

write(*,'(a)')'---------------------------------'

DO 10 c=1,a

DO 20 d=1,a

write(*,'(a,I1,a,I1,a,\)')'[',c,'][',d,'] = '

read(*,'(I2)')x(c,d)

20 CONTINUE

10 CONTINUE

write(*,'(a,/)')' '

write(*,'(a)')'----------------------------------'

write(*,'(a)')'Menentukan nilai elemen matriks II'

write(*,'(a)')'----------------------------------'

DO 30 g=1,a

DO 40 h=1,a

write(*,'(a,I1,a,I1,a,\)')'[',g,'][',h,'] = '

read(*,'(I2)')y(g,h)

40 CONTINUE

30 CONTINUE

WRITE (*,'(24(/))')

write(*,'(a)')'---------'

write(*,'(a)')'Matriks I'

write(*,'(a)')'---------'

DO 50 c=1,a

DO 60 d=1,a

write(*,'(I2,a,\)')x(c,d),' '

60 CONTINUE

write(*,*)' '

50 CONTINUE

write(*,'(a,/)')' '

write(*,'(a)')'----------'

write(*,'(a)')'Matriks II'

write(*,'(a)')'----------'

DO 70 g=1,a

DO 80 h=1,a

write(*,'(I2,a,\)')y(g,h),' '

80 CONTINUE

write(*,*)' '

70 CONTINUE

write(*,'(a,/)')' '

write(*,'(a)')'-----------------'

write(*,'(a)')'Hasil Penjumlahan'

write(*,'(a)')'-----------------'

DO 90 i=1,a

DO 100 j=1,a

z(i,j)=(x(i,j)+y(i,j))

100 CONTINUE

90 CONTINUE

DO 110 i=1,a

DO 120 j=1,a

write(*,'(I3,a,\)')z(i,j),' '

120 CONTINUE

write(*,*)' '

110 CONTINUE

stop

end