Algoritmo Múltiplos
Por: Luana Ravenna • 27/5/2016 • Trabalho acadêmico • 7.879 Palavras (32 Páginas) • 389 Visualizações
Resposta da Tarefa 4
1- Algoritmo Múltiplos_de_5;
Var
num: inteiro;
Inicio
para num de 1 até 100 faça
inico
se (num MOD 5) = 0 então
escreva(num);
fimse;
fim;
fimpara;
Fim.
2- Algoritmo Numeros_Quadrados;
Var
num:inteiro;
Inicio
para num de 10 ate 30 faça;
inicio
se (num MOD 2) = 0 então
escreva(num);
fimse;
fim;
fimpara;
Fim.
3- Algoritmo Múltiplos_de_3;
Var
num:inteiro;
Inicio
para num de 10 até 30 faça
inicio
se (num MOD 3) = 0 então
escreva(num)
fimse;
fim;
fimpara;
Fim.
4- Algoritmo Somatorio;
Var
i :inteiro;
Inicio
soma <- 0;
para i de 20 ate 60 faça
inicio
soma <- soma + i;
i <- i+1;
fim;
fimpara;
escreva(soma);
Fim.
5- Algoritmo Cubico_Metade;
Var
cont,cubico,metade,num:inteiro;
Inicio
para cont de 1 ate 10 faça
inicio
cubico <- (num ^1/3);
metade <- (num * 2);
escreva(“Sua raiz cubica:”, cubico);
escreva(“Sua metade:”, metade);
fim;
fimpara;
Fim.
6-Algoritmo Cubico_Metade;
Var
repi,num,metade,cubico: inteiro;
Inicio
escreva(“Quantas vezes vocês você quer repetir esse programa:”);
leia(repi) ;
para i de 0 ate repi faça
inicio
escreva(“Entre com número:”);
leia(num);
cubico <- (num ^1/3);
metade <- (num * 2);
escreva(“Sua raiz cubica:”, cubica);
escreva(“Sua metade:”, metade);
fim;
fimpara;
Fim.
7- Algoritmo Numeros_Inteiros;
Var
cont,numa,numB,resultado:inteiro;
Inicio
Escreva(“Digite um numero base:”);
Leia(numA);
Escreva(“Digite um numero expoente:”);
Leia(numB);
cont <- 1;
resultado <- numA;
enquanto (cont < numB) faça
inicio
resultado <- numA * resultado;
cont <- cont + 1;
fim;
fim_enquanto;
escreva(resultado);
Fim.
8- Algoritmo Polegadas_Para_Centimentos;
var polegadas, centimetros: real;
cont: inteiro;
Inicio
poledas←0
para cont de 1 até 20 faça
inicio
Escreva(“Polegadas / Centimetros”);
centimetros←polegadas*2,54;
Escreva(“Polegadas: ”,polegadas” Centimetros: ”,centimetros);
polegadas←polegadas+1;
fimpara;
fim.
9-Algoritmo Tabuada;
Var
num,cont:inteiro;
Inicio
Escreva(“Tabuada”);
Escreva(“Digite um número:”);
Leia(num);
para cont de 1 até 10 faça
inicio
cont <- num * cont;
escreva(cont);
fim;
fim_para;
Fim.
10-Algoritmo Nome_Idade_Sexo;
Var
nome,sexo:caractere;
cont,idade:inteiro;
Inicio
para cont de 1 até 20 faça
inicio
escreva(“Digite o nome:”);
leia(nome);
escreva(“Digite a idade”);
leia(idade);
escreva(“Digite o sexo:”);
leia(sexo);
se (sexo = “masculino”) e (idade >= “21”) então
escreva(“Do sexo masculino e tem mais de 21 anos:”);
senão
escreva(“Não é do sexo masculino e não tem mais de 21 anos”);
fimse;
fim;
fim_para;
Fim.
11- Algoritmo Inferior_Superior;
Var
n1, n2, cont, maior, menor: inteiros;
Inicio
Escreva(“Digite o primeiro número”);
Leia(n1);
Escreva(“Digite o segundo número”);
Leia(n2);
Se n1>n2 então
maior←n1;
menor←n2;
senão
maior←n2;
menor←n1;
fimse;
cont←1;
Para cont de menor até maior passo 1 faça
inicio
Escreva(“Números impares do intervalo: ”,cont);
fimpara;
fim;
12- Algoritmo Somatorio;
Var
n1, somatorio:inteiro;
inicio
escreva("Digite o número 0800 para finalizar");
Escreva("Digite um número para somar");
Leia(n1);
somatorio←n1;
...