Fortrano Pirmas Laboratorinis

program dvi_funkcijos7 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(*,*),pasirinkimasIF (pasirinkimas.EQ.1) GOTO 1IF (pasirinkimas.EQ.2) GOTO 2IF (pasirinkimas.EQ.3) GOTO 3goto 7! Pirma uzduoties dalis:1 write(*,*)’Pateikiama 20 reiksmiu: ‘x = 0.1do i=1, 20y=(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,y10 FORMAT(‘x=’,F4.1 ‘ f(‘,F3.1′)=y=’,F4.2)x=x+(1.4/19)end dowrite(*,*)write(*,*)’Paspauskite ‘read(*,*)goto 7! Antra uzduoties dalis:2 write(*,*)’Pateikiama 18 reiksmiu: ‘x = 0.2do I=1, 18delta=0.08y=(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,y11 FORMAT(‘x=’,F4.2 ‘ f(‘,F4.2′)=y=’,F4.2)x=x+deltaend dowrite(*,*)write(*,*)’Paspauskite ‘read(*,*)goto 7! Pabaiga:3 write(*,*)’Pabaiga.’end