Отчет блок схемы (Контрольная работа №1)
Описание файла
Файл "Отчет блок схемы" внутри архива находится в папке "Контрольная работа №1". Документ из архива "Контрольная работа №1", который расположен в категории "". Всё это находится в предмете "программирование" из 6 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "контрольные работы и аттестации", в предмете "программирование" в общих файлах.
Онлайн просмотр документа "Отчет блок схемы"
Текст из документа "Отчет блок схемы"
Fortran | Delphi | |
SUBROUTINE VVOD(L1,L2,L3,Pn,Q,Xq,Xp,Mj,Xm,Lq,Xi,n1,k1,j1,i1) REAL L1,L2,L3,Pn(4),Q(4),Xq(4),Xp(4),Mj(4),Xm(4),Lq(4),xI(11) INTEGER n1,k1,j1,i1,z PRINT*,'‚ў®¤ Ёб室ле ¤ ле' PRINT*,'‚ўҐ¤ЁвҐ ¤«Ёг ЇҐаў®Ј® гз бвЄ Ў «ЄЁ:ЋЂ=' READ*,L1 1 IF(L1.LT.0)THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ L1.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,L1 GOTO 1 END IF PRINT*,'‚ўҐ¤ЁвҐ ¤«Ёг ўв®а®Ј® гз бвЄ Ў «ЄЁ:Ђ‚=' READ*,L2 2 IF(L2.LE.0.)THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ L2.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,L2 GOTO 2 END IF PRINT*,'‚ўҐ¤ЁвҐ ¤«Ёг ваҐв쥣® гз бвЄ Ў «ЄЁ:‚‘=' READ*,L3 |
| procedure VVOD(var L1:real;var L2:real;var L3:real;var Pn:Array1_4;var Q:Array1_4;var Xq:Array1_4;var Xp:Array1_4;var Mj:Array1_4;var Xm:Array1_4;var Lq:Array1_4;var Xi:Array1_11;var n1:Integer;var k1:Integer;var j1:Integer;var i1:Integer); Var z,i,n,k,j : integer; L : Real; Label _2,_3,_4,_5,_6,_7,_8,_9,_10,_11,_12,_13,_14,_15,_16; begin Writeln('‚ў®¤ Ёб室ле ¤ ле'); Writeln('‚ўҐ¤ЁвҐ ¤«Ёг ЇҐаў®Ј® гз бвЄ Ў «ЄЁ:ЋЂ='); Read(L1); _1: If L1 < 0 Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ L1.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(L1); goto _1; End; _2: Writeln('‚ўҐ¤ЁвҐ ¤«Ёг ўв®а®Ј® гз бвЄ Ў «ЄЁ:Ђ‚='); Read(L2); If L2 <= 0 Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ L2.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(L2); Goto _2; End; _3: Writeln('‚ўҐ¤ЁвҐ ¤«Ёг ваҐв쥣® гз бвЄ Ў «ЄЁ:‚‘='); |
3 IF(L3.LT.0)THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ L3.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,L3 GOTO 3 END IF IF((L1+L2).EQ.0.OR.(L2+L3).EQ.0)THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ „‹€Ќ “—Ђ‘’ЉЋ‚.‚ўҐ¤ЁвҐ § зҐЁп ҐйҐ а §' GOTO 1 END IF L=L1+L2+L3 PRINT*,'‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® б®б।®в®зҐле бЁ«(n=0..4) n=' READ*,n 4 IF(n.LT.0.or.n.gt.4)THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ n.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,n GOTO 4 END IF PRINT*,'‡ Ї®«ЁвҐ ¬ ббЁў § 票© б®б।®в®зҐле бЁ«' |
| if L3 < 0 Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ L3.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(L3); Goto _3; End; If (L1+L2 = 0) Or (L2+L3 = 0) Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ „‹€Ќ “—Ђ‘’ЉЋ‚.‚ўҐ¤ЁвҐ § зҐЁп ҐйҐ а §'); Goto _1; End; L := L1 + L2 + L3; Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® б®б।®в®зҐле бЁ«(n=0..4) n='); Read(n); _4: If (n < 0) Or (n > 4) Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ n.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(n); Goto _4; End; Writeln('‡ Ї®«ЁвҐ ¬ ббЁў а ббв®пЁ© ®в в®зЄЁ Ћ ¤® бЁ« Pn'); |
n1=n DO n=1,n1 PRINT*,'‚ўҐ¤ЁвҐ § 票Ґ б®б।®в®зҐ®© бЁ«л Pn=' READ*, Pn(n) END DO 5 IF(Xp(n).LT.0.or.Xp(n).gt.(L1+L2+L3))THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ Xp(n).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,Xp(n) GOTO 5 END IF END DO PRINT*,'‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® а бЇаҐ¤. Ја㧮Є(k=0..3) k=' READ*,k 6 IF(k.LT.0.or.k.gt.3)THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ k.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,k GOTO 6 END IF PRINT*,'‡ Ї®«ЁвҐ ¬ ббЁў ЁвҐбЁў®б⥩ а бЇаҐ¤. Ја㧮Є' k1=k |
| n1 := n; For n :=1 To n1 Do Begin Writeln('‚ўҐ¤ЁвҐ § 票Ґ б®б।®в®зҐ®© бЁ«л Pn='); Read(Pn[n]); End; _5: If (Xp[n] < 0) Or (Xp[n] > (L1+L2+L3)) Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ Xp(n).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(Xp[n]); Goto _5; End; Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® а бЇаҐ¤. Ја㧮Є(k=0..3) k='); Read(k); _6: If (k < 0) Or (k > 3) Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ k.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(k); Goto _6; End; Writeln('‡ Ї®«ЁвҐ ¬ ббЁў ЁвҐбЁў®б⥩ а бЇаҐ¤. Ја㧮Є'); k1 := k; |
DO k=1,k1 PRINT*,'‚ўҐ¤ЁвҐ § 票Ґ ЁвҐбЁў®бвЁ а бЇаҐ¤. Јаг§ЄЁ Qk=' READ*,Q(k) END DO PRINT*,'‡ Ї®«ЁвҐ ¬ ббЁў а ббв®пЁ© ®в в®зЄЁ Ћ ¤® з « ¤Ґ©бвўЁп DO k=1,k1 PRINT*, 'Јаг§ЄЁ XQ(k)' READ*,Xq(k) 7 IF(Xq(k).LT.0.or.Xq(k).gt.(L1+L2+L3))THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ Xq(k).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,Xq(k) GOTO 7 END IF END DO PRINT*,'‡ Ї®«ЁвҐ ¬ ббЁў ¤«Ё гз бвЄ®ў ¤Ґ©бвўЁп а бЇа. Ја㧮Є' DO k=1,k1 PRINT*,'‚ўҐ¤ЁвҐ ¤«Ёг гз бвЄ Lq' READ*,Lq(k) 8 IF(Lq(k).LT.0.or.Lq(k).gt.(L1+L2+L3))THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ Lq(k).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,Lq(k) GOTO 8 END IF END DO |
| for k := 1 to k1 do begin Writeln('‚ўҐ¤ЁвҐ § 票Ґ ЁвҐбЁў®бвЁ а бЇаҐ¤. Јаг§ЄЁ Qk='); Read(Q[k]); End; Writeln('‡ Ї®«ЁвҐ ¬ ббЁў а ббв®пЁ© ®в в®зЄЁ Ћ ¤® з « ¤Ґ©бвўЁп'); for k := 1 to k1 do begin Writeln('Јаг§ЄЁ XQ(k)'); Read(Xq[k]); _7: If (Xq[k] < 0) Or (Xq[k] > (L1+L2+L3)) Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ Xq(k).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(Xq[k]); Goto _7; End; End; Writeln('‡ Ї®«ЁвҐ ¬ ббЁў ¤«Ё гз бвЄ®ў ¤Ґ©бвўЁп а бЇа. Ја㧮Є'); for k := 1 to k1 do begin Writeln('‚ўҐ¤ЁвҐ ¤«Ёг гз бвЄ Lq'); Read(Lq[k]); _8: If(Lq[k] < 0) Or (Lq[k] > (L1+L2+L3)) Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ Lq(k).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(Lq[k]); Goto _8 End; End; |
PRINT*,'‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ¬®¬Ґв®ў (j=0..3) j=' READ*,j 9 IF(j.LT.0.or.j.gt.3)THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ j.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,j GOTO 9 END IF PRINT*,'‡ Ї®«ЁвҐ ¬ ббЁў § 票© ¬®¬Ґв®ў' j1=j DO j=1,j1 PRINT*,'‚ўҐ¤ЁвҐ § 票Ґ ¬®¬Ґв Mj=' READ*,Mj(j) END DO PRINT*,'‡ Ї®«ЁвҐ ¬ ббЁў а ббв®пЁ© ®в в®зЄЁ Ћ ¤® ¬®¬Ґв®ў Mj' DO j=1,j1 PRINT*,'‚ўҐ¤ЁвҐ а cбв®пЁҐ ®в в®зЄЁ Ћ ¤® ¬®¬Ґв XMj' READ*,Xm(j) 10 IF(Xm(j).LT.0.or.Xm(j).gt.(L1+L2+L3))THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ Xm(j).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,Xm(j) GOTO 10 END IF END DO |
| Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ¬®¬Ґв®ў (j=0..3) j='); Read(j); _9:If(j < 0) Or (j > 3) Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ j.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(j); Goto _9; End; Writeln('‡ Ї®«ЁвҐ ¬ ббЁў § 票© ¬®¬Ґв®ў'); j1 := j; for j := 1 to j1 do begin Writeln('‚ўҐ¤ЁвҐ § 票Ґ ¬®¬Ґв Mj='); Read(Mj[j]); End; Writeln('‡ Ї®«ЁвҐ ¬ ббЁў а ббв®пЁ© ®в в®зЄЁ Ћ ¤® ¬®¬Ґв®ў Mj'); for j := 1 to j1 do begin Writeln('‚ўҐ¤ЁвҐ а cбв®пЁҐ ®в в®зЄЁ Ћ ¤® ¬®¬Ґв XMj'); Read(Xm[j]); _10: If(Xm[j] < 0) Or (Xm[j] > (L1+L2+L3)) Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ Xm(j).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(Xm[j]); Goto _10 End; End; |
PRINT*,'‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® i-вле в®зҐЄ i=' READ*,i 11 IF(i.LT.0)THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ i.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,i GOTO 11 END IF PRINT*,'‡ Ї®«ЁвҐ ¬ ббЁў а ббв®пЁ© ®в в®зЄЁ Ћ ¤® i-в®Ј® бҐзҐЁп' i1=i DO i=1,i1 PRINT*,'‚ўҐ¤ЁвҐ а cбв®пЁҐ ®в в®зЄЁ Ћ ¤® i-в®Ј® бҐзҐЁп xi=' READ*,xi(i) 12 IF(xi(i).LT.0.or.xi(i).gt.L)THEN PRINT*,'Ћ€ЃЉЂ ‚‚Ћ„Ђ x(i).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §' READ*,xi(i) GOTO 12 END IF END DO END |
| Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® i-вле в®зҐЄ i='); Read(i); _11:If(i < 0)Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ i.‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(i); Goto _11; End; Writeln('‡ Ї®«ЁвҐ ¬ ббЁў а ббв®пЁ© ®в в®зЄЁ Ћ ¤® i-в®Ј® бҐзҐЁп'); i1 := i; for i := 1 to i1 do begin Writeln('‚ўҐ¤ЁвҐ а cбв®пЁҐ ®в в®зЄЁ Ћ ¤® i-в®Ј® бҐзҐЁп xi='); Read(xi[i]); _12: If(xi[i] < 0) Or (xi[i] > L)Then Begin Writeln('Ћ€ЃЉЂ ‚‚Ћ„Ђ x(i).‚ўҐ¤ЁвҐ § 票Ґ ҐйҐ а §'); Read(xi[i]); Goto _12 End; End; End; |
SUBROUTINE REACTIONS(L1,L2,L3,Pn,Q,Xq,Xp,Mj,Xm,Lq,Yb,A,Ya,Xi,n1, > k1,j1,i1) REAL L1,L2,L3,Pn(4),Q(4),Xq(4),Xp(4),Mj(4),Xm(4),Lq(4), > Yb,A,Ya,Xi(11) INTEGER n1,k1,j1,i1 PRINT*,'‚›—€‘‹…Ќ€… ЋЏЋђЌ›• ђ…ЂЉ–€‰' DO N=1,N1 A=A-Pn(n)*(L1-Xp(n)) END DO DO J=1,J1 A=A+Mj(J) END DO DO K=1,K1 IF(Xq(K).LT.L1.AND.(Xq(K)+Lq(K)).Le.L1) THEN A=A-Q(K)*((Lq(K))/2)*(L1-Xq(K)-(Lq(K)/2)) END IF END DO |
| Procedure REACTIONS(var L1:real;var L2:real;var L3:real;var Pn:Array1_4;var Q:Array1_4;var Xq:Array1_4;var Xp:Array1_4;var Mj:Array1_4;var Xm:Array1_4;var Lq:Array1_4;var Yb:real;var A:real;var Ya:real;var Xi:Array1_11;var n1:integer;var k1:integer;var j1:integer;var i1:integer); Var n,j,k:integer; Begin Writeln('‚›—€‘‹…Ќ€… ЋЏЋђЌ›• ђ…ЂЉ–€‰'); for n := 1 to N1 do A := A - Pn[n] * (L1 - Xp[n]); for J := 1 to J1 do A := A + Mj[J]; for k := 1 to k1 do if(Xq[K]< L1) And (Xq[K] + Lq[K] <= L1) Then A := A - Q[K] * ((Lq[K]) / 2) * (L1 - Xq[K] - (Lq[K] / 2)); |
DO K=1,K1 IF(L1.Le.Xq(K))THEN A=A+Q(K)*Lq(K)*(Xq(K)+(Lq(K)/2)-L1) END IF END DO DO K=1,K1 IF(Xq(K).LT.L1.AND.(Xq(K)+Lq(K)).GT.L1) THEN A=A-Q(K)*((L1-Xq(K))**2)/2+(Q(K)/2)*((Xq(K)+Lq(K)-L1)**2) END IF END DO Yb=A/L2 |
| for K := 1 to K1 do if L1 <= Xq[K]Then A := A + Q[K] * Lq[K] * (Xq[K] + (Lq[K] / 2) - L1); for K := 1 to K1 do if (Xq[K] < L1) and (Xq[K]+Lq[K] > L1) then A := A - Q[K] * ((L1 - Xq[K])*(L1 - Xq[K])) / 2+(Q[K]/2)*((Xq[K]+Lq[K]-L1)*(Xq[K]+Lq[K]-L1)); Yb := A / L2; |
PRINT*,'ђ…ЂЉ–€џ Yb=',Yb A=0 DO N=1,N1 A=A-Pn(n)*(L1+L2-Xp(n)) END DO DO J=1,J1 A=A+Mj(J) END DO DO K=1,K1 IF(Xq(K).LT.(L1+L2).AND.(Xq(K)+Lq(K)).Le.(L1+L2)) THEN A=A-Q(K)*Lq(K)*(L1+L2-Xq(K)-(Lq(K)/2)) END IF END DO |
| Writeln('ђ…ЂЉ–€џ Yb=',Yb); A := 0; for N := 1 to N1 do A := A - Pn[n] * (L1 + L2 - Xp[n]); for J := 1 to J1 do A := A + Mj[J]; for K := 1 to K1 do If(Xq[K] < L1+L2) and (Xq[K] + Lq[K] <= L1+L2) Then A := A - Q[K] * Lq[K] * (L1 + L2 - Xq[K] - (Lq[K] / 2)); |
DO K=1,K1 IF((L1+L2).Le.Xq(K))THEN A=A+Q(K)*Lq(K)*(Xq(K)+(Lq(K)/2)-L1-L2) END IF END DO DO K=1,K1 IF(Xq(K).LT.(L1+L2).AND.(Xq(K)+Lq(K)).GT.(L1+L2)) THEN A=A-Q(K)*((L1+L2-Xq(K))**2)/2+(Q(K)/2)*((Xq(K)+Lq(K)-L1-L2)**2) END IF END DO Ya=-A/L2 PRINT*,'ђ…ЂЉ–€џ Ya=',Ya A=0 DO N=1,N1 A=A-Pn(N) END DO |
| for K := 1 to K1 do If L1+L2 <= Xq[K] Then A := A + Q[K] * Lq[K] * (Xq[K] + (Lq[K] / 2) - L1 - L2); for K := 1 to K1 do IF (Xq[K] < L1+L2) and (Xq[K]+Lq[K] > L1+L2) Then A := A - Q[K] * ((L1 + L2 - Xq[K])*(L1 + L2 - Xq[K])) / 2+(Q[K]/2)*((Xq[K]+Lq[K]-L1-L2)*(Xq[K]+Lq[K]-L1-L2)); Ya := -A / L2; Writeln('ђ…ЂЉ–€џ Ya=',Ya); A := 0; for N := 1 to N1 do A := A - Pn[N]; |
DO K=1,K1 A=A-Q(K)*Lq(K) END DO A=A+Ya+Yb IF(ABS(A).GT.0.0001)THEN PRINT*,'Ќ…‚…ђЌЋ ‚›—€‘‹…Ќ› Ya € Yb.A=',A END IF END |
| for K := 1 to K1 do A := A - Q[K] * Lq[K]; A := A + Ya + Yb; If (ABS(A) > 0.0001) Then Writeln('Ќ…‚…ђЌЋ ‚›—€‘‹…Ќ› Ya € Yb.A=',A); End; |