Programaçao
Resenha: Programaçao. Pesquise 860.000+ trabalhos acadêmicosPor: adbc • 14/3/2014 • Resenha • 784 Palavras (4 Páginas) • 201 Visualizações
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:');
...