Fortrano Pirmas Laboratorinis

program dvi_funkcijos
7 write(*,*)’Pirmas Programavimo II laboratorinis darbas’
write(*,*)’Darba atliko: XXXXXXX XXXXXXX, II-X/X grupe’
write(*,*)
write(*,*)’Pasirinkite viena is galimu veiksmu:’
write(*,*)’ 1. Skaiciuoti 20 f-jos reiksmiu nuo x=0,1 iki x=1,5′
write(*,*)’ 2. Skaiciuoti 18 f-jos reiksmiu kai x prad=0,2, o DeltaX=0,08′
write(*,*)’ 3. Baigti darba’
write(*,*)
read(*,*),pasirinkimas
IF (pasirinkimas.EQ.1) GOTO 1
IF (pasirinkimas.EQ.2) GOTO 2
IF (pasirinkimas.EQ.3) GOTO 3
goto 7
! Pirma uzduoties dalis:
1 write(*,*)’Pateikiama 20 reiksmiu: ‘
x = 0.1
do i=1, 20
y=(2*cotan(x)/(cotan(x)**2-1)) * (cotan(x)-tan(x))/2+X**2/(1*2)+X**3/(1*2*3)
write(*,10)x,x,y
10 FORMAT(‘x=’,F4.1 ‘ f(‘,F3.1′)=y=’,F4.2)
x=x+(1.4/19)
end do
write(*,*)
write(*,*)’Paspauskite ‘
read(*,*)
goto 7
! Antra uzduoties dalis:
2 write(*,*)’Pateikiama 18 reiksmiu: ‘
x = 0.2
do I=1, 18
delta=0.08
y=(2*cotan(x)/(cotan(x)**2-1)) * (cotan(x)-tan(x))/2+X**2/(1*2)+X**3/(1*2*3)
write(*,11)x,x,y
11 FORMAT(‘x=’,F4.2 ‘ f(‘,F4.2′)=y=’,F4.2)
x=x+delta
end do
write(*,*)
write(*,*)’Paspauskite ‘
read(*,*)
goto 7
! Pabaiga:
3 write(*,*)’Pabaiga.’
end

Leave a Comment