O Projeto de Engenharia
Por: SA Mi • 23/11/2023 • Trabalho acadêmico • 940 Palavras (4 Páginas) • 64 Visualizações
1) Algoritmo "enquanto"
Var
x, soma: inteiro
Inicio
x := 1
enquanto (x <= 100) faca
soma := soma + x
x := x + 1
escreva ("a soma e: ", soma)
fimenquanto
Fimalgoritmo
2) Algoritmo "enquanto"
Var
numero: inteiro
Inicio
numero := 100
enquanto (numero >= 1) faca
escreva (numero)
numero := numero - 1
fimenquanto
Fimalgoritmo
3) Algoritmo "enquanto"
Var
numero: inteiro
Inicio
numero := 200
enquanto (numero >= 100) faca
escreva (numero)
numero := numero - 1
fimenquanto
Fimalgoritmo
4) Algoritmo "para"
Var
x: inteiro
Inicio
para x := 1 ate 100 faca
se (x mod 2 = 1) entao
escreva (x)
fimse
fimpara
Fimalgoritmo
5) Algoritmo "soma"
Var
x, num, soma: inteiro
Inicio
para x := 1 ate 100 faca
num := num + 1
soma := soma + x
escreva (num, " ", soma)
fimpara
Fimalgoritmo
6) Algoritmo "para"
Var
x, num, val, maior: inteiro
Inicio
escreva ("digite um valor: ")
leia (num)
maior := 0
para x := 1 ate num faca
escreva ("digite um valor: ")
leia (val)
se (val > maior) entao
maior := val
fimse
escreva ("o mairo valor e: ", maior)
fimpara
Fimalgoritmo
7) Algoritmo "semnome"
Var
x, par, impar, val:inteiro
Inicio
par := 0
impar := 0
para x := 1 ate 200 faca
escreva ("digite um numero: ")
leia (val)
se (val mod 2 = 0) entao
par := par + 1
senao
impar := impar + 1
fimse
escreva("a quantidade de numeros pares e: ")
escreva ("a quantidade de numeros impares e: ")
fimpara
Fimalgoritmo
8) Algoritmo "soma"
Var
x, num, soma, cont: inteiro
Inicio
x := 1
soma := 0
enquanto (x <= 20) faca
escreva ("digite um numero: ")
leia (num)
se (num >= 0) entao
soma := soma + num
senao
cont := cont +1
fimse
x := x + 1
fimenquanto
escreva ("a soma dos positivos e: ", soma)
escreva ("a quantidade de negativos: ", cont)
...