Exercícios Visualg - Português estruturado

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

�rea de Elementos Geom�tricos Enquanto.alg
algoritmo "Área de Elementros Geométricos"
// Função :
// Autor :
// Data : 08/08/2014
// Seção de Declarações
var
nome, resp: caractere
A, l, R, H: numerico
inicio
resp<-"s"
enquanto resp="s" faca
escreval ("Entre com o Elemento (quadrado, círculo, triângulo ou hexágono)")
leia (nome)
 escolha (nome)
 caso "quadrado"
 escreva ("Entre com a medida do lado:")
 leia (l)
 se (l>0) entao
 A<- l*l
 escreval ("A área é:",A)
 senao
 escreva ("Dados Inválidos")
 fimse
 caso "círculo"
 escreva ("Entre com a medida do raio:")
 leia (R)
 se (R>0) entao
 A<- pi*(R^2)
 escreval ("A área é:",A)
 senao
 escreva ("Dados Inválidos")
 fimse
 caso "triângulo"
 escreva ("Entre com a medida do lado:")
 leia (l)
 escreva ("Entre com a medida da altura:")
 leia (H)
 se (l>0) e (H>0) entao
 A<- (l*H)/2
 escreval ("A área é:",A)
 senao
 escreva ("Dados Inválidos")
 fimse
 caso "hexágono"
 escreva ("Entre com a medida da aresta:")
 leia (l)
 se (l>0) entao
 A<- (l^2)*((3 exp (3,1/2)/2)
 escreval (" A área é:",A)
 senao
 escreva ("Dados Inválidos)
 fimse
 outrocaso
 escreval ("Elemento não encontrado")
 fimescolha
 escreval ("Deseja calcular outra área? (S/N)")
 leia (resp)
fimenquanto
fimalgoritmo
�rea de Elementos Geom�tricos.alg
algoritmo "Área de Elementros Geométricos"
// Função :
// Autor :
// Data : 08/08/2014
// Seção de Declarações
var
nome: caractere
A, l, R, H: numerico
inicio
escreval ("Entre com o elemento geométrico (quadrado, círculo, triângulo ou hexágono)")
leia (nome)
 escolha (nome)
 caso "quadrado"
 escreva ("Entre com a medida do lado:")
 leia (l)
 se (l>0) entao
 A<- l*l
 escreva ("A área é:",A)
 senao
 escreva ("Dados Inválidos")
 fimse
 caso "círculo"
 escreva ("Entre com a medida do raio:")
 leia (R)
 se (R>0) entao
 A<- pi*(R^2)
 escreval ("A área é:",A)
 senao
 escreva ("Dados Inválidos")
 fimse
 caso "triângulo"
 escreva ("Entre com a medida do lado:")
 leia (l)
 escreva ("Entre com a medida da altura:")
 leia (H)
 se (l>0) e (H>0) entao
 A<- (l*H)/2
 escreval ("A área é:",A)
 senão
 escreva ("Dados Inválidos")
 fimse
 caso "hexágono"
 escreva ("Entre com a medida da aresta:")
 leia (l)
 se (l>0) entao
 A<- (l^2)*((3 exp (3,1/2)/2)
 escreval (" A área é:",A)
 senao
 escreva ("Dados Inválidos)
 fimse
 outrocaso
 escreva ("Elemento não encontrado")
 fimescolha
fimalgoritmo
�rea de um C�rculo.alg
algoritmo "Área de um Círculo"
// Função :
// Autor :
// Data : 08/08/2014
// Seção de Declarações 
var
A, R: numerico
inicio
escreval ("Entre com o raio de circunferência:")
leia (R)
 A<-pi*(R^2)
escreval ("A área é:",A)
fimalgoritmo
C00000400 - Forma Tri�ngulo.alg
algoritmo "Condição Triângulo"
// Função :
// Autor :
// Data : 15/08/2014
// Seção de Declarações 
var
A, B, C, S, T: numerico
inicio
escreva ("Entre com o o 1º lado:")
leia (A)
 escreva ("Entre com o o 2º lado:")
 leia (B)
escreva ("Entre com o o 3º lado:")
leia (C)
 se (A>0) e (B>0) e (C>0) entao
 se ((B+C)>A) e ((A+B)>C) e ((A+C)>B) entao
 S<-((A+B+C)/2)
 T<- raizq(S*(S-A)*(S-B)*(S-C))
 escreval ("A área do triângulo é:", T)
 senao
 escreva ("Não forma um triângulo")
 fimse
 senao
 escreva ("Não forma um triângulo")
 fimse
fimalgoritmo
Exercicio 10.alg
algoritmo "Exercicio 10"
// Função :
// Autor :
// Data : 05/09/2014
// Seção de Declarações 
var
num: vetor [1..10] de inteiro
A, I, B, N: inteiro
inicio
I<-1
enquanto I<=10 faca
 escreva ("Digite o número:")
 leia (N)
 B<-2
 se I=1 entao
 num[I]<-1
 I<-I+1
 senao
 para A de 1 ate (I-1) faca
 se N=num[A] entao
 B<-1
 fimse
 fimpara
 se B<>1 entao
 num[I]<-N
 I<-I+1
 fimse
 fimse
fimenquanto
escreva ("[")
para I de 1 ate 10 faca
escreva (num[I])
fimpara
escreva ("]")
fimalgoritmo
Exerc�cio 20.alg
algoritmo "Exercicio 20"
// Função :
// Autor :
// Data : 12/09/2014
// Seção de Declarações 
var
alfa: vetor [0..4,0..4] de caracter
L,C,X,Y: inteiro
inicio
para X de 0 ate 8 faca
 para L de 0 ate 4 faca
 para C de 0 ate 4 faca
 y<-L+C
 se(x=Y) entao
 escreva("A[",L,",",C,"]:")
 leia(alfa[C,L])
 fimse
 fimpara
 fimpara
fimpara
para L de 0 ate 4 faca
 para C de 0 ate 4 faca
 escreva(alfa[L,C]," ")
 fimpara
 escreval ( )
fimpara
fimalgoritmo
Exercicio 6 - descrecente em ordem.alg
algoritmo "Série Descrecente"
// Função :
// Autor :
// Data : 03/09/2014
// Seção de Declarações
var
vet:vetor [1..5] de inteiro
I,J,A:inteiro
inicio
para I de 1 ate 5 faca
escreval("Digite números:",I)
leia(vet[I])
 para J de 1 ate 4 faca
 se (vet[I]< vet[J]) entao
 A<- vet[I]
 vet[I]<- vet[J]
 vet[J]<- A
 fimse
 fimpara
fimpara
escreval("Ordem Descrescente:")
para i de 5 ate 1 passo -1 faca
escreva(vet[I], " ")
fimpara
fimalgoritmo
Exercicio 6 - Folha de Vetores.alg
algoritmo "Exercicio 6 - Vetores"
// Função :
// Autor :
// Data : 29/08/2014
// Seção de Declarações 
var
vet: vetor [1..5] de real
A, P, I: inteiro
M: Real
inicio
para A de 1 ate 5 faca
escreva ("Entre com o valor:")
leia (vet[A])
fimpara
para A de 1 ate 4 faca
 enquanto (vet[1]<vet[A+1])faca
 M<-vet[1]
 para I de 1 ate 4 faca
 vet[I]<-vet[I+1]
 fimpara
 vet[5]<-M
 fimenquanto
fimpara
para A de 1 ate 5 faca
escreva (vet[A])
fimpara
fimalgoritmo
Fatorial.alg
algoritmo "Fatorial"
// Função :
// Autor :
// Data : 08/08/2014
// Seção de Declarações 
var
N, I, F: inteiro
inicio
escreva( "Entre com o Número:")
leia (N)
F<-1
 para I de 1 ate N faca
 F<-F*I
 fimpara
escreva ("O Fatorial é",F)
fimalgoritmo
I00000100 - Contagem n�meros.alg
algoritmo "Conta Números"
// Função :
// Autor :
// Data : 15/08/2014
// Seção de Declarações 
var
N, N1: inteiro
inicio
para N de 0 ate 19 faca
N<-N+1
escreval ("Número:", N)
fimpara
fimalgoritmo
I00000200 - Numeros pares ate 50.alg
algoritmo "Dizer números pares"
// Função :
// Autor :
// Data : 15/08/2014
// Seção de Declarações 
var
N, P: inteiro
inicio
n<-1
para N de 0 ate 50 faca
P<-N%2
 se P=0 entao
 escreval ("Número par:", N)
 fimse
fimpara
fimalgoritmo
I00000250 - Divis�veis por 11.alg
algoritmo "Dizer números pares"
// Função :
// Autor :
// Data : 15/08/2014
// Seção de Declarações 
var
N, P: inteiro
inicio
n<-1
para N de 0 ate 201 faca
P<-N%11
 se P=0 entao
 escreval ("Divisível por 11:", N)
 fimse
fimpara
fimalgoritmo
I00001200 - N�mero Primo.alg
algoritmo "Números Primos"
// Função :
// Autor :
// Data : 15/08/2014
// Seção de Declarações 
var
N, P,
A: inteiro
inicio
escreval ("Entre com o número:")
leia (N)
 se N>0 entao
 para A de 2 ate (N-1) faca
 se (N%A)=0 entao
 P<-P+1
 fimse
 fimpara
 se P<>0 entao
 escreva ("O número não é primo")
 senao
 escreva ("O número é primo")
 fimse
 senao
 escreva ("Número Inválido")
 fimse
fimalgoritmo
I00001950 - N�mero Primo2.alg
algoritmo "Números Primos"
// Função : Apresenta os 50 primeiros números primos
// Autor :
// Data : 15/08/2014
// Seção de Declarações 
var
C, P: numerico
A, N: inteiro
inicio
N<-1
P<-0
C<-0
enquanto C<50 faca
 para A de 1 ate N faca
 se (N%A)=0 entao
 P<-P+1
 fimse
 fimpara
 se P=2 entao
 escreval ("Primo:",N)
 N<-N+1
 C<-C+1
 P<-0
 senao
 N<-N+1
 P<-0
 fimse
fimenquanto
fimalgoritmo
M000002100 - Matriz Toeplitz.alg
algoritmo "M2100 - Matriz Toeplitz"
// Função :
// Autor :
// Data : 03/09/2014
// Seção de Declarações 
var
M: vetor[1..5,1..5] de inteiro
I,J,C: inteiro
inicio
para I de 1 ate 5 faca
 para J de 1 ate 5 faca
 escreva ("Entre com os valores da matriz:[",i,";",J,"]:")
 leia (M[I,J])
 fimpara
fimpara
enquanto (I<5) faca
 se M[I,I]=M[I+1,I+1] entao
 I<-I+1
 C<-1
 senao
 C<-0
 I<-5
 fimse
fimenquanto
I<-1
enquanto I<3 faca
 se M[I,I+1]=M[I+1,I+2] entao
 I<-I+1
 C<-1
 senao
 I<-3
 C<-0
 fimse
fimenquanto
enquanto I<2 faca
 se M[I,I+2]=M[I+1,I+3] entao
 I<-I+1
 C<-1
 senao
 I<-2
 C<-0
 fimse
fimenquanto
I<-1
enquanto I<1 faca
 se M[I,I+3]=M[I+1,I+4] entao
 I<-I+1
 C<-1
 senao
 I<-1
 C<-0
 fimse
fimenquanto
I<-1
enquanto I<3 faca
 se M[I+1,I]=M[I+2,I+1] entao
 I<-I+1
 C<-1
 senao
 I<-3
 C<-0
 fimse
fimenquanto
enquanto I<2 faca
 se M[I+2,I]=M[I+3,I+1] entao
 I<-I+1
 C<-1
 senao
 I<-2
 C<-0
 fimse
fimenquanto
I<-1
enquanto I<1 faca
 se M[I+3,I]=M[I+4,I+1] entao
 I<-I+1
 C<-1
 senao
 I<-1
 C<-0
 fimse
fimenquanto
escreva (C)
fimalgoritmo
M00001010 - Jogo da Velha.alg
algoritmo "Jogo da Velha"
// Função :
// Autor :
// Data : 02/09/2014
// Seção de Declarações 
var
nome:vetor[1..2] de caractere
v:vetor[1..3,1..3]de caractere
ctr:caractere
I,J,L, C,JOG:inteiro
inicio
ctr<-"S"
enquanto ctr="S" faca
 para I de 1 ate 2 faca
 escreval ("Digite o Nome do",i,"° Jogador")
 leia (nome[I])
 fimpara
escreval ("O jogador",nome[1]," é -> [X]")
escreval ("O jogador",nome[2]," é -> [O]")
I<-1
 enquanto (JOG<9) faca
 escreval ("",nome[I],", Insira a coordenada desejada. Linha (pressione 'ENTER') e depois a Coluna")
 leia (L,C)
 se (v[L,C]="X") ou (v[L,C]="O") entao
 escreval ("Coordenada Ocupada, entre com uma nova posição")
 senao
 se (i=1)entao
 v[L,C]<-"X"
 i<-i+1
 JOG<-JOG+1
 senao
 v[L,C]<-"O"
 i<-1
 JOG<-JOG+1
 fimse
 fimse
 escreval ("",v[1,1]," | ",v[1,2]," | ",v[1,3],"")
 escreval ("__|__|__")
 escreval ("",v[2,1]," | ",v[2,2]," | ",v[2,3]," ")
 escreval ("__|__|__")
 escreval ("",v[3,1]," | ",v[3,2]," | ",v[3,3]," ")
 escreval (" | | ")
 se (v[1,1]=v[2,2]) e (v[2,2]=v[3,3]) entao
 se (v[1,1]="x") entao
 escreval (nome[1],"Parabéns, você venceu!")
 JOG<-9
 senao
 se (v[1,1]="O") entao
 escreval (nome[2],"Parabéns, você venceu!")
 JOG<-9
 fimse
 fimse
 senao
 se (v[1,3]=v[2,2]) e (v[2,2]=v[3,1]) entao
 se (v[1,3]="x") entao
 escreval (nome[1],"Parabéns, você venceu!")
 JOG<-9
 senao
 se (v[1,3]="O") entao
 escreval (nome[2],"Parabéns, você venceu!")
 JOG<-9
 fimse
 fimse
 senao
 se (v[1,1]=v[1,2]) e (v[1,2]=v[1,3]) entao
 se (v[1,1]="x") entao
 escreval (nome[1],"Parabéns, você venceu!")
 JOG<-9
 senao
 se (v[1,1]="O") entao
 escreval (nome[2],"Parabéns, você venceu!")
 JOG<-9
 fimse
 fimse
 senao
 se (v[2,1]=v[2,2]) e (v[2,2]=v[2,3]) entao
 se (v[2,1]="x") entao
 escreval (nome[1],"Parabéns, você venceu!")
 JOG<-9
 senao
 se (v[2,1]="O") entao
 escreval (nome[2],"Parabéns, você venceu!")
 JOG<-9
 fimse
 fimse
 senao
 se (v[3,1]=v[3,2]) e (v[3,2]=v[3,3]) entao
 se (v[3,1]="x") entao
 escreval (nome[1],"Parabéns, você venceu!")
 JOG<-9
 senao
 se (v[3,1]="O") entao
 escreval (nome[2],"Parabéns, você venceu!")
 JOG<-9
 fimse
 fimse
 senao
 se (v[1,1]=v[2,1]) e (v[2,1]=v[3,1]) entao
 se (v[1,1]="x") entao
 escreval (nome[1],"Parabéns, você venceu!")
 JOG<-9
 senao
 se (v[1,1]="O") entao
 escreval (nome[2],"Parabéns, você venceu!")
 JOG<-9
 fimse
 fimse
 senao
 se (v[1,2]=v[2,2]) e (v[2,2]=v[3,2]) entao
 se (v[1,2]="x") entao
 escreval (nome[1],"Parabéns, você venceu!")
 JOG<-9
 senao
 se (v[1,2]="O") entao
 escreval (nome[2],"Parabéns, você venceu!")
 JOG<-9
 fimse
 fimse
 senao
 se (v[1,3]=v[2,3]) e (v[2,3]=v[3,3]) entao
 se (v[1,3]="x") entao
 e escreval (nome[1],"Parabéns, você venceu!")
 JOG<-9
 senao
 se (v[1,3]="O") entao
 escreval (nome[2],"Parabéns, você venceu!")
 JOG<-9
 fimse
 fimse
 senao
 se (JOG=9) entao
 escreval ("Jogo Empatado, deu velha!")
 fimse
 fimse
 fimse
 fimse
 fimse
 fimse
 fimse
 fimse
 fimse
 fimenquanto
escreval ("Deseja Jogar Novamente [S/N]?")
leia (ctr)
fimenquanto
fimalgoritmo
M00004900 - Quadrado M�gico.alg
algoritmo "Matriz Quadrado Mágico"
//
Função :
// Autor :
// Data : 05/09/2014
// Seção de Declarações 
var
vet: vetor [1..10,1..10] de inteiro
C, B, N: inteiro
inicio
enquanto A=0 faca
 escreva ("Entre com Ordem da Matriz:")
 leia (N)
 se (N%2=0) ou (N>10) entao
 escreval ("Inválido! Par ou maior que 9!")
 A<-0
 senao
 A<-1
 fimse
fimenquanto
vet[1,((N+1)\2)]<-1
 enquanto (C<(N*N) faca
fimalgoritmo
Matrizes - Exemplo 2 Aula 2.alg
algoritmo "Matrizes e Somas"
// Função :
// Autor :
// Data : 20/08/2014
// Seção de Declarações 
var
valores: vetor [1..3,1..3] de real
somaL3, somaC2: real
somaDP, somaDS, somaT: real
i,j: inteiro
inicio
somaL3<-0
somaC2<-0
somaDP<-0
somaDS<-0
somaT<-0
para i de 1 ate 3 faca
 para j de 1 ate 3 faca
 escreval ("Digite um valor para a matriz[",i,j,"]:")
 leia(valores[i,j])
 somaT<- valores[i,j]+somaT
 se i=3 entao
 somaL3<- valores[i,j] + somaL3
 fimse
 se j=2 entao
 somaC2<- valores[i,j]+somaC2
 fimse
 se i=j entao
 somaDP<-valores[i,j]+somaDP
 fimse
 se j=4-i entao
 somaDS<-valores[i,j]+somaDS
 fimse
 fimpara
fimpara
 para i de 1 ate 3 faca
 para j de 1 ate 3 faca
 escreva(valores[i,j])
 fimpara
 escreval ()
 fimpara
escreval ("Soma todos elementos:", somaT)
escreval ("Soma linha 3:", somaL3)
escreval ("Soma diagonal principal:", somaDP)
escreval ("Soma diagonal secundária:", somaDS)
fimalgoritmo
N�meros pares e �mpares 2.alg
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/8/2014
// Seção de Declarações 
var
par: vetor[1..10] de inteiro
impar:vetor[1..10] de inteiro
i,n:inteiro
inicio
para i de 1 ate 10 faca
 escreva ("Entre com o número:[",i,"]:")
 leia (n)
 se (n%2=0)entao
 par[i]<-n
 senao
 impar[i]<-n
 fimse
fimpara
escreval("Números pares:")
para i de 1 ate 10 faca
 se par[i]<>0 entao
 escreva(par[i])
 fimse
fimpara
escreval()
escreval ("Números ímpares")
para i de 1 ate 10 faca
 se impar[i]<>0 entao
 escreva (impar[i])
 fimse
fimpara
fimalgoritmo
Progress�o Aritm�tica.alg
algoritmo "Progressão Aritmética"
// Função :
// Autor :
// Data : 08/08/2014
// Seção de Declarações 
var
A1, An, R, n, Sn: numerico
inicio
escreval("Entre com o valor inicial:")
leia(A1)
 escreval ("Entre com máximo:")
 leia (An)
escreval ("Entre com o valor de passo R:")
leia(R)
 n<-((An-A1)/R)+1
 Sn<-((A1+An)/2)*n
escreva ("A soma dos números da progressão é:",Sn)
fimalgoritmo
Progress�o Geom�trica.alg
algoritmo "Termo An Prog. Geométrica"
// Função :
// Autor :
// Data : 08/08/2014
// Seção de Declarações 
var
A1, An, q, n: numerico
inicio
escreva ("Entre com o valor do primeiro termo da série:")
leia (A1)
 escreva ("Entre com o valor da razão:")
 leia (q)
escreva ("Entre com o valor de número de termos:")
leia (n)
 An<-A1*(q^(n-1))
 escreval ("O enésimo termo é:",An)
fimalgoritmo
S00000100 Soma.alg
algoritmo "Soma de Elementos"
// Função :
// Autor :
// Data : 13/08/2014
// Seção de Declarações 
var
C1, C2, CT: numerico
inicio
escreva ("Entre com C1:")
leia (C1)
escreva ("Entre com C2:")
leia (C2)
CT<-(C1+C2)
escreval ("A soma dos elementos é:", CT)
fimalgoritmo
S00000200 �rea Tri�ngulo.alg
algoritmo "Área de um triângulo"
// Função :
// Autor :
// Data : 13/08/2014
// Seção de Declarações 
var
V1, V2, A: numerico
inicio
escreva ("Entre com o valor da base:")
leia (V1)
escreva ("Entre com o valor da altura:")
leia (V2)
A<- ((V1*V2)/2)
escreval("A área do triângulo é:", A)
fimalgoritmo
S00000210 M�dulo Vetor AXB.alg
algoritmo "Módulo de Vetores"
// Função :
// Autor :
// Data : 13/08/2014
// Seção de Declarações 
var
Ax, Ay, Bx, By, M: numerico
inicio
escreva ("Entre com o valor de X do vetor A:")
leia (Ax)
 escreva ("Entre com o valor de Y do vetor A:")
 leia (Ay)
escreva ("Entre com a coordenada X do vetor B:")
leia (Bx)
 escreva ("Entre com a coordenada Y do vetor B:")
 leia (By)
M<-((Ax*Bx)-(Ay*By))
 se M<0 entao
 M<-M*(-1)
 fimse
escreva ("O módulo do vetor perpendicular AXB é:", M)
fimalgoritmo
S00000220 Produto Escalar.alg
algoritmo "Produto Escalar"
// Função :
// Autor :
// Data : 13/08/2014
// Seção de Declarações 
var
Ax, Ay, Az, Bx, By, Bz, P: numerico
inicio
escreva ("Entre com a coordenada X do vetor A:")
leia (Ax)
 escreva ("Entre com a coordenada Y do vetor A:")
 leia (Ay)
escreva ("Entre com a coordenada Z do vetor A:")
leia (Az)
 escreva ("Entre com a coordenada X do vetor B:")
 leia (Bx)
escreva ("Entre com a coordenada Y do vetor B:")
leia (By)
 escreva ("Entre com a coordenada Z do vetor B:")
 leia (Bz)
P<-((Ax*Bx)+(Ay*By)+(Az*Bz))
escreval ("O produto escalar A.B é:",P)
fimalgoritmo
S00000300 - B�skara.alg
algoritmo "Cálculo de Báskara"
// Função :
// Autor :
// Data : 13/08/2014
// Seção de Declarações 
var
A, B, C, X1, X2, D, XT: numerico
inicio
escreva ("Entre com o coeficiente de grau 2:")
leia (A)
 escreva ("Entre com o coeficiente de grau 1:")
 leia (B)
 escreva ("Entre com a variável independente:")
 leia (C)
se X1=0 entao
X1<-X1+1
fimse
 se X2=0 entao
 X2<- X2+1
 fimse
 D<- (B^2)-(4*A*C)
 se D>=0 entao
 D<- ((D)^(1/2))
 X1<- (((-B)+(D))/(2*A))
 X2<- (((-B)-(D))/(2*A))
 XT<-((X1)+(X2))
 escreval ("A raíz X1 da equação é:", X1)
 escreval ("A raiz X2 da equação é:", X2)
 escreval ("A soma das raízes é:", XT)
 senao
 escreval ("Equação com raíz complexa")
 fimse
fimalgoritmo
S00000350 Produto Ra�zes de B�skara.alg
algoritmo "Produto de Raizes de Báskara"
// Função :
// Autor :
// Data : 13/08/2014
// Seção de Declarações
var
A, B, C, X1, X2, D, XT: numerico
inicio
escreva ("Entre com o coeficiente de grau 2:")
leia (A)
 escreva ("Entre com o coeficiente de grau 1:")
 leia (B)
 escreva ("Entre com a variável independente:")
 leia (C)
se X1=0 entao
X1<-X1+1
fimse
 se X2=0 entao
 X2<- X2+1
 fimse
 D<- (B^2)-(4*A*C)
 se D>=0 entao
 D<- ((D)^(1/2))
 X1<- (((-B)+(D))/(2*A))
 X2<- (((-B)-(D))/(2*A))
 XT<-((X1)*(X2))
 escreval ("A raíz X1 da equação é:", X1)
 escreval ("A raiz X2 da equação é:", X2)
 escreval ("O produto das raízes é:", XT)
 senao
 escreval ("Equação com raíz complexa")
 fimse
fimalgoritmo
inicio
// Seção de Comandos 
fimalgoritmo
V00000250 - Conceitos e Histograma melhorado.alg
algoritmo "Conceito com histograma"
// Função :
// Autor :
// Data : 22/08/2014
// Seção de Declarações
var
Hist: vetor[1..5] de inteiro
I,C,j,K,N: inteiro
inicio
para I de 1 ate 5 faca
 Hist[I]<-0
fimpara
escreva ("Entre com a quantidade de alunos:")
leia (N)
para I de 1 ate N faca
 escreva ("Entre com o conceito do aluno",I,":")
 leia (C)
 enquanto (C<1) ou (C>5) faca
 escreval ("Conceito Inválido")
 escreva ("Entre com o conceito do aluno",I,":")
 leia (C)
 fimenquanto
 Hist[C]<-Hist[C]+1
fimpara
para I de 1 ate 5 faca
 para j de 1 ate Hist[I] faca
 escreva(I)
 fimpara
escreval()
fimpara
 
fimalgoritmo
V00000250 - Conceitos e Histograma.alg
algoritmo "Conceito com histograma"
// Função :
// Autor :
// Data : 22/08/2014
// Seção de Declarações 
var
conceitos: vetor[1..20] de real
I,C1,C2,C3,C4,C5: inteiro
inicio
para I de 1 ate 20 faca
escreva ("Entre com o conceito do aluno",I,":")
leia (conceitos[I])
 se conceitos[I]=1 entao
 C1<-C1+1
 fimse
 se conceitos[I]=2 entao
 C2<-C2+1
 fimse
 se conceitos[I]=3 entao
 C3<-C3+1
 fimse
 se conceitos[I]=4 entao
 C4<-C4+1
 fimse
 se conceitos[I]=5 entao
 C5<-C5+1
 fimse
 enquanto (conceitos[I]<1) ou (conceitos[I]>5) faca
 escreval ("Conceito Inválido")
 escreva ("Entre com o conceito do aluno",I,":")
 leia (conceitos[I])
 fimenquanto
fimpara
 para I de 1 ate C1 faca
 escreva (1)
 fimpara
escreval ()
 para I de 1 ate C2 faca
 escreva (2)
 fimpara
escreval ()
 para I de 1 ate C3 faca
 escreva (3)
 fimpara
escreval ()
 para I de 1 ate C4 faca
 escreva (4)
 fimpara
escreval ()
 para I de 1 ate C5 faca
 escreva (5)
 fimpara
fimalgoritmo
V00000300 - N�meros pares e �mpares 2.alg
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/8/2014
// Seção de Declarações 
var
par: vetor[1..10] de inteiro
impar:vetor[1..10] de inteiro
i,n:inteiro
inicio
para i de 1 ate 10 faca
 escreva ("Entre com o número:[",i,"]:")
 leia (n)
 se (n%2=0)entao
 par[i]<-n
 senao
 impar[i]<-n
 fimse
fimpara
escreval("Números pares:")
para i de 1 ate 10 faca
 se par[i]<>0 entao
 escreva(par[i])
 fimse
fimpara
escreval()
escreval ("Números ímpares")
para i de 1 ate 10 faca
 se impar[i]<>0 entao
 escreva (impar[i])
 fimse
fimpara
fimalgoritmo
V00000400 - vetor V10 e soma primos.alg
algoritmo "V10 + primos"
// Função :
// Autor :
// Data : 29/08/2014
// Seção de Declarações
var
vet: vetor[1..10] de inteiro
A,P,I,S: inteiro
inicio
para A de 1 ate 10 faca
escreva ("Entre com o número:")
leia (vet[A])
 para I de 1 ate (vet[A]) faca
 se ((vet[A])%I)=0 entao
 P<-P+1
 fimse
 fimpara
 se P=2 entao
 S<-S+1
 fimse
P<-0
fimpara
 para A de 1 ate 10 faca
 escreva (vet[A])
 fimpara
escreval ()
escreva ("A soma de números primos é:",S)
fimalgoritmo
V0000320 - Numeros indeterminados ate 10 positivos.alg
algoritmo "V320 - Ind. até 10 positivos"
// Função :
// Autor :
// Data : 29/08/2014
// Seção de Declarações 
var
num:vetor [1..10] de inteiro
A, C, N: inteiro
inicio
C<-1
enquanto c=1 faca
A<-0
 enquanto A<10 faca
 escreval ("Entre com o número:")
 leia (N)
 enquanto n<=0 faca
 escreval ("Entre com o número:")
 leia (N)
 fimenquanto
 num[a+1]<-n
 C<-0
 A<-A+1
 fimenquanto
fimenquanto
escreva ("Ordem Inversa:")
para A de 1 ate 10 faca
escreva (Num[11-A])
fimpara
fimalgoritmo
Vetores e Negativos - Ex 1 - Aula1.alg
algoritmo "Vetores e Negativo"
// Função :
// Autor :
// Data : 20/08/2014
// Seção de Declarações 
var
numero: vetor[1..6] de real
I, C: inteiro
inicio
C<-0
para I de 1 ate 6 faca
 escreval ("Entre com o número da sequência[",I,"]:")
 leia (numero[I])
 se numero[I]<0 entao
 C<-C+1
 fimse
fimpara
 para I de 1 ate 6 faca
 escreval (numero[I])
 fimpara
escreva ("Total de Números Negativos na sequência:",C)
fimalgoritmo