Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
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.

Editado por Mog.Lucas
Utilize tags [code] para separar texto de código. Obrigado!

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 !!!

Editado por Mog.Lucas
Utilize tags [code] para separar texto de código. Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites
 

valeu ajudou n tava me lembrando como era só tinha uma vaga ideia muito tempo sem mexer em pascal...

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

×