Отчет блок схемы (1084923), страница 2

Fortran

Delphi

SUBROUTINE FORCES(L1,L2,L3,Pn,Q,Xq,Xp,Mj,Xm,Lq,Yb,A,Ya,Xi,n1,k1,

> j1,I1,Q1)

REAL L1,L2,L3,Pn(4),Q(4),Xq(4),Xp(4),Mj(4),Xm(4),Lq(4),

> Yb,A,Ya,Xi(11),q1(11)

INTEGER n1,k1,j1,I1

PRINT*,'‚›—€‘‹…Ќ€… ЏЋЏ…ђ…—ЌЋ‰ ‘€‹› ‚ I-’ЋЊ ‘…—…Ќ€€'

DO I=1,I1

Q1(I)=0

DO N=1,N1

IF(Xp(N).LT.Xi(I))THEN

Q1(I)=Q1(I)-Pn(N)

END IF

END DO

IF(L1.LT.Xi(I))THEN

Q1(I)=Q1(I)+Ya

END IF

IF((L1+L2).LE.Xi(I))THEN

Q1(I)=Q1(I)+Yb

END IF

Procedure FORCES(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 Q1:Array1_11);

Var

I, N, K:Integer;

Begin

Writeln('‚›—€‘‹…Ќ€… ЏЋЏ…ђ…—ЌЋ‰ ‘€‹› ‚ I-’ЋЊ ‘…—…Ќ€€');

for I := 1 to I1 do Begin

Q1[I] := 0;

for N := 1 to N1 do

If Xp[N] < Xi[I] Then

Q1[I] := Q1[I] - Pn[N];

If L1 < Xi[I] Then

Q1[I] := Q1[I] + Ya;

If (L1+L2) <= Xi[I] Then

Q1[I] := Q1[I] + Yb;

DO K=1,K1

IF(Xq(K).LE.Xi(I).AND.(Xq(K)+Lq(K)).GE.Xi(I))THEN

Q1(I)=Q1(I)-Q(K)*(Xi(I)-Xq(K))

END IF

END DO

DO K=1,K1

IF((Xq(K)+Lq(K)).LE.Xi(I))THEN

Q1(I)=Q1(I)-Q(K)*Lq(K)

END IF

END DO

END DO

END

for K := 1 to K1 do

If (Xq[K] <= Xi[I]) and (Xq[K] + Lq[K] >= Xi[I]) Then

Q1[I] := Q1[I] - Q[K] * (Xi[I] - Xq[K]);

for K := 1 to K1 do

If Xq[K] + Lq[K] <= Xi[I] Then

Q1[I] := Q1[I] - Q[K] * Lq[K];

End;

End;

SUBROUTINE MOMENT(L1,L2,L3,Pn,Q,Xq,Xp,Mj,Xm,Lq,Yb,A,Ya,Xi,n1,k1,

> j1,I1,M1)

REAL L1,L2,L3,Pn(4),Q(4),Xq(4),Xp(4),Mj(4),Xm(4),Lq(4),

> Yb,A,Ya,Xi(11),M1(11)

INTEGER j1,I1,n1,k1

PRINT*,'‚›—€‘‹…Ќ€… €‡ѓ€ЃЂћ™€• ЊЋЊ…Ќ’Ћ‚'

DO I=1,I1

M1(I)=0

DO N=1,N1

IF(Xp(N).LT.Xi(I))THEN

M1(I)=M1(I)-Pn(N)*(Xi(I)-Xp(N))

END IF

END DO

IF(L1.LT.Xi(I))THEN

M1(I)=M1(I)+Ya*(Xi(I)-L1)

END IF

IF((L1+L2).LT.Xi(I))THEN

M1(I)=M1(I)+Yb*(Xi(I)-L2-L1)

END IF

Procedure MOMENT(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; k1:integer; j1:integer; I1:integer; M1:Array1_11);

Var

i,n,j,k:integer;

Begin

Writeln('‚›—€‘‹…Ќ€… €‡ѓ€ЃЂћ™€• ЊЋЊ…Ќ’Ћ‚');

for i := 1 to I1 do begin

M1[I] := 0;

for N := 1 to N1 do

If Xp[N] < Xi[I] Then

M1[I] := M1[I] - Pn[N] * (Xi[I]-Xp[N]);

If L1 < Xi[I] Then

M1[I] := M1[I] + Ya * (Xi[I] - L1);

IF (L1+L2) < Xi[I] Then

M1[I] := M1[I] + Yb * (Xi[I] - L2 - L1);

DO K=1,K1

IF(Xq(K).LE.Xi(I).AND.(Xq(K)+Lq(K)).GE.Xi(I))THEN

M1(I)=M1(I)-Q(K)*((Xi(I)-Xq(K))**2)/2

END IF

END DO

DO J=1,J1

IF(Xm(J).LT.Xi(I))THEN

M1(I)=M1(I)+Mj(J)

END IF

END DO

END DO

END

for K := 1 to K1 do

If(Xq[K] <= Xi[I]) and (Xq[K]+Lq[K] >= Xi[I]) Then

M1[I] := M1[I] - Q[K] * ((Xi[I] - Xq[K])*(Xi[I] - Xq[K]))/2;

for J := 1 to J1 do

If Xm[J] < Xi[I] Then

M1[I] := M1[I] + Mj[J];

End;

End;

Fortran

Delphi

SUBROUTINE RESULTS(L1,L2,L3,Pn,Q,Xq,Xp,Mj,Xm,Lq,Yb,A,Ya,Xi,n1,k1,

> j1,I1,M1,Q1)

REAL L1,L2,L3,Pn(4),Q(4),Xq(4),Xp(4),Mj(4),Xm(4),Lq(4),Yb,A,Ya

REAL xi(11),L,M1(11),Q1(11)

INTEGER n1,k1,j1,I1,p

WRITE(*,18)Ya,Yb

FORMAT(5X,'Ъ',65('Д'),'ї'/5X,'і',14x,

> 'ђ…‡“‹њ’Ђ’› ђЂЃЋ’› ЏђЋѓђЂЊЊ› "ЃЂ‹ЉЂ-"',13X,'і'/5X,'Г',32('Д'),

> 'В',32('Д'),'ґ'/5X,'і',3X,'ЋЏЋђЌЂџ ђ…ЂЉ–€џ Ya=',F8.2,2X,'і',3X,

> 'ЋЏЋђЌЂџ ђ…ЂЉ–€џ Yb=',F8.2,2X,'і')

read*

END

Procedure RESULTS(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 M1:Array1_11;var Q1:Array1_11);

Var

i,p:integer;

ks, ks2:string;

Begin

Writeln('_______________________________________');

Writeln(' ђ…‡“‹њ’Ђ’› ђЂЃЋ’› ЏђЋѓђЂЊЊ› "ЃЂ‹ЉЂ-11" |');

Writeln('_______________________________________');

ks := floattostr(Ya);

ks2 := floattostr(Yb);

Writeln('| ЋЏЋђЌЂџ ђ…ЂЉ–€џ Ya=', ks,'| ЋЏЋђЌЂџ ђ…ЂЉ–€џ Yb= ', ks2, ' |');

End;