Algoritmo – Calculando o peso
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. |
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. |
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!
-
Franciele Benedetti
-
5.391 views
- 0 comentários
- 20 de abril de 2020
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo