Այսինքն` յուրաքանչյուր բացասական տարրի համար դրա տողի և սյան բոլոր տարրերը պիտի = 0? Եթե տենց լուծենք, հո սխալ չեն հաշվի?MrKaren-ի խոսքերից
Այսինքն` յուրաքանչյուր բացասական տարրի համար դրա տողի և սյան բոլոր տարրերը պիտի = 0? Եթե տենց լուծենք, հո սխալ չեն հաշվի?
Լոխ մունք ենք, մնացածը` լոխ են...
չէ․․․ սխալ չի լինի․․․․
Էս քեզ ծրագիրը
Էս էլ բլոկ-սխեման ու pas ֆայլըHTML կոդ:PROGRAM P1; USES CRT; TYPE Matrix = array [1..10, 1..10] of REAL; Vector = array [1..10] of INTEGER; Var X:Matrix; Rows, Columns : Vector; i, j, M, N : INTEGER; PROCEDURE CANGEROWCOLUMN(RowColumnIndex, MaxRowColumn : INTEGER; ChangeRow : BOOLEAN; VAR X : Matrix); Var i, j : INTEGER; BEGIN IF ChangeRow = True THEN FOR i:=1 to MaxRowColumn Do X[RowColumnIndex,i]:=0 ELSE FOR i:=1 to MaxRowColumn Do X[i, RowColumnIndex]:=0; END; BEGIN TEXTBACKGROUND(Blue); CLRSCR; WRITE('INPUT M='); READLN(M); WRITE('INPUT N='); READLN(N); FOR i:=1 to M Do For j:=1 to N Do BEGIN GOTOXY(1+6*(j-1), 4+i); READ(X[i,j]); END; FOR i:=1 to M Do Rows[i]:=0; FOR i:=1 to N Do Columns[i]:=0; FOR i:=1 to M Do FOR j:=1 to N Do IF X[i,j] < 0 THEN BEGIN Rows[i]:=1; Columns[j]:=1; END; FOR i:=1 to M Do IF Rows[i] = 1 THEN CANGEROWCOLUMN(i, M, True, X); FOR i:=1 to N Do IF Columns[i] = 1 THEN CANGEROWCOLUMN(i, N, False, X); FOR i:=1 to M Do For j:=1 to N Do BEGIN GOTOXY(1+6*(j-1), 4+M+1+i); WRITE(X[i,j]:4:1); END; WRITELN; READKEY; END.
ProgramMrKaren.zip
Բարով հանձնես
MrKaren (24.12.2011)
Մերսի........Էս քեզ ծրագիրը
Էս էլ բլոկ-սխեման ու pas ֆայլըHTML կոդ:PROGRAM P1; USES CRT; TYPE Matrix = array [1..10, 1..10] of REAL; Vector = array [1..10] of INTEGER; Var X:Matrix; Rows, Columns : Vector; i, j, M, N : INTEGER; PROCEDURE CANGEROWCOLUMN(RowColumnIndex, MaxRowColumn : INTEGER; ChangeRow : BOOLEAN; VAR X : Matrix); Var i, j : INTEGER; BEGIN IF ChangeRow = True THEN FOR i:=1 to MaxRowColumn Do X[RowColumnIndex,i]:=0 ELSE FOR i:=1 to MaxRowColumn Do X[i, RowColumnIndex]:=0; END; BEGIN TEXTBACKGROUND(Blue); CLRSCR; WRITE('INPUT M='); READLN(M); WRITE('INPUT N='); READLN(N); FOR i:=1 to M Do For j:=1 to N Do BEGIN GOTOXY(1+6*(j-1), 4+i); READ(X[i,j]); END; FOR i:=1 to M Do Rows[i]:=0; FOR i:=1 to N Do Columns[i]:=0; FOR i:=1 to M Do FOR j:=1 to N Do IF X[i,j] < 0 THEN BEGIN Rows[i]:=1; Columns[j]:=1; END; FOR i:=1 to M Do IF Rows[i] = 1 THEN CANGEROWCOLUMN(i, M, True, X); FOR i:=1 to N Do IF Columns[i] = 1 THEN CANGEROWCOLUMN(i, N, False, X); FOR i:=1 to M Do For j:=1 to N Do BEGIN GOTOXY(1+6*(j-1), 4+M+1+i); WRITE(X[i,j]:4:1); END; WRITELN; READKEY; END.
ProgramMrKaren.zip
Բարով հանձնես
Սենց բան հանդիպել է՞HTML կոդ:Իրականացնել տրված ռեկուրենտ առնչությունները , կառուցել ստացված մեծությունների գրաֆիկները : ԱԼԳՈՐԻԹՄ-1 1. α2=d1/c1 , α3=(d2-β2*b2)/Δ2 , αi+1=(di+βi*φi)/Δ i i=3, n-2 2. β2=e1/c1 , βi-1=ei/ Δ i i=2, n-3 3. γ2=f1/c1 , γ 3=(f2+ γ2*b2)/ Δ 2 , γi+1=(fi-γi-1*ai-γi*φi)/Δi i=3, n-1 4. Δ2=c2-α2*b2 , Δi=ci-βi-1*ai+αi*φi i=3 ,n-1 5. φi=αi-1*ai-bi i=3, n-1 6. yn-1=γn 7. yn-2=αn-1*yn-1+γn-1 8. yi=αi+1*yi+1-βi+1*yi+2+γi+1 i=n-3, 1 3 c1=29+12h/r12 , ci=30 i =2,n-2, cn-1=29+h/rn-1 Q=0.24 ai=1-h/ri i=3,n-1, bi=8(2-h/ri) i=2,n-1 a=0.513 di=8(2+h/ri) i=1,n-2, ei=1+h/ri i=1,n-3 c=0.00025 fi=48Qh2/πa2c2, i=1,n-1 , ri=a+ih , i=1,n-1 , h=c/n
Իրականացնել տրված ռեկուրենտ առնչությունները , կառուցել ստացված մեծությունների գրաֆիկները :
1. α2=d1/c1 , α3=(d2-β2*b2)/Δ2 , αi+1=(di+βi*φi)/Δ i i=3, n-2
2. β2=e1/c1 , βi-1=ei/ Δ i i=2, n-3
3. γ2=f1/c1 , γ 3=(f2+ γ2*b2)/ Δ 2 , γi+1=(fi-γi-1*ai-γi*φi)/Δi i=3, n-1
4. Δ2=c2-α2*b2 , Δi=ci-βi-1*ai+αi*φi i=3 ,n-1
5. φi=αi-1*ai-bi i=3, n-1
6. yn-1=γn
7. yn-2=αn-1*yn-1+γn-1
8. yi=αi+1*yi+1-βi+1*yi+2+γi+1 i=n-3, 1
3
c1=29+12h/r12 , ci=30 i =2,n-2, cn-1=29+h/rn-1 Q=0.24
ai=1-h/ri i=3,n-1, bi=8(2-h/ri) i=2,n-1 a=0.513
di=8(2+h/ri) i=1,n-2, ei=1+h/ri i=1,n-3 c=0.00025
fi=48Qh2/πa2c2, i=1,n-1 , ri=a+ih , i=1,n-1 , h=c/n
Որ ճիշտը ասեմ՝ չհասկացա թե ինչ ա, որ բացատրես, կփորձեմ օգնել:
Վերևում պահանջը սխալ է....
Այս պահին թեմայում են 1 հոգի. (0 անդամ և 1 հյուր)
Ձեր իրավունքները բաժնում
Մեջբերել
Էջանիշներ