Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / EX2
.PAS program ex2;
{‡ ¬ҐЁвм ¬Ґбв ¬Ё ў ¬ ваЁжҐ § зҐЁп Ј« ў®© Ё Ї®Ў®з®© ¤Ё Ј® «Ґ©}
const nmax=10;
var i,j,k: integer;
var n: integer; {Ї®а冷Є ¬ ваЁжл}
var m: array[1..nmax,1..nmax] of integer;
begin
writeln('‚ўҐ¤ЁвҐ Ї®а冷Є ¬ ваЁжл');
readln(n);
if n>nmax then
writeln('‡ ¤ л© Ї®а冷Є ¬ ваЁжл Ў®«миҐ ¬ ЄбЁ¬ «м®Ј®, а ў®Ј® ',nmax)
else
begin
writeln('‚ўҐ¤ЁвҐ Ёб室го ¬ ваЁжг');
for i:=1 to n do
for j:=1 to n do read(m[i,j]);
{ђ бЇҐз вЄ Ёб室®© ¬ ваЁжл}
writeln('€б室 п ¬ ваЁж ');
for i:=1 to n do
begin
for j:=1 to n do write(m[i,j]:4);
writeln
end;
{‡ ¬Ґ ¬Ґбв ¬Ё ¤Ё Ј® «Ґ©}
for i:=1 to n do
begin
k:=m[i,i]; m[i,i]:=m[i,n+1-i]; m[i,n+1-i]:=k
end;
{ђ бЇҐз ⪠१г«мвЁаго饩 ¬ ваЁжл}
writeln('ђҐ§г«мвЁагой п ¬ ваЁж ');
for i:=1 to n do
begin
for j:=1 to n do write(m[i,j]:4);
writeln
end
end
end.
{‡ ¬ҐЁвм ¬Ґбв ¬Ё ў ¬ ваЁжҐ § зҐЁп Ј« ў®© Ё Ї®Ў®з®© ¤Ё Ј® «Ґ©}
const nmax=10;
var i,j,k: integer;
var n: integer; {Ї®а冷Є ¬ ваЁжл}
var m: array[1..nmax,1..nmax] of integer;
begin
writeln('‚ўҐ¤ЁвҐ Ї®а冷Є ¬ ваЁжл');
readln(n);
if n>nmax then
writeln('‡ ¤ л© Ї®а冷Є ¬ ваЁжл Ў®«миҐ ¬ ЄбЁ¬ «м®Ј®, а ў®Ј® ',nmax)
else
begin
writeln('‚ўҐ¤ЁвҐ Ёб室го ¬ ваЁжг');
for i:=1 to n do
for j:=1 to n do read(m[i,j]);
{ђ бЇҐз вЄ Ёб室®© ¬ ваЁжл}
writeln('€б室 п ¬ ваЁж ');
for i:=1 to n do
begin
for j:=1 to n do write(m[i,j]:4);
writeln
end;
{‡ ¬Ґ ¬Ґбв ¬Ё ¤Ё Ј® «Ґ©}
for i:=1 to n do
begin
k:=m[i,i]; m[i,i]:=m[i,n+1-i]; m[i,n+1-i]:=k
end;
{ђ бЇҐз ⪠१г«мвЁаго饩 ¬ ваЁжл}
writeln('ђҐ§г«мвЁагой п ¬ ваЁж ');
for i:=1 to n do
begin
for j:=1 to n do write(m[i,j]:4);
writeln
end
end
end.
Соседние файлы в папке Alex