Programaçao

Arquivo enviado por José Oliveira para Introdução ao Processamento de Dados na UERJ

5 meses atrás

Pré-visualização

M e as somas calculadas

65. Escrever um algoritmo/programa em Pascal que lê uma matriz M(10,10) e a escreve. Troque, a seguir:

- a linha 2 com a linha 8.

- a coluna 4 com a coluna 10

- a diagonal principal com a secundária

- a linha 5 com a coluna 10

Escreva a matriz assim modificada.

program ex65;

uses crt;

var

m: array[1..10,1..10] of integer;

aux, i, j: integer;

begin

clrscr;

writeln('Informe a matriz: ');

for i:= 1 to 10 do

begin

for j:= 1 to 10 do

begin

gotoxy(j*6,i+1);

{readln(m[i,j]);}

m[i,j]:=(i-1)*10+j;

end;

end;

clrscr;

writeln('Matriz: ');

for i:= 1 to 10 do

begin

for j:= 1 to 10 do

begin

gotoxy(j*6,i+1);

write(m[i,j]:6);

end;

end;

readkey;

clrscr;

writeln('Troca da linha 2 com a linha 8:');

for j:= 1 to 10 do

begin

aux:=m[2,j];

m[2,j]:=m[8,j];

m[8,j]:=aux;

end;

for i:= 1 to 10 do

begin

for j:= 1 to 10 do

begin

gotoxy(j*6,i+1);

write(m[i,j]:6);

end;

end;

readkey;

clrscr;

writeln('Troca da coluna 4 com a coluna 10:');

for i:= 1 to 10 do

begin

aux:=m[i,4];

m[i,4]:=m[i,10];

m[i,10]:=aux;

end;

for i:= 1 to 10 do

begin

for j:= 1 to 10 do

begin

gotoxy(j*6,i+1);

write(m[i,j]:6);

end;

end;

readkey;

clrscr;

writeln('Troca da diagonal principal com a secundaria:');