Algoritmos de prova

[Gustavo Rodrigues Torre 0]

Kandrade obriga pelas suas ajudas

COnsegui aprovação na matéria de algoritmos e estou postando os algoritmos que cairam na minha prova

 

1. Questão

 

algoritmo "Prova 1"

//Função:

//Autor : Gustavo Rodrigues Torre

// Data : 30/10/07

// Seção de Declarações

var

matA,matB : vetor [1..6,1..6] de real

i, j : inteiro //os índice sempre inteiro

ma,acm, c : real

//calcula a media aritmetrica

inicio

// Seção de Comandos

acm <- 0

c <- 0

Para i de 1 ate 6 faca

Para j de 1 ate 6 faca

escreva("Digite um valor do elemento da linha" , i, ", coluna ",j, " da matriz A: ")

leia (matA[i,j])

 

se (i+j < 7) entao

//modificando o valor de menor

matB[i,j] <- 100

fimse

 

 

se (i=j) entao

c <- c+ 1

acm <- acm + matA[i,j]

fimse

ma <- acm / c

 

fimpara

fimpara

escreval

 

 

 

escreva("A matriz A é:")

escreval

para i de 1 ate 6 faca

escreval

para j de 1 ate 6 faca

escreva (matA[i,j]," ")

fimpara

fimpara

escreval

 

escreva("A matriz B é:")

escreval

para i de 1 ate 6 faca

escreval

para j de 1 ate 6 faca

escreva (matB[i,j]," ")

fimpara

fimpara

escreval

 

escreval("A media dos elementos da dp de matriz e =",ma)

fimalgoritmo

 

2.

algoritmo "saida"

// Função : Mostrar uma figura

// Autor : Gustavo Rodrigues Torre

// Data : 26/10/2007

// Seção de Declarações

var

numero : inteiro

i,j : inteiro

inicio

// Seção de Comandos

 

leia (numero)

para i de 1 ate numero faca

para j de 1 ate i faca

escreva(j)

fimpara

escreval

fimpara

 

para i de (numero-1) ate 1 passo -1 faca

para j de 1 ate i faca

escreva(j)

fimpara

escreval

fimpara

 

fimalgoritmo

 

3 .

algoritmo "pares"

//Função:

//Autor : Gustavo Rodrigues Torre

// Data : 30/10/07

// Seção de Declarações

var

A : vetor [1..5,1..5] de inteiro

i, j, par, m13 : inteiro //os índice sempre inteiro

maior : inteiro

inicio

// Seção de Comando

//repita

//limpatela

par <- 0

m13 <- 0

maior <- -100

Para i de 1 ate 5 faca

Para j de 1 ate 5 faca

escreva("Digite um valor do elemento da linha" , i, ", coluna ",j, " da matriz A: ")

leia (A[i,j])

 

se (A[i,j] % 2 = 0 ) entao

par <- par + 1

fimse

 

se (A[i,j] > 13 ) entao

m13 <- m13 + 1

fimse

 

 

se (A[i,j] > maior) entao

//modificando o valor de menor

maior <- A[i,j]

fimse

 

 

fimpara

fimpara

escreval

 

escreval

escreva(" Matriz A ")

escreval

para i de 1 ate 5 faca

para j de 1 ate 5 faca

escreva (A[i,j]," ")

fimpara

escreval

fimpara

escreval

 

 

escreval("A matriz A tem ",par," elemento(s) par(es).")

escreval

escreval("A matriz A tem ",m13," elemento(s) maiores(s) que 13.")

escreval("O maior da matriz A = ",maior)

 

escreval

//escreval("Deseja continuar? (1)Sim (0)Não ")

//leia(t)

//ate(t=0)

 

fimalgoritmo

 

 

Abraços

Agora no meu proximo semestre vou ver linguagem C

[Kandrade 7]

Foi nada.

Fico feliz por ter conseguido passar.

 

Parabéns!!!

 

Kandrade obriga pelas suas ajudas

COnsegui aprovação na matéria de algoritmos e estou postando os algoritmos que cairam na minha prova

[Gustavo Rodrigues Torre 0]

E você viu cairam algoritmos parecidos com os que você tinha resolvido para mim.

Mais eu vou continuar postando algoritmos aqui.

Para não perder a prática e ajudar outras pessoas que estejam precisando de ajuda.

Abraços

Foi nada.

Fico feliz por ter conseguido passar.

 

Parabéns!!!

 

Kandrade obriga pelas suas ajudas

COnsegui aprovação na matéria de algoritmos e estou postando os algoritmos que cairam na minha prova