Bom fellas consegui fazer o programa certinho e esta funcionando normal mas to com uma duvida
olhem:
Program proint1;
Uses wincrt;
{Declaração de variáveis}
Var
cod:integer; {cod=código}
pp,pt,qtd,des,vtc:Real; {pp=preço do produto,pt=preço total, qtd=quantidade, des=desconto, vtc=valor total da compra}
Begin {inicio do programa}
Writeln('Insira o código do produto...');
readln(cod);
begin
If((cod<1) or (cod>40))then
Begin
Writeln('Codigo invalido');
end
else
If((cod>=1)and(cod<=10))then
begin
pp:=10.00;
end
else
If((cod>10)and(cod<=20))then
begin
pp:=15.00;
end
else
If((cod>20)and(cod<=30))then
begin
pp:=20.00;
end
else
begin
pp:=30.00;
end
end;
Begin
Writeln('Digite a quantidade do produto...');
readln(qtd);
pt:=pp*qtd;
If(pt<=500.00)then
Begin
des:=pt*5/100;
end
else
If((pt>=500.01)and(pt<=1000.00))then
begin
des:=pt*10/100;
end
else
begin
des:=pt*15/100;
end
end;
vtc:=pt-des;
Writeln('O valor do produto é R$ ',pp:0:2,', O preço da sua compra é de R$ ',pt:0:2);
writeln('O valor do descondo da sua compra é de R$ ',des:0:2);
writeln('O valor final da sua conta é de ',vtc:0:2,'.');
readkey;
donewincrt;
{Fim do programa}
end.
Writeln('Insira o código do produto...');
readln(cod);
begin
If((cod<1) or (cod>40))then
Begin
Writeln('Codigo invalido');
(nessa parte que estou com uma duvida como eu faço para que programa começe denovo quando aparece a msg condigo invalido quero que volte ao incio do programa sakaram?)
Pergunta
di_sakai
Bom fellas consegui fazer o programa certinho e esta funcionando normal mas to com uma duvida
olhem:
(nessa parte que estou com uma duvida como eu faço para que programa começe denovo quando aparece a msg condigo invalido quero que volte ao incio do programa sakaram?)
peço a juda de vocês por favor!!
Editado por kuroiAdicionar tag CODE
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.