Ir ao conteúdo
  • Cadastre-se

Pascal/Delphi registro basico dados detran de 15 estados


Posts recomendados

Não estou conseguindo voltar ao menu principal.

Nesse caso eu necessito usar ponteiro, ou , usar registro , pedindo ao usuário o nome dos estados listados?Screenshot_5.png.13d112354023bc6c183bc0760c1a15c9.png

 

Program Pzim ;
CONST SAIR=3;
type frotadeumestado=record
  nome_Estado: string;
  total_veiculos:integer;
  total_acidentes: integer;
  
END;
var  option,option2:integer;
continuar: char;
frota: frotadeumestado;
Begin
  REPEAT
    writeln('BEM VINDO AO SISTEMA DETRAN SUL-SUDESTE-CENTROOESTE 2017');
    WRITELN('1-INSERIR DADOS DE UM ESTADO');
    WRITELN('2-ANALISAR ACIDENTES E FROTA ATUAL');
    WRITELN('3-SAIR');
    WRITELN('DIGITE O NUMERO DA OPCAO DESEJADA' );
    READLN(OPTION);
    
  UNTIL (OPTION=1) OR (OPTION=2)  OR (OPTION=3) or (continuar='s');    // como faco para voltar ao menu inicial
  if (OPTION=1) then
  begin
    CLRSCR;
    writeln('digite o nome do estado do veiculo');
    readln(frotadeumestado.nome_estado);
    writeln('digite o TOTAL DE  veiculos do estado');
    readln(frotadeumestado.total_veiculos);
    writeln('digite o total de acidentes do estado');
    readln(frotadeumestado.total_acidentes);
    i:=i+1;
    writeln('DADOS DO ',frotadeumestado.nome_estado,' CADASTRADOS COM SUCESSO!!');
    repeat
      writeln('deseja continuar? s/n');
      readln(continuar);
    until (continuar='s') or (continuar='n')
  end;
  IF  (OPTION=2) THEN
  BEGIN
    CLRSCR;
    REPEAT
      writeln('BEM VINDO AO SISTEMA DETRAN SUL-SUDESTE-CENTROOESTE 2017 ');
      writeln('0-MAIOR E MENOR INDICE DE ACIDENTES E ONDE ELES OCORRERAM ');
      writeln('1-PERCENTUAL DE VEICULOS DE CADA ESTADO ') ;
      writeln('2- MEDIA DE ACIDENTES EM CADA ESTADO ')  ;
      WRITELN('3-SAIR');
      WRITELN('4-VOLTAR AO MENU ANTERIOR');
      WRITELN('DIGITE O NUMERO DA OPCAO DESEJADA' );
      READLN(OPTION2);
    UNTIL (OPTION2=0) OR (OPTION2=1)  OR (OPTION2=2) OR (OPTION2=3) OR (OPTION2=4) ;
    
    if  (OPTION2=0) then
    begin
      
      
      
    end ;
  end;
  
End.


    
    

Link para o comentário
Compartilhar em outros sites

  • Membro VIP

@Bruno Gabriel de Andrade, coloque todo o código dentro de um repeat/until.

 

Ao escolher uma opção válida, o código vai verificar qual opção foi escolhida entrando no if correspondente, no final vai voltar para o início do código, que é o menu. O processo se repetir até que a opção seja 3.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

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