algaritimos

1. Leia um numero e calcule o seu fatorial.Algoritmo Fatorial;DeclareVar fat, n, i :inteiro;Inícioescreva (‘Digite um número para calcular seu fatorial’);leia (n);fat←1;para i←1 até n façafat←fat*i;fimpara;escreva (‘O fatorial de ’ , n , ‘ é ’ , fat);Fim.Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150(inclusive).1. Algoritmo;DeclareVar i, c :inteiro;Inícioc←0;para i←1 até 80 façaescreva (‘Digite um número ’);leia (n);se n >=10 e n=18então escreva (‘Maior de idade’ )senão escreva (‘Menor de idade’ );fimse;fimpara;Fim.Escrever um algoritmo que leia o nome e o sexo de 56 pessoas e informe o nome e se ela é homemou mulher. No final informe total de homens e de mulheres.3. Algoritmo;DeclareVar i, ch, cm :inteiro;nome, sexo :string;Inícioch←0;cm←0;para i←1 até 56 façaescreva (‘Digite o nome: ’);leia (nome);escreva (‘Digite o sexo: ’);leia (sexo);se sexo =”M”então ch←ch+1senão cm←cm+1;fimse;fimpara;escreva (‘Das 56 pessoas ’ , ch , ‘são homens’);escreva (‘Das 56 pessoas ’ , cm , ‘são mulheres’);Fim.
3. Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre comoresultado se houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo edo preço de venda4. Algoritmo;DeclareVar pcusto, pvenda, lucro:real;i :inteiro;nomeproduto :string;Iníciopara i←1 até 40 façaescreva (‘Digite o nome do produto: ’);leia (nomeproduto);escreva (‘Digite o preço de custo: ’);leia (pcusto);escreva (‘Digite o preço de venda: ’);leia (pvenda);se pvenda >pcustoentão escreva (‘deu lucro ’)senão se pvenda = pcustoentão escreva (‘empate, nem lucro, nem prejuízo ’)senão escreva (‘prejuízo ’);fimse;fimse;fimpara;Fim.Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordem crescente.5. Algoritmo;DeclareVar i :inteiro;Iníciopara i←1 até 10 façaescreva (i);fimpara;Fim.
4. Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em