PARTE A – comandos inicio, fim, saída e atribuição. Operadores.
Expressões
1. Impressão de Dados de um estudante
VisualG
Algoritmo "Dados_Estudante"
//1. Impressão de Dados de um estudante
Var
Nome, curso: caracter
idade, nivel: Inteiro
Inicio
Escreva("Nome do Estudante: ")
leia(nome)
Escreva("Idade do estudante: ")
leia(idade)
Escreva("Nivel academico: ")
leia(nivel)
Escreva("Curso: ")
leia(curso)
Escreval("")
Escreval("============================")
Escreval("Nome: ", nome)
Escreval("Idade: ", idade, " Anos")
Escreval("Nivel Academico: ", nivel, "o Ano")
Escreval("Curso: Engenharia ", curso)
Fimalgoritmo
2. Impressão da Soma de dois números
VisualG
Algoritmo "Soma_Numeros"
//2. Impressão da Soma de dois números A e B;
Var
a, b, c: real
Inicio
Escreva("Valor de a: ")
leia(a)
Escreva("Valor de b: ")
leia(b)
c <- a+b
Escreval("===============")
Escreval(a," + ", b, " = ", c)
Fimalgoritmo
3. Impressão da Média de dois números
VisualG
Algoritmo "Media"
//3. Impressão da Media de dois números A e B.
a, b, M: Real
Inicio
Escreva("Valor de a: ")
leia(a)
Escreva("Valor de b: ")
leia(b)
Escreval("===============")
M<- (a+b)/2
Escreval("Media: ", M)
Fimalgoritmo
4. Impressão da solução duma equação linear.
VisualG
Algoritmo "Equacao_Linear"
//4. Impressão da solução duma equação linear.
Var
a, b: Inteiro
x: real
Inicio
Escreva("Valor de a: ")
leia(a)
Escreva("Valor de b: ")
leia(b)
Escreval("")
Escreval("========================")
se a=0 entao
Escreval("A equacao nao tem solucao em IR"
senao
x<-(-b/a)
Escreval( a,"x + ", b, " = ",0)
Escreval("<=>",a,"x = ",-b)
Escreval("<=> x = ",x:2:2 )
FimSe
Fimalgoritmo
5. Ler a base e a altura de um triângulo. Em seguida, escreva a área do mesmo.
VisualG
Algoritmo "Area_TRiangulo"
//5. Ler a base e a altura de um triângulo. Em seguida, escreva a área do mesmo.
Var
b, h: inteiro
a: real
Inicio
Escreva("Base do triangulo: ")
leia(b)
Escreva("Altura do Triangulo: ")
leia(h)
Escreval("")
Escreval("======================")
a<- (b*h)/2
Escreval("Area do triangulo: ", a)
Fimalgoritmo
6. Dada a Equação AX2 + BX + C=0, imprimir X1 e X2 (Observar todas as condições).
VisualG
Algoritmo "Equacao_Quad"
//11. Dada a Equação AX2 + BX + C=0, imprimir X1 e X2 (Observar todas as condições).
Var
a, b, c: inteiro
x1, x2, del: real
Inicio
Escreva("Valor de a: ")
leia(a)
Escreva("Valor de b: ")
leia(b)
Escreva("Valor de c: ")
leia(c)
Escreval("")
Escreval("===========================================")
Escreval(" Equacao ")
Escreval("")
//Representacao da Equacao
Escreval(" ",a,"x^2 + ",b,"x + ",c," = ",0)
Escreval("")
//Calculo do delta
del <- b^2 - 4*a*c
x1 <- (-b + (del)^(1/2))/(2*a)
x2 <- (-b - (del)^(1/2))/(2*a)
//Estrutura de decisao
Se del<0 entao
Escreval("A Equacao nao tem solucao em IR")
Senao
Escreval("===========================================")
Escreval(" Delta ")
Escreval("")
Escreval(" Delta = ",b,"^2 - 4.",a,".",c)
Escreval(" Delta = ", del)
Escreval("")
Escreval("===========================================")
Escreval(" Raizes ")
Escreval("")
Se del>0 entao
Escreval(" X' = ", x1)
Escreval(" X'' = ", x2)
Senao
Escreval(" X' = X'' = ", x1)
FimSe
FimSe
Fimalgoritmo
7. Receba 2 números e mostre o maior deles.
Algoritmo "Comparacao"
//9. Receba 2 números e mostre o maior deles.
Var
n1, n2: Real
Inicio
Escreva("Introduz o primeiro Numero: ")
leia(n1)
Escreva("Introduz o segundo Numero: ")
leia(n2)
Escreval("")
Escreval("=========================================")
Se n1>n2 entao
Escreval("O numero ", n1, "e maior que ", n2)
Senao
Se n1<n2 entao
Escreval("O numero ", n2, " e maior que ", n1)
Senao
Escreval("Os Numeros Sao iguais.")
FimSe
FimSe
Fimalgoritmo
8. Receba 3 números e imprime-nos em ordem crescente.
Algoritmo "Ordem"
//13. Receba 3 números e imprime-nos em ordem crescente.
Var
n1, n2, n3: real
Inicio
Escreva("Introduz o primeiro Numero: ")
leia(n1)
Escreva("Introduz o segundo Numero: ")
leia(n2)
Escreva("Introduz o terceiro Numero: ")
leia(n3)
Escreval("")
Escreval("================================")
Se (n1>n2) e (n1>n3) e (n2>n3) entao
Escreval("Ordem Crescente: ", n1,">",n2,">",n3)
Senao
Se (n1>n2) e (n1>n3) e (n3>n2) entao
Escreval("Ordem Crescente: ", n1,">",n3,">",n2)
Senao
Se (n1<n2) e (n1>n3) e (n3>n2) entao
Escreval("Ordem Crescente: ", n2,">",n3,">",n1)
Senao
Se (n3>n2) e (n1<n2) e (n3>n2) entao
Escreval("Ordem Crescente: ", n3,">",n2,">",n1)
Senao
Se (n1<n2) e (n1>n3) e (n3<n2) entao
Escreval("Ordem Crescente: ", n2,">",n1,">",n3)
Senao
Escreval("Ordem Crescente: ", n3,">",n1,">",n2)
FimSe
FimSe
FimSe
FimSe
FimSe
Fimalgoritmo
9. O preço de um automóvel é calculado pela soma do preço de fábrica com o preço dos
impostos (45% do preço de fábrica) e a percentagem do revendedor (28% do preço de
fábrica). Leia o nome do automóvel e o preço de fábrica e imprima o nome do automóvel
e o preço final.
Algoritmo "Venda_Automovel"
//6. O preço de um automóvel é calculado pela soma do preço de fábrica com o preço dos
//impostos (45% do preço de fábrica) e a percentagem do revendedor (28% do preço de
//fábrica). Leia o nome do automóvel e o preço de fábrica e imprima o nome do automóvel
//e o preço final
Var
pf, pt: real
nome: caracter
Inicio
Escreva("Nome do Automovel: ")
leia(nome)
Escreva("Preco da Fabrica: ")
leia(pf)
pt <- pf + 0.45*pf + 0.28*pf
Escreval("")
Escreval("==========================")
Escreval("")
Escreval("Nome do Automovel: ", nome)
Escreval("Preco final: ", pt, "MT")
Fimalgoritmo
10. Leia 3 números inteiros e imprima o menor deles. (Opcao 1)
Algoritmo "Menor_NUmero"
//13. Leia 3 números inteiros e imprima o menor deles.
Var
n1, n2, n3: real
Inicio
Escreva("Introduz o primeiro Numero: ")
leia(n1)
Escreva("Introduz o segundo Numero: ")
leia(n2)
Escreva("Introduz o terceiro Numero: ")
leia(n3)
Escreval("")
Se (n1<n2) e (n1<n3) entao
Escreva("O menor numero e: ", n1)
Senao
Se (n2<n1) e (n2<n3) entao
Escreva("O menor numero e: ", n2)
Senao
Escreva("O menor numero e: ", n3)
FimSe
FimSe
Fimalgoritmo
------------------------------------------------------------------------------------------------
Opcao 2.
Algoritmo "Menor_Numero"
//13. Leia 3 números inteiros e imprima o menor deles.
Var
c, i, n: inteiro
Inicio
c<-1000
Para i de 1 ate 3 faca
Escreva(i,"o Numero: ")
leia(n)
Se n<c entao
c<-n
FimSe
FimPara
Escreval("O menor numero digitado e: ", c)
Fimalgoritmo
------------------------------------------------------------------------------------------------
11. Receba três notas de um aluno, calcule e mostre a média aritmética de Frequência (MF) e o
resultado (Excluido, Admitido, Dispensado), conforme os critérios:
(a) MF< 10: Excluido
(b) 10<=MF<14 : Admitido
(c) MF>=14: Dispensado
Algoritmo "Media"
//10. Receba três notas de um aluno, calcule e mostre a média aritmética de Frequência (MF) e
//o resultado (Excluido, Admitido, Dispensado), conforme os critérios:
//(a) MF< 10: Excluido
//(b) 10<=MF<14 : Admitido
Var
i: inteiro
n, MF, c: real
Inicio
Para i de 1 ate 3 faca
Escreva("Nota ",i,": ")
leia(n)
c<-c+n
FimPara
Escreval("")
Escreval("=================")
MF<-(c)/3
Escreval("Media: ", MF)
Se MF<10 entao
Escreval("REPROVADO")
Senao
Se (MF>=14) e (MF<=20) entao
Escreval("DISPENSADO")
Senao
Escreval("ADMITIDO PARA O EXAME")
FimSe
FimSe
Fimalgoritmo
12. Imprime os primeiros 100 números naturais.
Algoritmo "Primeiros_Cem"
//15. Imprime os primeiros 100 números naturais.
Var
i: Inteiro
Inicio
Para i de 1 ate 100 faca
Escreva(i," ")
FimPara
Fimalgoritmo
13. Verifica se um dado número é par ou impar.
Algoritmo "Par_Impar"
//8. Verifica se um dado número é par ou impar.
Var
n: inteiro
Inicio
Escreva("Introduz um Numero: ")
leia(n)
Se n%2=0 entao
Escreva("O numero e par")
Senao
Escreva("O Numero e Impar")
FimSe
Fimalgoritmo
14. Imprime a soma dos primeiros 20 números naturais.
Algoritmo "Soma_Vinte"
//16. Imprime a soma dos primeiros 20 números naturais.
Var
s, i: inteiro
inicio
s<-0
Para i de 1 ate 20 faca
s<-s+i
FimPara
Escreva("Soma: ", s)
Fimalgoritmo
15. Imprime os primeiros 20 números primos.
Algoritmo "Primos_Numeros"
//11. Imprime os primeiros 20 números primos.
Var
i, j, C, k : inteiro
Inicio
Para i de 1 ate 72 faca
C<-0
Para j de 1 ate i faca
Se i%j = 0 entao
C<-C+1
Senao
FimSe
FimPara
Se C=2 entao
k<-k+1
Escreval(k,"-",i," E numero Primo")
FimSe
FimPara
Fimalgoritmo
16. Imprime os primeiros 100 termos duma Progressão Aritmética cujo primeiro termo a1=3 e a
razão d=2.
Algoritmo "Primeiros_PA"
//23. Imprime os primeiros 100 termos duma Progressão Aritmética
// cujo primeiro termo a1=3
//e a razão d=2.
Var
i, n: inteiro
Inicio
n<-3
Para i de 1 ate 100 faca
Escreva(n," ")
n<-n+2
FimPara
Fimalgoritmo
17. Imprime os primeiros 100 termos da série de Fibonacci (1,1,2,3,5, … an-1 + an-2)
Algoritmo "Fibonacci"
//24. Imprime os primeiros 100 termos da série de
//Fibonacci (1,1,2,3,5, … an-1 + an-2)
Var
F1, F2,Fn, i: inteiro
Inicio
F1<-1
Escreva(F1," ")
F2<-1
Escreva(F2," ")
Para i de 1 ate 88 faca
Fn<-F1+F2
Escreva(Fn," ")
F1<-F2
F2<-Fn
FimPara
Fimalgoritmo
[Link] "numero perfeito"
//19. leia um numero inteiro qualquer se esse numero e perfeito ou nao. um numero e p[erfeito
quando a soma dos seus divisores, excetuando-se o proprio numero for igual ao numero
Var
n,s,i:inteiro
Inicio
escreval("digite um numero")
leia(N)
i<-1
s<-0
para i de 1 ate n-1 faca
se n%i=0 entao
s<-s+i
fimse
fimpara
se s=n entao
escreval("o numero",n,"e perfeito")
senao
escreval ("o numero",n,"nao e perfeito")
fimse
Fimalgoritmo