VETOR:
A) Algoritmo "letraa"
Var
a:vetor[1..10] de inteiro
x:inteiro
Inicio
para x de 1 ate 10 faca
leia(A[x])
Fimpara
Para x de 1 ate 10 faca
Escreval (A[x])
fimpara
Fimalgoritmo
B) Algoritmo "letrab"
Var
a,b:vetor[1..8] de inteiro
x:inteiro
Inicio
escreval(" digite 8 numeros para A :")
para x de 1 ate 8 faca
leia(A[x])
Fimpara
Para x de 1 ate 8 faca
B[x]<- a[x]*3
escreval(" os numeros do b foi de :",b[x])
fimpara
Fimalgoritmo
C) Algoritmo "LETRAC"
Var
A,B,C: vetor[1..20] de real
X:inteiro
Inicio
Para x de 1 ate 20 faca
ESCREVAL("digite um numero: de 1 a 5 A [",x," ]")
LEiA(A[x])
fimpara
Para x de 1 ate 20 faca
ESCREVAL("digite um numero: de 1 a 5 B [",x," ]")
LEiA(B[x])
fimpara
escreval()
escreval("valores de c:")
Para x de 1 ate 20 faca
C[x]<-A[x]-B[x]
ESCREVAL("C [",x," ]",c[x])
fimpara
Fimalgoritmo
D) Algoritmo "LETRAD"
Var
A,B: vetor[1..15] de real
X:inteiro
Inicio
Para x de 1 ate 15 faca
ESCREVAL("digite um numero: de 1 a 15 A [",x," ]")
LEiA(A[x])
fimpara
Para x de 1 ate 15 faca
b[x]<-A[x]*A[x]
ESCREVAL("B [" , x , " ]", B[x])
fimpara
Fimalgoritmo
E) Algoritmo "LETRAE"
Var
B: vetor[1..15] de real
A: vetor [1..15] de inteiro
X,y:inteiro
Inicio
Para x de 1 ate 15 faca
ESCREVAL("digite um numero: de 1 a 15 A [",x," ]")
LEiA(A[x])
B[x]<-1
Para y de A[x] ate 1 passo -1 faca
B[x]<- B[x]*y
fimpara
fimpara
Para x de 1 ate 15 faca
ESCREVAL("B [" , x , " ] = ", B[x]," A = ", A[x])
Fimpara
Fimalgoritmo
F) Algoritmo "LETRAF"
Var
B: vetor[1..15] de real
A: vetor [1..15] de real
C: vetor [1..30] de real
X:inteiro
Inicio
Para x de 1 ate 15 faca
ESCREVAL("digite um numero: de 1 a 15 A [",x," ]")
LEiA(A[x])
fimpara
Para x de 1 ate 15 faca
escreval("digite um numero: de 1 ate 15 B[",x,"]")
Leia (B[x])
C[x]<- A[x]
C[x+15]<- B[x]
fimpara
para x de 1 ate 30 faca
ESCREVAL ("C [",x," ] = ", C[x])
fimpara
Fimalgoritmo
G) Algoritmo "LETRAG"
Var
B: vetor[1..30] de real
A: vetor [1..20] de real
C: vetor [1..50] de real
X:inteiro
Inicio
Para x de 1 ate 20 faca
ESCREVAL("digite um numero: de 1 a 20 A [",x," ]")
LEiA(A[x])
C[x]<- A[x]
fimpara
Para x de 1 ate 30 faca
escreval("digite um numero: de 1 ate 30 B[",x,"]")
Leia (B[x])
C[x+20]<- B[x]
fimpara
para x de 1 ate 50 faca
ESCREVAL ("C [",x," ] = ", C[x])
fimpara
Fimalgoritmo
H) Algoritmo "LETRAH"
Var
B: vetor[1..20] de real
A: vetor [1..20] de real
X,P:inteiro
Inicio
Para x de 1 ate 20 faca
ESCREVAL("digite um numero: de 1 a 20 A [",x," ]")
LEiA(A[x])
fimpara
P<-1
Para x de 20 ate 1 passo -1 faca
B[p]<-a[x]
P<-p+1
fimpara
Para x de 1 ate 20 faca
ESCREVAL("B [",x,"] = ", B[x])
fimpara
Fimalgoritmo
I) Algoritmo "LETRAI"
Var
B: vetor[1..5] de real
A,C: vetor [1..5] de real
D: vetor [1..15] de real
X:inteiro
Inicio
Para x de 1 ate 5 faca
ESCREVAL("digite um numero: de 1 a 5 A [",x," ]")
LEiA(A[x])
D[x]<-A[x]
fimpara
Para x de 1 ate 5 faca
ESCREVAL("digite um numero: de 1 a 5 C [",x," ]")
LEiA(B[x])
D[x+10]<-B[x]
fimpara
Para x de 1 ate 5 faca
ESCREVAL("digite um numero: de 1 a 5 C [",x," ]")
LEiA(C[x])
D[x+5]<-C[x]
fimpara
para x de 1 ate 15 faca
ESCREVAL("D[",x,"] = ", D[x])
Fimpara
Fimalgoritmo
J) Algoritmo "letraj"
Var
A:Vetor[1..20] de inteiro
B:vetor[1..20] de inteiro
x:inteiro
Inicio
para x de 1 ate 5 faca
ESCREVAL("digite um numero para A: [", x ," ]")
leia(A[x])
B[x]<-A[X]*3
fimpara
para x de 1 ate 5 faca
ESCREVAL(" B [", X , "]= ", B[x])
FIMPARA
Fimalgoritmo
K) Algoritmo "letraK"
Var
A:Vetor[1..10] de inteiro
B:vetor[1..10] de inteiro
x:inteiro
Inicio
para x de 1 ate 10 faca
ESCREVAL("digite um numero para A: [", x ," ]")
leia(A[x])
fimpara
para x de 1 ate 10 faca
B[x]<--A[x]
ESCREVAL(" B [", X , "]= ", B[x])
FIMPARA
Fimalgoritmo
L) Algoritmo "letraL"
Var
A:Vetor[1..10] de REAl
B:vetor[1..10] de REAL
x:inteiro
Inicio
para x de 1 ate 5 faca
ESCREVAL("digite um numero para A: [", x ," ]")
leia(A[x])
fimpara
para x de 1 ate 5 faca
B[x]<-A[x]/2
ESCREVAL(" B [", X , "]= ", B[x])
FIMPARA
Fimalgoritmo
M) Algoritmo "letraM"
Var
A:Vetor[1..10] de REAL
N,N1:REAL
X:INTEIRO
Inicio
para x de 1 ate 10 faca
N<-1
ESCREVAL(" Digite um numero:")
leia (A[x])
fimpara
para x de 1 ate 10 faca
A[x]<-A[x]*N
N<-N+1
ESCREVAL(" A [", X , "]= ", A[x])
fimpara
Fimalgoritmo
N) Algoritmo "letran"
Var
A : vetor [1..20] de real
N,X:inteiro
ME,MAI,SOMA,med:real
Inicio
escreval("digite 20 numeros:")
Leia(A[1])
ME<-A[1]
MAI<-A[1]
SOMA<-A[1]
PARA N DE 2 ATE 20 FACA
LEIA(A[N])
SOMA<-SOMA + A[N]
SE(A[N]<ME)ENTAO
ME<-a[N]
FIMSE
SE(A[N]>MAI)entao
mai<-a[n]
fimse
fimpara
med<-soma/n
escreval("Foi a menor temperatura:", me)
escreval("Foi a maior temperatura:", mai)
escreval("a media foi de :", med)
Fimalgoritmo
O) Algoritmo "letraO"
Var
A,B:Vetor[1..10] de REAL
X:INTEIRO
Inicio
para x de 1 ate 10 faca
ESCREVAL("digite um numero para A:")
LEIA(A[x])
FIMPARA
para x de 1 ate 10 faca
B[x]<- A[x]*9/5+32
ESCREVAL("B [", x ," ]=", B[x])
FIMPARA
Fimalgoritmo
P) Algoritmo "letraP"
Var
A,B:Vetor[1..12] de REAL
X:INTEIRO
Inicio
para x de 1 ate 12 faca
escreval("digite um numero para A:")
Leia(A[x])
se(A[x]%2=0)entao
B[x]<- A[x]
fimse
se(A[x]%2<>0) entao
B[x]<- A[x]*2
fimse
fimpara
para x de 1 ate 12 faca
escreval ("A[",x,"]=",A[x]," | B[",x,"]=",B[x])
fimpara
Fimalgoritmo
Q) Algoritmo "letraQ"
Var
A,B:Vetor[1..15] de REAL
X:INTEIRO
Inicio
para x de 1 ate 15 faca
escreval("digite um numero para A:")
Leia(A[x])
se(A[x]%2=0)entao
fimse
se(A[x]%2<>0) entao
B[x]<- A[x]*1.5
fimse
fimpara
para x de 1 ate 15 faca
escreval ("A[",x,"]=",A[x]," | B[",x,"]=",B[x])
fimpara
Fimalgoritmo
R)
Algoritmo "LetraR"
Var
A, B :vetor[1..6] de inteiro
C, D :vetor[1..12] de inteiro
x,y,z:inteiro
Inicio
y<-0
z<-0
para x de 1 ate 6 faca
escreval ("digite 6 numeros a: {", x ," ]")
Leia (A[x])
se (A[x] %2<>0) entao
z<-z+1
C[z]<- A[x]
senao
y<-y+1
D[y]<- A[x]
fimse
fimpara
para x de 1 ate 6 faca
escreval ("digite 6 numeros b: {", x ," ]")
Leia (B[x])
se (B[x] %2<>0) entao
z<-z+1
C[z]<- B[x]
senao
y<-y+1
D[y]<- B[x]
fimse
fimpara
escreval ("todos digitos de a:")
para x de 1 ate 6 faca
escreval (a[x])
fimpara
escreval ("todos digitos de b:")
para x de 1 ate 6 faca
escreval (b[x])
fimpara
escreval ("todos digitos de c:")
para x de 1 ate 12 faca
se (c[x]<>0)entao
escreval (c[x])
fimse
fimpara
escreval ("todos digitos de d:")
para x de 1 ate 12 faca
se (d[x]<>0)entao
escreval (d[x])
fimse
fimpara
Fimalgoritmo
S) Algoritmo "LetraS"
Var
A, B :vetor[1..6] de inteiro
C :vetor[1..12] de inteiro
x:inteiro
Inicio
para x de 1 ate 6 faca
escreval ("digite 6 numeros a: {", x ," ]")
Leia (A[x])
se (A[x] %2=0) entao
C[x]<- A[x]
fimse
fimpara
para x de 1 ate 6 faca
escreval ("digite 6 numeros b: {", x ," ]")
Leia (B[x])
se (B[x] %2<>0) entao
C[6+x]<- B[x]
fimse
fimpara
escreval ("todos digitos de a:")
para x de 1 ate 6 faca
escreval (a[x])
fimpara
escreval ("todos digitos de C:")
para x de 1 ate 12 faca
escreval (C[x])
fimpara
T) Algoritmo "Letra_t"
Var
A, B :vetor[1..10] de inteiro
C :vetor[1..20] de inteiro
x:inteiro
Inicio
para x de 1 ate 10 faca
escreval("digite 10 numeros para A:")
leia(A[x])
se(A[x]%2<>0)e(A[x]%3<>0)entao
x<- x-1
senao
c[x]<-A[x]
fimse
fimpara
para x de 1 ate 10 faca
escreval("digite 10 numeros para B: ")
leia(B[x])
se(A[x]%5<>0)entao
x<- x-1
senao
c[x+10]<-b[x]
fimse
fimpara
para x de 1 ate 20 faca
escreval("C [", x, " ] = " ,C[x])
fimpara
Fimalgoritmo
U) Algoritmo "Letra_U"
Var
A, B :vetor[1..12] de inteiro
C :vetor[1..24] de inteiro
x:inteiro
Inicio
para x de 1 ate 12 faca
escreval("digite 10 numeros para A:")
leia(A[x])
se(A[x]%2=0)Ou(A[x]%3=0)entao
c[x]<-A[x]
senao
x<- x-1
fimse
fimpara
para x de 1 ate 12 faca
escreval("digite 10 numeros para B: ")
leia(B[x])
se(B[x]%5=0)entao
x<- x-1
senao
c[x+12]<-b[x]
fimse
fimpara
para x de 1 ate 24 faca
escreval("C [", x, " ] = " ,C[x])
fimpara
Fimalgoritmo
V) Algoritmo "letra_v"
Var
A,B,C:vetor[1..5,1..5] de inteiro
x,y,t:inteiro
Inicio
para x de 1 ate 5 faca
para y de 1 ate 5 faca
t<-0
escreval("digite um valor para A [",x,",",y," ] que não é divisível por
3")
leia(A[x,y])
enquanto (t=0) faca
se nao(A[x,y]%3=0) entao
t<-1
senao
escreval("digite um numero valido")
leia(A[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval()
para x de 1 ate 5 faca
para y de 1 ate 5 faca
t<-0
escreval("digite um valor para B [",x,",",y," ] que não é divisível por
6")
leia(B[x,y])
enquanto (t=0) faca
se nao(B[x,y]%6=0) entao
t<-1
senao
escreval("digite um valor válido:")
leia(B[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval("valores de C: ")
para x de 1 ate 5 faca
para y de 1 ate 5 faca
C[x,y]<-A[x,y]+B[x,y]
escreval(C[x,y])
fimpara
fimpara
fimalgoritmo
W) Algoritmo "letraw"
Var
A,B:vetor [1..10] de inteiro
C:vetor[1..10] de inteiro
x:inteiro
Inicio
x<-1
Para x de 1 ate 10 faca
ESCREVAL(" Digite um valor para A : [" , x , " ]")
leia(A[x])
fimpara
Para x de 1 ate 10 faca
ESCREVAL(" Digite um valor para B : [" , x , " ]")
leia(B[x])
fimpara
Para x de 1 ate 10 faca
C[x]<- A[x]+B[x]
C[x]<-C[x]*C[x]
fimpara
para x de 1 ate 10 faca
ESCREVAL(" a soma dos numeros ao quadrado foi de : [" , C[x] , " ]")
fimpara
Fimalgoritmo
X) Algoritmo "letrax"
Var
A : vetor [1..6] de inteiro
B : vetor [1..6] de inteiro
y: inteiro
Inicio
para y de 1 ate 6 faca
ESCREVAL("digite um valor para A:")
leia(A[y])
fimpara
para y de 1 ate 6 faca
se(Y%2<>0)entao
B[y]<-A[y+1]
senao
B[y]<-A[y-1]
fimse
fimpara
escreval()
escreval("elementos de B:")
para y de 1 ate 6 faca
escreval("B [",y," ] = ",B[y])
fimpara
Fimalgoritmo
Y) Algoritmo "letray"
Var
A : vetor [1..15] de inteiro
y,x: inteiro
Inicio
para y de 1 ate 15 faca
ESCREVAL("digite um valor para A:")
leia(A[y])
fimpara
para y de 1 ate 15 faca
se(y%2<>0)entao
x<-x+0
senao
x<-x+1
fimse
fimpara
Escreval("A quantidae de numeros pares foi de :",x)
Fimalgoritmo
Z) Algoritmo "letraz"
Var
A : vetor [1..10] de inteiro
y,x: inteiro
Inicio
para y de 1 ate 10 faca
ESCREVAL("digite um valor para A:")
leia(A[y])
fimpara
para y de 1 ate 10 faca
se(A[y]%2<>0)entao
x<-x+1
fimse
fimpara
Escreval("A quantida de numeros impares foi de :",x)
Escreval("A Porcentagem de numeros impares é", x*10,"%")
Fimalgoritmo
Matriz:
A) Algoritmo "Letra a"
Var
A: VETOR [1..5,1..3] DE REAL
B: VETOR [1..5,1..3] DE REAL
C: VETOR [1..5,1..3] DE REAL
X:INTEIRO
Y:INTEIRO
Inicio
PARA X DE 1 ATE 5 FACA
PARA Y DE 1 ATE 3 FACA
ESCREVAL("DIGITE UM NUMERO PARA A:")
LEIA(A[X,Y])
FIMPARA
FIMPARA
PARA X DE 1 ATE 5 FACA
PARA Y DE 1 ATE 3 FACA
ESCREVAL("DIGITE UM NUMERO PARA B:")
LEIA(B[X,Y])
C[X,Y] <- A[X,Y] + B[X,Y]
FIMPARA
FIMPARA
ESCREVAL("NUMEROS A SOMADO COM O NUMEROS B:")
PARA X DE 1 ATE 5 FACA
PARA Y DE 1 ATE 3 FACA
ESCREVAL(C[X,Y])
FIMPARA
FIMPARA
B) Algoritmo "Letra b"
Var
A: VETOR [1..7] DE REAL
B: VETOR [1..7] DE REAL
C: VETOR [1..7,1..2] DE REAL
X:INTEIRO
Y:INTEIRO
Inicio
PARA X DE 1 ATE 7 FACA
ESCREVAL("DIGITE UM NUMERO PARA A:")
LEIA(A[X])
FIMPARA
PARA X DE 1 ATE 7 FACA
ESCREVAL("DIGITE UM NUMERO PARA B:")
LEIA(B[X])
FIMPARA
ESCREVAL("NUMEROS A COM O NUMEROS B:")
PARA X DE 1 ATE 7 FACA
PARA Y 43DE 1 ATE 2 FACA
ESCREVAL(C[X,Y])
FIMPARA
C) Algoritmo "semnome"
Var
A:vetor[1..4,1..5] de real
x,y:inteiro
Inicio
para x de 1 ate 4 faca
para y de 1 ate 5 faca
escreval("digite um numero para A :[",x," ,",y," ]")
leia(A[x,y])
fimpara
fimpara
escreval("numeros lidos: ")
para x de 1 ate 4 faca
para y de 1 ate 5 faca
escreval(A[x,y])
fimpara
fimpara
Fimalgoritmo
D) Algoritmo "semnome"
Var
A:vetor[1..10] de inteiro
C:vetor[1..10,1..3] de real
x,y,con:inteiro
Inicio
para y de 1 ate 3 faca
para x de 1 ate 10 faca
se(y=1) entao
escreval("digite um valor para A [",x," ]")
leia(A[x])
C[x,y]<-A[x]+5
fimse
se(y=2) entao
C[x,y]<-1
para con de A[x] ate 1 passo -1 faca
C[x,y] <- C[x,y]*con
fimpara
fimse
se(y=3)entao
C[x,y]<-A[x]^2
fimse
fimpara
fimpara
para x de 1 ate 10 faca
para y de 1 ate 3 faca
escreval("Numero de C:[",x," ,",y," ]",C[x,y])
fimpara
fimpara
Fimalgoritmo
E) Algoritmo "semnome"
Var
A,B:vetor[1..12] de real
C:vetor[1..12,1..2] de real
y,x:inteiro
Inicio
y<-1
para x de 1 ate 12 faca
escreval("digite um número para A [",x," ]")
leia(A[x])
C[x,y]<-A[x]*2
fimpara
y<-2
para x de 1 ate 12 faca
escreval("digite um número para B[",x," ]")
leia(B[x])
C[x,y]<-B[x]-5
fimpara
escreval("o conjunto C ficará:")
para y de 1 ate 2 faca
para x de 1 ate 12 faca
escreval("[ ",x,",",y," ] = ",C[x,y])
fimpara
fimpara
Fimalgoritmo
F) Algoritmo "semnome"
Var
A:vetor[1..5,1..4] de inteiro
B:vetor[1..5,1..4] de real
y,x,c:inteiro
Inicio
para y de 1 ate 4 faca
para x de 1 ate 5 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
B[x,y]<-1
para c de A[x,y] ate 1 passo -1 faca
B[x,y]<-B[x,y]*c
fimpara
fimpara
fimpara
escreval("o conjunto B ficará:")
para y de 1 ate 4 faca
para x de 1 ate 5 faca
escreval("[ ",x,",",y," ] = ",B[x,y])
fimpara
fimpara
Fimalgoritmo
G) Algoritmo "semnome"
Var
A:vetor[1..4,1..5] de inteiro
B:vetor[1..4,1..5] de real
y,x,c:inteiro
Inicio
para y de 1 ate 5 faca
para x de 1 ate 4 faca
escreval("digite a temperatura em graus Celsius diária [",x,",",y," ]")
leia(A[x,y])
B[x,y]<-A[x,y]*1.8+32
fimpara
fimpara
escreval("o conjunto A ficará:")
para y de 1 ate 5 faca
para x de 1 ate 4 faca
escreval("[ ",x,",",y," ] = ",A[x,y])
fimpara
fimpara
escreval()
escreval("o Conjunto B ficará:")
para y de 1 ate 5 faca
para x de 1 ate 4 faca
escreval("[ ",x,",",y," ] = ",B[x,y])
fimpara
fimpara
Fimalgoritmo
H) Algoritmo "semnome"
Var
A:vetor[1..5,1..5] de inteiro
B:vetor[1..5,1..5] de real
y,x,c:inteiro
Inicio
para y de 1 ate 5 faca
para x de 1 ate 5 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
B[x,y]<-A[x,y]*2
se(x=y) entao
B[x,y]<-A[x,y]*3
fimse
fimpara
fimpara
escreval()
escreval("o conjunto B ficará:")
para y de 1 ate 5 faca
para x de 1 ate 5 faca
escreval("[ ",x,",",y," ] = ",B[x,y])
fimpara
fimpara
Fimalgoritmo
i) Algoritmo "semnome"
Var
A,B:vetor[1..6,1..5] de inteiro
x,y:inteiro
Inicio
para x de 1 ate 6 faca
para y de 1 ate 5 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
se(A[x,y]%2 = 0) entao
B[x,y]<-A[x,y]+5
senao
B[x,y] <- A[x,y]-4
fimse
fimpara
fimpara
escreval(" valores de B: ")
para x de 1 ate 6 faca
para y de 1 ate 5 faca
escreval("[",x,",",y," ] = ",B[x,y])
fimpara
fimpara
Fimalgoritmo
J)
Algoritmo "semnome"
Var
A,B:vetor[1..6,1..5] de inteiro
x,y:inteiro
Inicio
para x de 1 ate 6 faca
para y de 1 ate 5 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
se(A[x,y]%2 = 0) entao
B[x,y]<-A[x,y]+5
senao
B[x,y] <- A[x,y]-4
fimse
fimpara
fimpara
escreval(" valores de B: ")
para x de 1 ate 6 faca
para y de 1 ate 5 faca
escreval("[",x,",",y," ] = ",B[x,y])
fimpara
fimpara
Fimalgoritmo
K) Algoritmo "semnome"
Var
A:vetor[1..4,1..4] de inteiro
x,y,soma:inteiro
Inicio
para x de 1 ate 4 faca
para y de 1 ate 4 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
se(x=y) entao
soma<-soma+A[x,y]
fimse
fimpara
fimpara
escreval(" cálculo da somatória ",soma)
Fimalgoritmo
L) Algoritmo "semnome"
Var
A:vetor[1..15,1..15] de inteiro
x,y,soma:inteiro
Inicio
para x de 1 ate 15 faca
para y de 1 ate 15 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
se(x=y) entao
soma<-soma+A[x,y]
fimse
fimpara
fimpara
escreval(" cálculo da somatória ",soma)
Fimalgoritmo
M) Algoritmo "semnome"
Var
A:vetor[1..5,1..5] de inteiro
x,y,soma:inteiro
Inicio
para x de 1 ate 5 faca
para y de 1 ate 5 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
se((x=y) e((x=1) ou (x=3) ou (x=5))) entao
soma<-soma+A[x,y]
fimse
fimpara
fimpara
escreval(" cálculo da somatória ",soma)
Fimalgoritmo
N) Algoritmo "semnome"
Var
A:vetor[1..7,1..7] de inteiro
x,y,total:inteiro
Inicio
para x de 1 ate 7 faca
para y de 1 ate 7 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
se(A[x,y]%2 = 0) entao
total<-total +1
fimse
fimpara
fimpara
escreval(" total de valores pares: ",total)
Fimalgoritmo
o) Algoritmo "semnome"
Var
A:vetor[1..8,1..6] de inteiro
B:vetor[1..6] de inteiro
x,y,c,soma:inteiro
Inicio
para y de 1 ate 6 faca
para x de 1 ate 8 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
fimpara
fimpara
escreval(" Valores de B: ")
para y de 1 ate 6 faca
para x de 1 ate 8 faca
B[y]<-B[y]+A[x,y]
fimpara
fimpara
escreval()
escreval(" a Matriz B vai ser igual a: ")
para y de 1 ate 6 faca
escreval(B[y])
soma<-soma+B[y]
fimpara
escreval()
escreval(" A soma dos valores de B é de: ",soma)
Fimalgoritmo
P) Algoritmo "semnome"
Var
A:vetor[1..10,1..7] de inteiro
x,y,c,soma,ti,tp:inteiro
pp,pim:real
Inicio
para y de 1 ate 7 faca
para x de 1 ate 10 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
se(A[x,y]%2=0) entao
tp<-tp+1
senao
ti<-ti+1
fimse
fimpara
fimpara
pp<-tp/(x*y)*100
pim<-ti/(x*y)*100
escreval("total de numeros pares: ",tp)
escreval("total de numeros impares: ",ti)
escreval("Porcentual de números pares: ",pp,"%")
escreval("Porcentual de números impares: ",pim,"%")
Fimalgoritmo
Q) Algoritmo "semnome"
Var
A:vetor[1..4,1..5] de inteiro
B:vetor[1..4] de inteiro
C:vetor[1..5] de inteiro
x,y,d:inteiro
Inicio
para y de 1 ate 5 faca
para x de 1 ate 4 faca
escreval("digite um número para A [",x,",",y," ]")
leia(A[x,y])
fimpara
fimpara
escreval(" Valores de B: ")
para y de 1 ate 5 faca
d<-0
para x de 1 ate 4 faca
se(d<4) entao
B[y]<-B[y]+A[x,y]
d<-d+1
fimse
fimpara
fimpara
para x de 1 ate 4 faca
d<-0
para y de 1 ate 5 faca
se(d<4) entaao
C[x]<-C[x]+A[x,y]
d<-d+1
fimse
fimpara
fimpara
escreval()
escreval(" a Matriz B vai ser igual á: ")
para y de 1 ate 4 faca
escreval(B[y])
fimpara
escreval()
escreval(" a Matriz C vai ser igual á: ")
para x de 1 ate 5 faca
escreval(C[x])
fimpara
Fimalgoritmo
R) Algoritmo "semnome"
Var
EE: vetor[1..4,1..4] de real
A,B,C,D: vetor[1..4] de inteiro
x,y,contador: inteiro
Inicio
x<-1
para y de 1 ate 4 faca
escreval("digite um número para A [",y," ]")
leia(A[y])
EE[x,y]<-A[y]*2
fimpara
escreval()
x<-2
para y de 1 ate 4 faca
escreval("digite um número para B [",y," ]")
leia(B[y])
EE[x,y]<-B[y]*3
fimpara
escreval()
x<-3
para y de 1 ate 4 faca
escreval("digite um número para C [",y," ]")
leia(C[y])
EE[x,y]<-C[y]*4
fimpara
escreval()
x<-4
para y de 1 ate 4 faca
escreval("digite um número para D [",y," ]")
leia(D[y])
EE[x,y]<-1
para contador de D[y] ate 1 passo -1 faca
EE[x,y]<-Ee[x,y]*contador
fimpara
fimpara
escreval()
escreval(" a Matriz E vai ser igual á: ")
para x de 1 ate 4 faca
para y de 1 ate 4 faca
escreval(EE[x,y])
fimpara
fimpara
Fimalgoritmo
S) Algoritmo "semnome"
Var
A,B,C:vetor[1..5,1..6] de inteiro
x,y,t:inteiro
Inicio
para x de 1 ate 5 faca
para y de 1 ate 6 faca
t<-0
escreval("digite um valor para A [",x,",",y," ] que é divisível por 2")
leia(A[x,y])
enquanto (t=0) faca
se(A[x,y]%2=0) entao
t<-1
senao
escreval("digite um numero valido")
leia(A[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval()
para x de 1 ate 5 faca
para y de 1 ate 6 faca
t<-0
escreval("digite um valor para B [",x,",",y," ] que é divisível por 3")
leia(B[x,y])
enquanto (t=0) faca
se nao(B[x,y]%2=0) entao
t<-1
senao
escreval("digite um valor válido:")
leia(B[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval("valores de C: ")
para x de 1 ate 5 faca
para y de 1 ate 6 faca
C[x,y]<-A[x,y]+B[x,y]
escreval(C[x,y])
fimpara
fimpara
fimalgoritmo
T) Algoritmo "semnome"
Var
A,B,C:vetor[1..4,1..5] de inteiro
x,y,t:inteiro
Inicio
para x de 1 ate 4 faca
para y de 1 ate 5 faca
t<-0
escreval("digite um valor para A [",x,",",y," ] que é divisível por 3 e 4")
leia(A[x,y])
enquanto (t=0) faca
se((A[x,y]%3=0)e(A[x,y]%4=0)) entao
t<-1
senao
escreval("digite um numero valido")
leia(A[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval()
para x de 1 ate 4 faca
para y de 1 ate 5 faca
t<-0
escreval("digite um valor para B [",x,",",y," ] que é divisível por 5 e 6")
leia(B[x,y])
enquanto (t=0) faca
se((B[x,y]%5=0)e(B[x,y]%6=0)) entao
t<-1
senao
escreval("digite um valor válido:")
leia(B[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval("valores de C: ")
para x de 1 ate 4 faca
para y de 1 ate 5 faca
C[x,y]<-A[x,y]-B[x,y]
escreval(C[x,y])
fimpara
fimpara
fimalgoritmo
U) Algoritmo "semnome"
Var
A,B,C:vetor[1..4,1..5] de inteiro
x,y,t:inteiro
Inicio
para x de 1 ate 4 faca
para y de 1 ate 5 faca
t<-0
escreval("digite um valor para A [",x,",",y," ] que é divisível por 3 e 4")
leia(A[x,y])
enquanto (t=0) faca
se((A[x,y]%3=0)e(A[x,y]%4=0)) entao
t<-1
senao
escreval("digite um numero valido")
leia(A[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval()
para x de 1 ate 4 faca
para y de 1 ate 5 faca
t<-0
escreval("digite um valor para B [",x,",",y," ] que é divisível por 5 e 6")
leia(B[x,y])
enquanto (t=0) faca
se((B[x,y]%5=0)e(B[x,y]%6=0)) entao
t<-1
senao
escreval("digite um valor válido:")
leia(B[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval("valores de C: ")
para x de 1 ate 4 faca
para y de 1 ate 5 faca
C[x,y]<-A[x,y]*B[x,y]
escreval(C[x,y])
fimpara
fimpara
fimalgoritmo
V) Algoritmo "semnome"
Var
A,B,C:vetor[1..5,1..5] de inteiro
x,y,t:inteiro
Inicio
para x de 1 ate 5 faca
para y de 1 ate 5 faca
t<-0
escreval("digite um valor para A [",x,",",y," ] que não é divisível por
3")
leia(A[x,y])
enquanto (t=0) faca
se nao(A[x,y]%3=0) entao
t<-1
senao
escreval("digite um numero valido")
leia(A[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval()
para x de 1 ate 5 faca
para y de 1 ate 5 faca
t<-0
escreval("digite um valor para B [",x,",",y," ] que não é divisível por
6")
leia(B[x,y])
enquanto (t=0) faca
se nao(B[x,y]%6=0) entao
t<-1
senao
escreval("digite um valor válido:")
leia(B[x,y])
fimse
fimenquanto
fimpara
fimpara
escreval("valores de C: ")
para x de 1 ate 5 faca
para y de 1 ate 5 faca
C[x,y]<-A[x,y]+B[x,y]
escreval(C[x,y])
fimpara
fimpara
fimalgoritmo
