Olá pessoal, vamos a mais um exercício simples para quem está começando…
Faça um algoritmo que receba o peso de uma pessoa, calcule e mostre:
a) o novo peso se a pessoa engordar 15% sobre o peso digitado;
b) o novo peso se a pessoa emagrecer 20% sobre o peso digitado.
https://docente.ifrn.edu.br/jonathanpereira/disciplinas/algoritmos/lista-de-exercicios-1/view
Exemplo em algoritmo
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | programa project10; var peso: real; novoPesoEngordar: real; novoPesoEmagrecer: real; begin Escreva('Informe o seu peso: '); Leia(peso); { Calculando peso engordar } novoPesoEngordar := peso + ((peso * 15) / 100); Escreva('Se engordar 15% o seu peso é: ', novoPesoEngordar); { Calculando peso emagrecer } novoPesoEmagrecer := peso - ((peso * 20) / 100); Escreva('Se emagrecer 20% o seu peso é: ', novoPesoEmagrecer); end. |
Vamos para a programação…
Exemplo de resposta em Lazarus, Delphi, Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | program project10; uses SysUtils; var peso: double; novoPesoEngordar: double; novoPesoEmagrecer: double; begin Write(Utf8ToAnsi('Informe o seu peso: ')); ReadLn(peso); { Calculando peso engordar } novoPesoEngordar := peso + ((peso * 15) / 100); WriteLn(Utf8ToAnsi('Se engordar 15% o seu peso é: ' + FormatFloat('#0.00', novoPesoEngordar))); { Calculando peso emagrecer } novoPesoEmagrecer := peso - ((peso * 20) / 100); WriteLn(Utf8ToAnsi('Se emagrecer 20% o seu peso é: '+ FormatFloat('#0.00', novoPesoEmagrecer))); Readln; end. |
Esperam que tenham gostado.
Dúvidas? Deixe o seu comentário.
Um abraço e até a próxima!
