Добавил:
TheBazilius
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:1 семестр сессия / 16
.pas Program Lab_426_Var16;
Type Massive = Array [1..5,1..5] Of Integer;
Procedure Zamena(Var A:Massive; I1,I2,M,N:Integer);
Var
X,I,J:Integer;
Begin
For I:=1 To M Do
Begin
For J:=1 To N Do
If (I=I1) Then
Begin
X:=A[I1,J];
A[I1,J]:=A[I2,J];
A[I2,J]:=X;
Write(A[I1,J],' ');
End
Else Write(A[I,J],' ');
Writeln;
End;
End;
Var
I1,I2,I,J,M,N:Integer;
A,B:Massive;
Begin
Randomize;
Writeln('1 : ');
For I:=1 To 3 Do
Begin
For J:=1 To 4 Do
Begin
A[I,J]:=Random(21) - 10;
Write(A[I,J],' ');
End;
Writeln;
End;
Writeln('2 : ');
For I:=1 To 5 Do
Begin
For J:=1 To 5 Do
Begin
B[I,J]:=Random(21) - 10;
Write(B[I,J],' ');
End;
Writeln;
End;
Writeln; Writeln; Writeln;
M:=3; N:=4; I1:=2; I2:=3; Zamena(A,I1,I2,M,N);
Writeln;
M:=5; N:=5; I1:=2; I2:=4; Zamena(B,I1,I2,M,N);
End.
Type Massive = Array [1..5,1..5] Of Integer;
Procedure Zamena(Var A:Massive; I1,I2,M,N:Integer);
Var
X,I,J:Integer;
Begin
For I:=1 To M Do
Begin
For J:=1 To N Do
If (I=I1) Then
Begin
X:=A[I1,J];
A[I1,J]:=A[I2,J];
A[I2,J]:=X;
Write(A[I1,J],' ');
End
Else Write(A[I,J],' ');
Writeln;
End;
End;
Var
I1,I2,I,J,M,N:Integer;
A,B:Massive;
Begin
Randomize;
Writeln('1 : ');
For I:=1 To 3 Do
Begin
For J:=1 To 4 Do
Begin
A[I,J]:=Random(21) - 10;
Write(A[I,J],' ');
End;
Writeln;
End;
Writeln('2 : ');
For I:=1 To 5 Do
Begin
For J:=1 To 5 Do
Begin
B[I,J]:=Random(21) - 10;
Write(B[I,J],' ');
End;
Writeln;
End;
Writeln; Writeln; Writeln;
M:=3; N:=4; I1:=2; I2:=3; Zamena(A,I1,I2,M,N);
Writeln;
M:=5; N:=5; I1:=2; I2:=4; Zamena(B,I1,I2,M,N);
End.
Соседние файлы в папке 1 семестр сессия