anstruk1.f

open(unit=10,file=’momen_lintang.txt’,status=’unknown’) Va = 1 P  = 2 do i=1,101 x = real(i-1) if(x.le.50)then Dmx = Va*x Ddx = Va write(*,100)x,Dmx,Ddx write(10,100)x,Dmx,Ddx 100 format(3(2x,F10.4)) end if if(x.ge.50)then Dmx = Va*x – … Continue Reading →