TREŚĆ PROGRAMU
real Rp, Ra, Rb, Rc
real l,l1,l2,l3,l4,l5,l6,l7,l8,l9
real P, M, q1, q2, T, Mz
real x,dx
integer i,n,nrwar,kdan,kdan2
kdan=11
open (kdan, file="DANE.txt")
kdan2=22
open (kdan2, file="WYNIKI.txt")
1000 WRITE(*,*)'(1)-dane z klawiatury'
WRITE(*,*)'(2)-dane z pliku'
WRITE(*,*)'(3)-dane do pliku'
WRITE(*,*)'(4)-dane domyslne'
WRITE(*,*)'(5)-aktualne wartosci danych'
WRITE(*,*)'(6)-obliczenia + wyniki'
WRITE(*,*)'(99)-zakonczenie'
write(*,*)'wybierz przypadek'
read(*,*) nrwar
select case (nrwar)
case (99)
write(*,*)'PROGRAM ZAKONCZYL PRACE, NACISNIJ ENTER**'
pause
stop
case(1)
WRITE(*,*)'podaj wymiary dla kazdego l'
WRITE(*,*)'l1=? [m]'
READ(*,*) l1
WRITE(*,*)'l2=? [m]'
READ(*,*) l2
WRITE(*,*)'l3=? [m]'
READ(*,*) l3
WRITE(*,*)'l4=? [m]'
READ(*,*) l4
WRITE(*,*)'l5=? [m]'
READ(*,*) l5
WRITE(*,*)'l6=? [m]'
READ(*,*) l6
WRITE(*,*)'l7=? [m]'
READ(*,*) l7
WRITE(*,*)'l8=? [m]'
READ(*,*) l8
WRITE(*,*)'l9=? [m]'
READ(*,*) l9
WRITE(*,*)'podaj wartosc sily P'
READ(*,*) P
WRITE(*,*)'podaj wartosc momentu M'
READ(*,*) M
WRITE(*,*)'podaj wartosc sily q1'
READ(*,*) q1
WRITE(*,*)'podaj wartosc sily q2'
READ(*,*) q2
write(*,*)'podaj n'
read(*,*) n
go to 1000
case(2)
rewind (kdan)
read(kdan,*)l1,l2,l3,l4,l5,l6,l7,l8,l9,P,M,q1,q2,n
write(*,*)'l1=',l1
write(*,*)'l2=',l2
write(*,*)'l3=',l3
write(*,*)'l4=',l4
write(*,*)'l5=',l5
write(*,*)'l6=',l6
write(*,*)'l7=',l7
write(*,*)'l8=',l8
write(*,*)'l9=',l9
write(*,*)'P =',P
write(*,*)'M =',M
write(*,*)'q1=',q1
write(*,*)'q2=',q2
write(*,*)'n =',n
case(3)
write(kdan,*)l1,l2,l3,l4,l5,l6,l7,l8,l9,P,M,q1,q2,n
case(4)
l1= 1
l2= 1
l3= 1
l4= 1
l5= 1
l6= 1
l7= 1
l8= 1
l9= 1
q1= 2
q2= 2
P= 2
M= 2
n=400
case(5)
write(*,*)'n=',n
case(6)
160 format (F6.2,2X,F8.3,2X,F8.3)
rewind (kdan2)
write(kdan2,'(I3)') n
call reakcje(l2,l3,l4,l5,l6,l7,l8,l9,
1 P,M,q1,q2,Rp,Ra,Rb,Rc)
write(*,*) 'Ra=',Ra
write(*,*) 'Rb=',Rb
write(*,*) 'Rc=',Rc
write(*,*) 'Rp=',Rp
l=l1+l2+l3+l4+l5+l6+l7+l8+l9
dx=l/n
write(*,*) 'dx=',dx
...
mejolga