Ir ao conteúdo
  • Cadastre-se

Valdemir Silva_708599

Membro Júnior
  • Posts

    3
  • Cadastrado em

  • Última visita

Reputação

0
  1. Boa tarde e obrigado pelas respostas, realmente me atentei a estes pontos retirando o exit e fazendo com que apos o processamento retornasse ao menu principal, ficou melhor pois aparenta não ter erros, da outra forma ele estava com conflito nas estruturas de repetição. Agora sobre identação, sim é um dos critérios de avaliação, porém como estou no primeiro período e estou iniciando o contato com o mundo da programação fico meio perdido nesse quesito, estou a procura de algum código pronto com a identação para seguir de exemplo, obrigado pelas respostas.
  2. Poderia me explicar melhor, como assim dentro de funções, procedures ? então o que foi proposto era ser feito apenas com as funcões iniciantes, case/ if, repeat, while.
  3. Bom dia pessoal, estou com um problema em um projeto da facul, preciso fazer que o programa apresente os seguintes menu com a opção para retornar para o anterior e menu principal. O problema é o seguinte, ao digitar a opção 1( OP1) ele avança normal, ao digitar a opção 'C' ( OP2) ele retorna ao menu principal, tudo ok, depois avançando para o menu seguinte digitando ' A' (OP2) , tudo funciona normalmente, porém depois que ele retorna ao menu anterior digitando 3 (OP3) e tentando retorna logo em seguida ao menu principal, ele não volta, ou seja ele não retorna ao menu principal apos ter passado pelo 2º submenu. se puderem me ajudar agradeço muito. varvarop1,op3:integer; {declaração de variaveis}CM,METROS,LITROS,MILI:real;op2:CHAR;LOOP1:string; Begin REPEAT//REPEAT DO SUB MENU PARA O MENU PRINCIPAL CLRSCR; gotoxy(22,1);write ('--------------------------------------'); gotoxy(22,2);write ('| Conversor |'); gotoxy(22,3);write ('| |'); gotoxy(22,4);write ('| |'); gotoxy(22,5);write ('| 1-Conversor de Medidas |'); gotoxy(22,6);write ('| 2-Conversor de Moedas |'); gotoxy(22,7);write ('| 3-Conversor de Peso |'); gotoxy(22,8);write ('| 4-Sair do Programa |'); gotoxy(22,9);write ('| |'); gotoxy(22,10);write('| Digite a Opção desejada: |'); gotoxy(22,11);write('--------------------------------------'); gotoxy(53,10); readln(OP1); CASE OP1 OF 1:BEGIN REPEAT//REPEAT SUBMENU 2 PARA SUBMENU 1 CLRSCR; gotoxy(22,1);write ('--------------------------------------------------'); gotoxy(22,2);write ('| CONVERSOR DE MEDIDAS |'); gotoxy(22,3);write ('| |'); gotoxy(22,4);write ('| A- MÉTRICAS |'); gotoxy(22,5);write ('| B- VOLUMÉTRICAS |'); gotoxy(22,6);write ('| C- VOLTAR AO MENU PRINCIPAL |'); gotoxy(22,7);write ('| |'); gotoxy(22,8);write ('| Digite a Opção desejada: |'); gotoxy(22,9);write ('--------------------------------------------------'); gotoxy(55,8);readln(op2); UNTIL OP3<>3 //REPEAT DO SUB MENU END;//END OP1 1 4:BEGIN GOTOXY(35,20);WRITELN (' BYEE'); EXIT; END; END;//END CASE OP1 UNTIL OP1=4 //REPEAT DO MENU INICIALEnd.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...