Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
crashoverithe

[Resolvido] if - else -else if

Recommended Posts

po não to lembrando como usar if e else alguem pode ajudar???

PROGRAM uhul;
VAR num,conta:real;
s,n,a,l,v,tipo,ref:string;
BEGIN
WRITEln('Digite o valor do produto ?');
READLN(num);
writeln('Digite o tipo (A para Alimentação, L para Limpeza , V para Vestuário)?');
readln(tipo);
writeln('Digite S para Produto que necessitam de refrigeração e N para Produto que não necessita de refrigeração ?');
readln(ref);

IF (ref=n) and (tipo=a) then

if (num<15) then
conta:=(num+2)
else
conta:=(num+5);
WRITELN('valor',conta)

else IF (ref=n) and (tipo=l) then

if (num<10) then
conta:=(num+1.50)
else
conta:=(num+2.50) ;
WRITELN('valor',conta)

else IF (ref=n) and (tipo=v) then

if (num<30) then
conta:=(num+3.00)
else
conta:=(num+2.50) ;
WRITELN('valor',conta)

else IF (ref=s) and (tipo=a) then

conta:=(num+8.00);
WRITELN('valor',conta)

else IF (ref=s) and (tipo=l) then

conta:=(num+5.00);
WRITELN('valor',conta)


else IF (ref=s) and (tipo=v) then

conta:=(num+0) ;
WRITELN('valor',conta) ;


END.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse codigo ajuda neste problema

var
num,conta:real;
tipo,ref:string;
Begin
writeln('digite o valor do produto?');
readln(num);
writeln('Digite o tipo (A para alimentação,L para limpeza,V para vestuário)?');
readln(tipo);
writeln('Digite s para produto que necessecitam de refrigeração e N para produto que não necessitam de refrigeração');
readln(ref);
if (ref='n') and (tipo='a') then
if (num<15) then
begin
conta:=(num+2);
writeln('Valor',conta);
end
else
begin
conta:=(num+5);
writeln('Valor',conta);
end
else if (ref='n') and (tipo='l') then
if (num<10) then
begin
conta:=(num+1.5);
writeln('Valor',conta);
end
else
begin
conta:=(num+2.50);
writeln('Valor',conta);
end
else if (ref='n') and (tipo='v') then
if (num<30) then
begin
conta:=(num+3);
writeln('Valor',conta);
end
else
begin
conta:=(num+2.5);
writeln('Valor',conta);
end;
if (ref='s') and (tipo='a') then
begin
conta:=(num+8);
writeln('Valor',conta);
end
else if (ref='s') and (tipo='l') then
begin
conta:=(num+5);
writeln('Valor',conta);
end
else if (ref='s') and (tipo='v') then
begin
conta:=(num);
writeln('Valor',conta);
end;
End.

Obs: Não declarei as letras pois (s,n,a,l,v) pois a variavel ref ja estava recebendo essas letras E se digitar (S,N,A,L,V) maiúsculo ai tem que mudar o código, e em num +0 nem era preciso passar o valor para a variavel conta era so mostrar o writeln('Valor',num);

Espero ter ajudado !!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×