Trabalho de logica de programação

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "semnome"
// Função :
// Autor :
// Data : 31/03/2013
// Seção de Declarações
var
matriz: vetor[1..5,1..7] de real
linha, coluna: inteiro
v1, t1, v2, t2, v3, media: real
matricula: inteiro
matriculaval: inteiro
d4, d6, d78: inteiro
a,b,c,soma,resul:real
inicio
para linha de 1 ate 3 faca
 para coluna de 1 ate 7 faca
 matriculaval <- 0
 //validacao matricula
 se coluna = 1 entao
 matricula<-0
 escreval("DIGITE A MATRICULA")
 enquanto (matriculaval = 0) faca
 //valida se tem 8 digitos
 se (matricula >= 99999999) ou (matricula <= 10000000) entao
 leia(matricula)
 se ((matricula >= 99999999) ou (matricula <= 10000000)) entao
 escreval("Matricula Invalida")
 fimse
 senao
 //valida se matricula é valida d4 + d6 = digitos finais
 d4 <- ((matricula\10000) % 10)
 d6 <- ((matricula\100) % 10)
 d78 <- (matricula % 100)
 se ((d4+d6)=d78) entao
 escreval("Matricula valida")
 matriz [linha,coluna] <- matricula
 matriculaval <- 1
 senao
 escreval("Matricula Invalida")
 matriculaval <- 0
 leia(matricula)
 fimse
 fimse
 fimenquanto
 fimse
 //digitação primeira nota
 se coluna = 2 entao
 t1<--1
 enquanto (t1 > 20) ou (t1 < 0) faca
 escreval("Digite Nota do Trabalho 1 (0 a 20)")
 leia(t1)
 se (t1 <= 20) e (t1 >= 0) entao
 escreval("Nova valida")
 matriz [linha,coluna] <- t1
 senao
 escreval("Nova inavalida digite valor entre (0 a 20)")
 fimse
 fimenquanto
 fimse
 //digitação primeira avaliacao
 se coluna = 3 entao
 v1<--1
 enquanto (v1 > 80) ou (v1 < 0) faca
 escreval("Digite Nota da Avaliação 1 (0 a 80)")
 leia(v1)
 se (v1 <= 80) e (v1 >= 0) entao
 escreval("Nova valida")
 matriz [linha,coluna] <- v1
 senao
 escreval("Nova inavalida digite valor entre (0 a 80)")
 fimse
 fimenquanto
 fimse
 //digitação segunda nota trabalho
 se coluna = 4 entao
 t2<--1
 enquanto (t2 > 20) ou (t2 < 0) faca
 escreval("Digite a Nota Trabalho 2 (0 a 20)")
 leia(t2)
 se (t2 <= 20) e (t2 >= 0) entao
 escreval("Nova valida")
 matriz [linha,coluna] <- t2
 senao
 escreval("Nova inavalida digite valor entre (0 a 20)")
 fimse
 fimenquanto
 fimse
 //digitação segunda avaliacao
 se coluna = 5 entao
 v2<--1
 enquanto (v2 > 80) ou (v2 < 0) faca
 escreval("Digite Nota avaliação 2 (0 a 80)")
 leia(v2)
 se (v2 <= 80) e (v2 >= 0) entao
 escreval("Nova valida")
 matriz [linha,coluna] <- v2
 senao
 escreval("Nova inavalida digite valor entre (0 a 80)")
 fimse
 fimenquanto
 fimse
 //digitação terceira avaliacao
 se coluna = 6 entao
 v3<--1
 enquanto (v3 > 100) ou (v3 < 0) faca
 escreval("Digite Nota avaliação 3 (0 a 100)")
 leia(v3)
 se (v3 <= 100) e (v3 >= 0) entao
 escreval("Nova valida")
 matriz [linha,coluna] <- v3
 senao
 escreval("Nova inavalida digite valor entre (0 a 100)")
 fimse
 fimenquanto
 fimse
 //calcula media
 se coluna = 7 entao
 escreval("Trabalho 1:",t1)
 escreval("Trabalho 2:",t2)
 escreval("Avaliação 1:",v1)
 escreval("Avaliação 2:",v2)
 escreval("Avaliação 3:",v3)
 //media <- (t1+t1)
 a<-v1+t1
 b<-v2+t2
 c<-v3
 se (a > c) e (b > c) entao
 soma<-(a+b)
 fimse
 se (a > b) e (c >b) entao
 soma<-(a+c)
 fimse
 se (b>a) e (c>a) entao
 soma<- (b+c)
 fimse
 
 //Iguais
 se (b > c) e (b > a) e (c = a) entao
 soma<-(a+b)
 fimse
 se (c > b) e (c > a) e (b = a) entao
 soma<-(a+b)
 fimse
 se (a > b) e (a > c) e (c = b) entao
 soma<-(a+b)/2
 fimse
 
 se (a = b) e (a = c) e (c = b) entao
 soma<-((a+b)/2)+c
 fimse
 resul<- (soma/2)
 matriz [linha,coluna]<-resul
 escreval ("A media é:", resul)
 fimse
 fimpara
fimpara
escreval ("")
escreval ("Lista de Aprovados")
escreval ("")
linha<-1
coluna<-1
escreval("Matricula"," ; ","T1"," ; ","V1"," ; ","T2"," ; ","V2"," ; ","V3"," ; ","MEDIA")
para linha de 1 ate 3 faca
 se(matriz [linha,7]>=60) entao
 para coluna de 1 ate 7 faca
 escreva(matriz [linha,coluna]," ; ")
 fimpara
 escreval ("")
 fimse
fimpara
escreval ("")
escreval ("Lista de Reprovados")
escreval ("")
linha<-1
coluna<-1
escreval("Matricula"," ; ","T1"," ; ","V1"," ; ","T2"," ; ","V2"," ; ","V3"," ; ","MEDIA")
para linha de 1 ate 3 faca
 se(matriz [linha,7]<60) entao
 para coluna de 1 ate 7 faca
 escreva(matriz [linha,coluna]," ; ")
 fimpara
 escreval ("")
 fimse
fimpara
// Seção de Comandos
fimalgoritmo