OPIS PROGRAMU
Program oblicza reakcje podporowe oraz siły wewnętrzne belki obciążonej obciążeniem równomiernie rozłożonym oraz siłą skupioną.
Po uruchomieniu programu pojawiają się w na ekranie funkcje:
1 – Wprowadzenie danych z klawiatury
2 – Wczytanie danych z pliku
3 – Zapisane danych do pliku
4 – Wprowadzenie wartości domyślnych
5 – Echo danych (aktualne dane)
6 – Obliczenia (reakcje oraz siły wewnętrzne)
99 – Zamknięcie programu.
OGÓLNY UKŁAD FUNKCJINALNY
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")
kdan2=22
open (kdan2, file="WYNIKI")
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,Rp,Ra,Rb,Rc,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,Rp,Ra,Rb,Rc,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=100
case(5)
...
stud_bud