Algoritimo pascal.
Por: Kleber.Oliveira • 15/11/2018 • 2.816 Palavras (12 Páginas) • 317 Visualizações
...
| Barato |’);
writeln (’|_____________________________|_______________|’);
writeln (’| Entre R$ 50,00 e R$ 120,00 | Normal |’);
writeln (’|_____________________________|_______________|’);
writeln (’| >= R$ 120,00 | Caro |’);
writeln (’|_____________________________|_______________|’);
writeln (’ ___________________________________’);
writeln (’| Tabela III |’);
writeln (’|___________________________________|’);
writeln (’| Situação | % Aumento |’);
writeln (’|______________________|____________|’);
writeln (’| 1-R - Pereciveis | 5 % |’);
writeln (’|______________________|____________|’);
writeln (’| 2-N - Não pereciveis | 8% |’);
writeln (’|______________________|____________|’);
writeln(’ ’);
Writeln(’Escola Técnica de Brasília - ETB ’);
Writeln (’Técnico em Informática ’);
Writeln (’Lógica de programação ’);
Writeln(’Professor: Pedro José’);
Writeln(’Autor: ’);
Writeln (’Data:/08/2017’);
writeln(’ ’);
writeln (’PARA SAIR DIGITE ZERO!’);
writeln(’ ’);
write(’Digite o preço do produto: ’);
read (preco);
write(’Digite a categoria do produto: ’);
read (categoria);
write(’Digite a situação do produto N ou R: ’);
read (situacao);
if (preco > 0) and (preco <= 25) then
writeln(’ ’);
begin
if (preco > 0) and (preco <=25) and (categoria = 1) and (situacao = ’r’) then
begin
writeln (’O valor do aumento é: ’, preco*0.05:0:2);
writeln(’ ’);
writeln (’O valor do imposto é: ’, preco*0.05:0:2);
writeln(’ ’);
writeln (’O preço digitado é: ’,preco:0:2);
writeln(’ ’);
writeln (’O novo preço é: ’, preco+preco*0.05-preco*0.05:0:2);
writeln(’ ’);
end
else if (preco > 0) and (preco <=25) and (categoria = 1) and (situacao = ’n’) then
begin
writeln (’O valor do aumento é: ’, preco*0.05:0:2);
writeln(’ ’);
writeln (’O valor do imposto é: ’, preco*0.08:0:2);
writeln(’ ’);
writeln (’O preço digitado é: ’,preco:0:2);
writeln(’ ’);
writeln (’O novo preço é: ’, preco+preco*0.05-preco*0.08:0:2);
writeln(’ ’);
end;
end;
if (categoria = 2) then
begin
if (preco > 0) and (preco <=25) and (categoria = 2) and (situacao = ’r’)then
begin
writeln (’O valor do aumento é: ’, preco*0.08:0:2);
writeln(’ ’);
writeln (’O valor do imposto é: ’, preco*0.05:0:2);
writeln(’ ’);
writeln (’O preço digitado é: ’,preco:0:2);
writeln(’ ’);
writeln (’O novo preço é: ’, preco+preco*0.08-preco*0.05:0:2);
end
else if (preco > 0) and (preco <=25) and (categoria = 2) and (situacao = ’n’) then
begin
writeln (’O valor do aumento é: ’, preco*0.08:0:2);
writeln(’ ’);
writeln (’O valor do imposto é: ’, preco*0.05:0:2);
writeln(’ ’);
writeln (’O preço digitado é: ’,preco:0:2);
writeln(’ ’);
writeln (’O novo preço é: ’, preco+preco*0.08-preco*0.05:0:2);
writeln(’ ’);
end;
end;
if (categoria = 3) then
begin
if (preco > 0) and (preco <=25) and (categoria = 3) and (situacao = ’r’)then
...