{Minha lojinha de brinquedos está oferecendo descontos agora no final de ano de acordo com
o valor da compra. o descondo de 5% se o valor for maior que R$300, 15% se for
maior que R$ 500, 20% se maior que R$700 e 30% acima de R$700, crie um
algoritmo que leia o nome do cliente, o nome do vendedor, o valor da compra
mostre o nome do cliente e do vendedor, valor da compra, valor de desconto
e o valor total a pagar pelo cliente.}
program compra_desconto;
var valor_compra, valor_desconto, valor_pagar: real;
desconto : integer;
vendedor : string[30];
cliente : string[30];
begin
write('O nome do cliente....:');
readln(cliente);
write('O nome do Vendedor....:');
readln(vendedor);
write('O valor da compra....:');
readln(valor_compra);
if valor_compra <= 300 then
desconto := 5
else if valor_compra <= 500 then
desconto := 15
else if valor_compra <= 700 then
desconto := 20
else
desconto :=30;
valor_desconto := (valor_compra * desconto) /100;
valor_pagar := valor_compra - valor_desconto;
writeln('Nome do cliente.......:',cliente);
writeln('O nome do vendedor....:',vendedor);
writeln('valor da compra.......:',valor_compra:6:2);
writeln('valor do desconto.....:',valor_desconto:6:2);
writeln('valor a pagar.........:', valor_pagar:6:2);
writeln();
readln();
end.
Bem vindo ao meu blog sobre Programação em linguagem pascal.
Bem, aqui tento passar alguma coisa do básico sobre a linguagem pascal, aulas que assiti nas vídeo-aulas do professor Neri, no curso "Lógica de programação", separei só o que falava de pascal, mas nas aulas agente aprende sobre java e C, colocarei aqui os problemas e o modo de fazer, não irei colocar os algoritmos e fluxogramas sobre pascal, colocarei os exemplos com minhas modificações, mas vale a pena comprar as vídeo aulas do profº Neri, farei até uma propaganda para ele(depois eu cobro), o site dele é http://www.informaticon.com.br confiram... e espero que eu possa passar algo de bom para quem está iniciando.
CONCURSO DE CANTO (MÉDIA DA NOTAS)
{Em um concurso de canto a avaliação é composta de três fundamentos, o primeiro
é o timbre que tem peso 2, o segundo é a melodia que tem peso 3, o terceiro é
a desenvoltura em palco, que tem peso 5, todos terão notas e se a media for maior
que 7 o candidato estara classificado, faça um algoritimo que mostre se ele está
classificado ou desclassificado para a próxima etapa.}
program concurso;
var timbre, melodia, desenvoltura, media: real;
begin
write('Digite a nota para o TIMBRE.......:::');
readln(timbre);
write('Digite a nota para a MELODIA......:::');
READLN(MELODIA);
write('Digite a nota para a DESENVOLTURA.:::');
readln(desenvoltura);
timbre := timbre * 2 /10;
melodia := melodia *3 /10;
desenvoltura := desenvoltura *5 /10;
media := (timbre + melodia + desenvoltura);
if media >= 7 then
writeln(' Classificado com nota', media:6:2)
else
writeln(' Desclassificado com nota', media:6:2);
writeln();
writeln();
writeln();
writeln(' OBRIGADO');
readln();
end.
é o timbre que tem peso 2, o segundo é a melodia que tem peso 3, o terceiro é
a desenvoltura em palco, que tem peso 5, todos terão notas e se a media for maior
que 7 o candidato estara classificado, faça um algoritimo que mostre se ele está
classificado ou desclassificado para a próxima etapa.}
program concurso;
var timbre, melodia, desenvoltura, media: real;
begin
write('Digite a nota para o TIMBRE.......:::');
readln(timbre);
write('Digite a nota para a MELODIA......:::');
READLN(MELODIA);
write('Digite a nota para a DESENVOLTURA.:::');
readln(desenvoltura);
timbre := timbre * 2 /10;
melodia := melodia *3 /10;
desenvoltura := desenvoltura *5 /10;
media := (timbre + melodia + desenvoltura);
if media >= 7 then
writeln(' Classificado com nota', media:6:2)
else
writeln(' Desclassificado com nota', media:6:2);
writeln();
writeln();
writeln();
writeln(' OBRIGADO');
readln();
end.
Ordem crescente com condicionais "if, then, else"
//Crie 2 variavéis (a e b) e leia seus valores e coloque em ordem crescente.
program ordemcrescente;
var a, b : integer;
begin
write('digite o valor A...:');
readln(a);
write('digite o valor B...:');
readln(b);
// condicionais//
if a > b then
writeln('A ordem crescente B=', b ,'-a=',a)
else
writeln('A ordem crescente A=', a,'-b=',b);
readln();
end.
program ordemcrescente;
var a, b : integer;
begin
write('digite o valor A...:');
readln(a);
write('digite o valor B...:');
readln(b);
// condicionais//
if a > b then
writeln('A ordem crescente B=', b ,'-a=',a)
else
writeln('A ordem crescente A=', a,'-b=',b);
readln();
end.
Juros cartão.
Agora vamos supor que meu colega esteja com o cartão de crédito em atraso
vamos ver um programa que veja o valor da prestação a taxa de juros e os
dias em atraso.
__________________________________________________________________________________
program cartao;
var prestacao, valor, juros, totaljuros, total: real;
atraso: integer;
begin
write('digite o valor da prestacao.::');
readln(prestacao);
write('digite a taxa de juros......::');
readln(juros);
write('Dias em atraso..............::');
readln(atraso);
valor :=(prestacao * juros)/100 * atraso;
totaljuros :=(prestacao - valor);
total := (prestacao + valor);
juros :=(prestacao - totaljuros);
writeln('digite o valor da prestacao...........::',prestacao:6:2);
writeln('digite o valor do juros... ...........::',juros:6:2);
writeln('digite a quantidade de dias em atraso.::',atraso);
writeln('digite o valor total com juros.........::',total:6:2);
readln;
end.
vamos ver um programa que veja o valor da prestação a taxa de juros e os
dias em atraso.
__________________________________________________________________________________
program cartao;
var prestacao, valor, juros, totaljuros, total: real;
atraso: integer;
begin
write('digite o valor da prestacao.::');
readln(prestacao);
write('digite a taxa de juros......::');
readln(juros);
write('Dias em atraso..............::');
readln(atraso);
valor :=(prestacao * juros)/100 * atraso;
totaljuros :=(prestacao - valor);
total := (prestacao + valor);
juros :=(prestacao - totaljuros);
writeln('digite o valor da prestacao...........::',prestacao:6:2);
writeln('digite o valor do juros... ...........::',juros:6:2);
writeln('digite a quantidade de dias em atraso.::',atraso);
writeln('digite o valor total com juros.........::',total:6:2);
readln;
end.
Programa para financiamento.
E ai galera eu estou pagando a minha moto, e quero fazer um programa que
mostre a quantidade de prestações pagas, o valor delas, o total pago e o
que falta para terminar. são 36 prestações.
var total, quite, valor, par_resto, totalpago, devendo: real;
begin
total :=36;
writeln('Total de parcelas=',total:6:0);
write('Quantidade paga...=');
readln(quite);
write('valor da parcela..=');
readln(valor);
totalpago :=(quite * valor);
par_resto :=(total - quite);
devendo :=(total - quite)* valor;
writeln('Quantidade de parcelas pagas...=', quite:6:0);
writeln('O valor de cada parcela........=', valor:6:2);
writeln('Quanto foi pago................=',totalpago:6:2);
writeln('Quantidade de parcelas restante=',par_resto:6:2);
writeln('Quantidade de dinheiro a pagar.=', devendo:6:2);
readln;
end.
mostre a quantidade de prestações pagas, o valor delas, o total pago e o
que falta para terminar. são 36 prestações.
var total, quite, valor, par_resto, totalpago, devendo: real;
begin
total :=36;
writeln('Total de parcelas=',total:6:0);
write('Quantidade paga...=');
readln(quite);
write('valor da parcela..=');
readln(valor);
totalpago :=(quite * valor);
par_resto :=(total - quite);
devendo :=(total - quite)* valor;
writeln('Quantidade de parcelas pagas...=', quite:6:0);
writeln('O valor de cada parcela........=', valor:6:2);
writeln('Quanto foi pago................=',totalpago:6:2);
writeln('Quantidade de parcelas restante=',par_resto:6:2);
writeln('Quantidade de dinheiro a pagar.=', devendo:6:2);
readln;
end.
Assinar:
Postagens (Atom)