30.01.2011, 15:57 | #1 (permalink) |
Новичок
Регистрация: 14.01.2011
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы в паскале
Код:
program kyrs; uses crt; type mas=array[1..15,1..15] of integer; vector=array[1..15] of integer; var i,j,n:integer; A,B:mas; V,V1,V2:vector; procedure vvod; begin repeat clrscr; write('vvedite razmernost massiva ot 5 do 15: '); readln(n); until (n>=5) and (n<=15); for i:=1 to n do for j:=1 to n do A[i,j]:=-100+random(201); end; procedure vivod(Av:mas); var i1,j1:integer; begin i1:=(n div 2)+1; if (n mod 2)=0 then j1:=(n div 2) else j1:=(n div 2)+1; for i:=1 to n do begin for j:=1 to n do begin if (i<i1) or ((i>i1) and (j<=i-i1)) or ((i>=i1) and (j>j1) and (j<n-(i-i1))) then textcolor(13) else textcolor(14); write(Av[i,j]:5); end; writeln; textcolor(13); end; Writeln('Press "Enter" to continue...'); ReadLn; end; procedure obmen(Ao:mas; var Bo:mas); var i1,j1:integer; begin Bo:=Ao; i1:=round(n/2); for i:=1 to i1 do for j:=i1 to n do begin j1:=Bo[i,j]; Bo[i,j]:=Bo[n-j+1,n-j+1]; Bo[n-j+1,n-J+1]:=j1; end; end; BEGIN clrscr; randomize; textbackground(9); textcolor(13); vvod; clrscr; Writeln('Ishodnaya matritsa:'); vivod(A); obmen(A,B); Writeln('Preobrazovannaya matritsa:'); vivod(B); ReadLn; END. Местами менялись Эти:рисунок 2. |
30.01.2011, 15:57 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Схожие по содержанию топики, прочтите Матрицы и массивы в паскале Задача на массивы в Паскале Массивы на Паскале |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|