Algoritimo pascal.
Por: Denis Alves • 23/9/2017 • Projeto de pesquisa • 2.815 Palavras (12 Páginas) • 184 Visualizações
Program exercicio_lista2_4 ;
var
n1,n2,n3:real;
Begin
Write ('Escreva o Primeiro numero:');
read (n1);
Write ('Escreva o Segundo numero:');
read (n2);
Write ('Escreva o Terceiro numero:');
read (n3);
writeln (' ');
writeln('Os numeros digitados foram: ',n1:0:2, ' , ' ,n2:0:2 ,' e ', n3:0:2);
if (n1 < n2) and (n1 < n3) then
begin
write ('O primeiro número é o menor: ', n1:0:2);
end
else
if (n2 < n1) and (n2 < n3 ) then
begin
write ('O Segundo número é o menor: ', n2:0:2);
end
else
if (n3 < n1) and (n3 < n2) then
begin
write ('O Terceiro número é o menor: ', n3:0:2);
end
else
writeln ('Números iguais.');
end.
Program exercicio_lista1_23 ;
var
preco,categoria,novo_preco,novo_preco1:real;
situacao:char;
Begin
repeat
clrscr;
writeln(' _____________________________________________________ ');
writeln('| Tabela I |');
writeln('|_____________________________________________________|');
writeln('| Preço | Categoria | Percentual de Aumento |');
writeln('|_____________|_______________|_______________________|');
writeln('| | 1-Limpeza | 5 % |');
writeln('| |_______________|_______________________|');
writeln('| <= R$ 25,00 | 2-Alimentação | 8 % |');
writeln('| |_______________|_______________________|');
writeln('| | 3-Vestuário | 10 % |');
writeln('|_____________|_______________|_______________________|');
writeln('| | 1-Limpeza | 12 % |');
writeln('| |_______________|_______________________|');
writeln('| > R$ 25,00 | 2-Alimentação | 15 % |');
writeln('| |_______________|_______________________|');
writeln('| | 3-Vestuário | 18 % |');
writeln('|_____________|_______________|_______________________|');
writeln (' _____________________________________________');
writeln ('| Tabela II |');
writeln ('|_____________________________________________|');
writeln ('| Novo Preço | Classificação |');
writeln ('|_____________________________|_______________|');
writeln ('| <= R$ 50,00 | 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:
...