09.02.2015, 19:50 | #1 (permalink) |
Новичок
Регистрация: 09.02.2015
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа массивы в Pascal
|
09.02.2015, 19:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обычно в схожих топиках содержится много информативных ответов Двумерные массивы и процедуры PASCAL Программа на Pascal Одномерные массивы на Pascal Pascal ABC. Массивы. Нахождение значения переменной Y |
10.02.2015, 10:54 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const M=4; N=10; Type Matr=Array[1..M,1..N] of Integer; Matr_T=Array[1..N,1..M] of Integer; Vect=Array[1..M] of Integer; Var A,B:Matr; A_T,B_T:Matr_T; V:Vect; Procedure Out(Q:Matr); var i,j:Integer; begin for i:=1 to M do begin for j:=1 to N do Write(Q[i,j]:4); writeln; end; end; Procedure Inp(var Q:Matr); var i,j:Integer; begin for i:=1 to M do for j:=1 to N do Q[i,j]:=Random(100); end; Procedure Trans_Forw(Q:Matr; var P:Matr_T); var i,j:Integer; begin for i:=1 to M do for j:=1 to N do P[j,i]:=Q[i,j]; end; Procedure Trans_Back(P:Matr_T; var Q:Matr); var i,j:Integer; begin for i:=1 to N do for j:=1 to M do Q[j,i]:=P[i,j]; end; Procedure Exch(var P:Matr_T); begin V:=P[1]; P[1]:=P[N]; P[N]:=V; end; Begin Randomize; Inp(A); Inp(B); Writeln('Initial matrix A:'); Out(A); writeln; Writeln('Initial matrix B:'); Out(B); Writeln; Trans_Forw(A,A_T); Trans_Forw(B,B_T); Exch(A_T); Exch(B_T); Trans_Back(A_T,A); Trans_Back(B_T,B); Writeln('New matrix A:'); Out(A); Writeln; Writeln('New matrix B:'); Out(B); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascal, массив, помогите, процедуры, срочно |
|
|