Ir ao conteúdo

Posts recomendados

Postado

É um programa de registro, eu queria poder voltar ao menu depois de cadastrar o cliente mas o programa finaliza, nao sei como eu faço

E se quiserem apontar outros erros fiquem a vontade

Program Pzim ;

Type TipoRegistro = Record
		 	compra, total:integer;
     	vet: array [1..4] of integer;
    	nome: string;		
			end;
Var
Clientes : array [1..100] of TipoRegistro;
opcao, indice, repet, i, indicebusca: integer;
achar: boolean;
Begin
	indice:= 1;
	opcao:= 0;
	writeln('--- Cadrasto de clientes ---');
	writeln('[1] Cadastrar cliente');
	writeln('[2] Pesquisar cliente');
	writeln('[3] Listagem de cliente');
	read(opcao);
	if (opcao=1) then
begin
	if (indice<=100) then
begin
	clrscr;
	writeln('Para cadastrar o cliente, digite o nome do usuário');
	readln(Clientes[indice].nome);
	writeln('Agora digite o o valor das 4 compras');
begin
	readln(Clientes[indice].vet[1]);
	readln(Clientes[indice].vet[2]);
	readln(Clientes[indice].vet[3]);
	readln(Clientes[indice].vet[4]);
	Clientes[indice].total:=Clientes[indice].vet[1]+Clientes[indice].vet[2]+Clientes[indice].vet[3]+Clientes[indice].vet[4];
	writeln('Cliente cadastrado, tecle enter para sair');
	writeln(Clientes[indice].total);
	indice:=indice+1;
	readln;	
end;
end;
end;
	if (opcao=2) then
	begin
	clrscr;
	achar:=false;
	writeln('Digite o nome do cliente');
	read(Clientes[indice].nome);
	for i:=1 to indice do 
	begin
	if (Clientes[indice].nome=Clientes[i].nome) then
	begin
	achar:=true;
	indicebusca:= 1;
	end;
	end;
	if achar=true then
	begin
	writeln('O Valor das quatro compras é de: ' , Clientes[indicebusca].vet[1], ' ' , Clientes[indicebusca].vet[2], ' ' , Clientes[indicebusca].vet[3], ' ' , Clientes[indicebusca].vet[4] );
	writeln('A soma dos valores é de ' , Clientes[indicebusca].total );
	writeln('Tecle enter para sair');
	readln;
	end
	else
	begin
	write('Cliente não cadastrado ');
	writeln('Tecle enter para sair');
	readln;
	end;
	if (opcao=3) then
	clrscr;
	writeln('As informações do cliente são: ');
	writeln(Clientes[indicebusca].vet[1], Clientes[indicebusca].vet[2], Clientes[indicebusca].vet[3], cLientes[indicebusca].vet[4] );
	writeln(Clientes[indice].total);
	writeln(Clientes[indice].nome);	
end;
	writeln('Tecle enter para sair');
readln;	
End.

 

  • Curtir 1

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

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!