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 ddo

write(*,*)

write(*,*)’Paspauskite ‘

read(*,*)

goto 7

! Pabaiga:

3 write(*,*)’Pabaiga.’

end