LISTA7 Subprog V2

01) Fazer um algoritmo para ler 1 matriz 3x3 real e escrevê-la.
Início
Defina M(3,3) real
Chame Ler (M)
Chame Escrever (M)
Fim
Subrotina Ler(X) Defina X(3,3) real Defina I, J inteiro Para I de 1 até 3 passo 1 Faça Para J de 1 até 3 passo 1 Faça Leia X(I, J) Fim-Para Fim-Para
Fim-Subrotina
Subrotina Escrever (X) Defina X(3,3) real Defina I, J inteiro Para I de 1 até 3 passo 1 Faça Para J de 1 até 3 passo 1 Faça Escreva X(I, J) Fim-Para Fim-Para
Fim-Subrotina

02) Fazer um algoritmo para ler 1 matriz 3x3 inteira e escrevê-la.
Início
Defina M(3,3) inteiro
Chame Ler (M)
Chame Escrever (M)
Fim
Subrotina Ler(X) Defina X(3,3), I, J inteiro Para I de 1 até 3 passo 1 Faça Para J de 1 até 3 passo 1 Faça Leia X(I, J) Fim-Para Fim-Para
Fim-Subrotina
Subrotina Escrever (x) Defina X(3,3), I, J inteiro Para I de 1 até 3 passo 1 Faça Para J de 1 até 3 passo 1 Faça Escreva X(I, J) Fim-Para Fim-Para
Fim-Subrotina

03) Fazer um algoritmo para ler 1 matriz 3x3 alfanumérica e escrevê-la.
Início
Defina M(3,3) caracter
Chame Ler (M)
Chame Escrever (M)
Fim
Subrotina Ler(X) Defina X(3,3) caracter Defina I, J inteiro Para I de 1 até 3 passo 1 Faça Para J de 1 até 3 passo 1 Faça Leia X(I, J) Fim-Para Fim-Para
Fim-Subrotina
Subrotina Escrever (X) Defina X(3,3) carcter Defina I, J inteiro Para I de 1 até 3 passo 1 Faça Para J de 1 até 3 passo 1 Faça Escreva X(I, J) Fim-Para Fim-Para
Fim-Subrotina

04) Fazer um algoritmo para ler 1 matriz 3x3 real, escrevê-la e no final escrever quantos são positivos.
Início
Defina m(3,3) real
Defina positivo inteiro
Chame Ler (m)
Chame Escrever (m)
Escreva positivo(m)
Fim
Função positivo (x) Defina x(3,3) real Defina I, J. positivo inteiro positivo ← 0 Para I de 1 até 3 passo 1 Faça Para J de 1 até 3 passo 1 Faça Se x(I, J) > 0 Então