Procedure em Pascal (Dúvida)

[kira911]

Olá ! O negocio é o segunite...fiz um programinha em pascal e coloquei umas procedures (um bocado). E cada uma dessas procedures chama outras em sua execução. E o erro é o seguinte quando uma procedure chama a outra e essa outra não está acima da que está chamando no codigo, da um erro chamado "INDENTIFIER NOT FOUND PRONOME". Esse "PRONOME" é o nome da procedure que a outra está chamando. Para vocês terem uma ideia melhor vou por o codigo aqui. Desde já muito obrigado !

OBS: Estou usando o DEV-PASCAL.

Program teste;

  type tdados = record
	nome: array [1..3] of string[40];
	endo: array [1..3] of string [70];
	kmp: array [1..3] of integer;
	kmd: array [1..3] of integer;
	quantp: array [1..3] of integer;
	hora: array [1..3] of integer;
  end;

var dados:tdados; i,cont:integer; pro,op2:string; op1:char; 

procedure se;
 begin    	

 	writeln('Deseja pesquisar alguma pessoa em nosso banco de dados ?');
 	writeln('S/N');
 	readln(op1);
	if (op1='n') then
	begin
		fim;
	end;
	if (op1='s') then
	begin
		writeln('Deseja procurar por nome ou endereco ?');
		readln(op2);
		if (op2='nome') then
		begin
			pronome;
		end;
		if (op2='endereco') then
		begin
			proend;
		end;
	end;
 end; 

	procedure fim;
 begin
 	writeln('Encerrando...');
 	exit;
 end;

 procedure pronome;
var achou:boolean;
 begin
 	achou:=false;
 	writeln('Digite o nome que deseja procurar.');
 	readln(pro);
 	 for cont:=1 to 3 do
   begin
 	 if (pro=dados.nome[cont]) then
     begin
    	 achou:=true;
    	 break;
     end;

   end;
    if (achou) then
   writeln('Pessoa cadastrada em nosso banco de dados.')
    else
   writeln('Desculpe. Pessoa nao cadastrada em nosso banco de dados.');
   se;
 end;

   	procedure proend;
var 
  achou:boolean;
begin
 	achou:=false;
 	writeln('Digite o endereco da pessoa que deseja procurar.');
 	readln(pro);
 	 for cont:=1 to 3 do
   begin
 	 if (pro=dados.endo[cont]) then
     begin
    	 achou:=true;
    	 break;
     end;

   end;
    if (achou) then
   writeln('Pessoa cadastrada em nosso banco de dados.')
    else
   writeln('Desculpe. Pessoa nao cadastrada em nosso banco de dados.');
   se;
end;

	procedure cadastro;
 begin
 	 for i:=1 to 3 do
    begin
 	writeln('Digite o nome da pessoa pagante.');
	readln(dados.nome[i]);
	writeln('Digite o nome da rua da pessoa.');
	readln(dados.endo[i]);
 	writeln('Digite o preco de cada quilometro percorrido.');
 	readln(dados.kmp[i]);
 	writeln('Digite quantos quilometros serao percorridos.');
 	readln(dados.kmd[i]);
 	writeln('Digite quantos passageiros serao levados.');
 	readln(dados.quantp[i]);
 	writeln('Digite a hora atual.');
 	readln(dados.hora[i]);
    end;
 end;	

begin
	cadastro;
	se;
end.

[imex]

Você vai precisar fazer alterações na lógica.

Uma solução seria utilizar um comando repeat dentro da procedure se para retornar ao início da procedure enquanto o usuário desejar pesquisar, em vez de chamar a procedure se de dentro de pronome e proend para retornar.

Espero que isso ajude.

[kira911]

Você vai precisar fazer alterações na lógica.

Uma solução seria utilizar um comando repeat dentro da procedure se para retornar ao início da procedure enquanto o usuário desejar pesquisar, em vez de chamar a procedure se de dentro de pronome e proend para retornar.

Espero que isso ajude.

Ajudou sim cara. Resolveu meu problema, mas me diz uma coisa teria alguma maneira de resolver esse problema sem eliminar procedures ?

[imex]

Você não precisa eliminar as procedures não.

O que eu disse anteriormente é que com um looping dentro da procedure se, você consegue eliminar a linha em destaque no código abaixo (a última linha das procedures antes do end), o que vai permitir que a procedure se fique posicionada abaixo das procedures pronome e proend.

procedure pronome;
var 
  achou:boolean;
begin
achou:=false;
writeln('Digite o nome que deseja procurar.');
readln(pro);
for cont:=1 to 3 do
    begin
    if (pro=dados.nome[cont]) then
        begin
        achou:=true;
        break;
        end;
    end;
if (achou) then
    writeln('Pessoa cadastrada em nosso banco de dados.')
else
    writeln('Desculpe. Pessoa nao cadastrada em nosso banco de dados.');
[B][I]se;[/I][/B]
end;

procedure proend;
var 
  achou:boolean;
begin
achou:=false;
writeln('Digite o endereco da pessoa que deseja procurar.');
readln(pro);
for cont:=1 to 3 do
    begin
    if (pro=dados.endo[cont]) then
        begin
        achou:=true;
        break;
        end;
    end;
if (achou) then
    writeln('Pessoa cadastrada em nosso banco de dados.')
else
    writeln('Desculpe. Pessoa nao cadastrada em nosso banco de dados.');
[B][I]se;[/I][/B]
end;

[Simon Viegas]

Olá,

Eu sei não como está seu código atualmente. Vou só passar uma dica sobre os arrays.

Em vez de um array para cada tipo você deveria ter um array para todo o registro.

Veja:

[color=#0000ff]PROGRAM[/color] teste[color=#000000];[/color]
[color=#0000ff]type[/color]
  tDados [color=#000000]=[/color] [color=#0000ff]record[/color]
             nome   [color=#000000]:[/color][color=#0000ff]string[/color][color=#000000][[/color][color=#000000]40[/color][color=#000000]];[/color]
             endo   [color=#000000]:[/color][color=#0000ff]string[/color][color=#000000][[/color][color=#000000]70[/color][color=#000000]];[/color]
             kmp    [color=#000000]:[/color][color=#0000ff]integer[/color][color=#000000];[/color]
             kmd    [color=#000000]:[/color][color=#0000ff]integer[/color][color=#000000];[/color]
             quantp [color=#000000]:[/color][color=#0000ff]integer[/color][color=#000000];[/color]
             hora   [color=#000000]:[/color][color=#0000ff]integer[/color][color=#000000];[/color]
           [color=#0000ff]end[/color][color=#000000];[/color]

  tVetDados [color=#000000]=[/color] [color=#0000ff]array[/color][color=#000000][[/color][color=#000000]1[/color][color=#000000].[/color][color=#000000].3[/color][color=#000000]][/color] [color=#0000ff]of[/color] tDados[color=#000000];[/color]

Em fim, caso queira, ajuste essa questão e/ou caso queira ver outros detalhes, poste aqui seu código para analisarmos.

No aguardo

Abraços

[kira911]

Então ai está o codigo. Como vocês aperfeiçoariam ele ? Mas sem add nenhuma função.

OBS: O codigo não está identando aqui no forum. Não sei porque.

codigo:

Program teste;
  type tdados = record
	nome: array [1..3] of string[40];
	endo: array [1..3] of string [70];
	kmp: array [1..3] of integer;
	kmd: array [1..3] of integer;
	quantp: array [1..3] of integer;
	hora: array [1..3] of integer;
  end;

var dados:tdados; i,cont,cont1:integer; pro,op2:string; op1,op3:char; 

 procedure pronome;
var achou:boolean;
 begin
 	achou:=false;
 	writeln('Digite o nome que deseja procurar.');
 	readln(pro);
 	 for cont:=1 to 3 do
   begin
 	 if (pro=dados.nome[cont]) then
     begin
    	 achou:=true;
    	 break;
     end;

   end;
    if (achou) then
   writeln('Pessoa cadastrada em nosso banco de dados.')
    else
   writeln('Desculpe. Pessoa nao cadastrada em nosso banco de dados.');
 end;

   	procedure proend;
var 
  achou:boolean;
begin
 	achou:=false;
 	writeln('Digite o endereco da pessoa que deseja procurar.');
 	readln(pro);
 	 for cont1:=1 to 3 do
   begin
 	 if (pro=dados.endo[cont1]) then
     begin
    	 achou:=true;
    	 break;
     end;

   end;
    if (achou) then
   writeln('Pessoa cadastrada em nosso banco de dados.')
    else
   writeln('Desculpe. Pessoa nao cadastrada em nosso banco de dados.');
end;

procedure se;
 begin	
   repeat
    	writeln('Deseja pesquisar alguma pessoa em nosso banco de dados ?');
 	writeln('S/N');
 	readln(op1);
	if (op1='n') then
	begin
	  writeln('Encerrando...');
   	  exit;
	end;
	 if (op1='s') then
	   begin
		writeln('Deseja procurar por nome ou endereco ?');
		readln(op2);
		if (op2='nome') then
		begin
			pronome;
		end;
		if (op2='endereco') then
		begin
			proend;
		end;

        end;
   until (op3='n');
        writeln('Deseja sair S/N');
	   readln(op3); 

 end; 

	procedure cadastro;
 begin
 	 for i:=1 to 3 do
    begin
 	writeln('Digite o nome da pessoa pagante.');
	readln(dados.nome[i]);
	writeln('Digite o nome da rua da pessoa.');
	readln(dados.endo[i]);
 	writeln('Digite o preco de cada quilometro percorrido.');
 	readln(dados.kmp[i]);
 	writeln('Digite quantos quilometros serao percorridos.');
 	readln(dados.kmd[i]);
 	writeln('Digite quantos passageiros serao levados.');
 	readln(dados.quantp[i]);
 	writeln('Digite a hora atual.');
 	readln(dados.hora[i]);
    end;
 end;	

begin
	cadastro;
	se;
end.

[viniciusbmatos]

Olá!

Para pôr o código identado:

seu código aqui;

Fiz algumas modificações no seu código, mas sem alterar muito o funcionamento:

[color=#000000][b]uses[/b][/color]
crt[color=#a52a2a][b];[/b][/color]
[color=#000000][b]const[/b][/color]
numero_de_pessoas [color=#a52a2a][b]=[/b][/color] [color=#000000]3[/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]type[/b][/color]
tdados [color=#a52a2a][b]=[/b][/color] [color=#000000][b]record[/b][/color]
nome[color=#a52a2a][b]:[/b][/color] [color=#000000][b]array[/b][/color] [color=#a52a2a][b][[/b][/color][color=#000000]1[/color][color=#a52a2a][b]..[/b][/color]numero_de_pessoas[color=#a52a2a][b]][/b][/color] [color=#000000][b]of string[/b][/color][color=#a52a2a][b][[/b][/color][color=#000000]40[/color][color=#a52a2a][b]];[/b][/color]
endo[color=#a52a2a][b]:[/b][/color] [color=#000000][b]array[/b][/color] [color=#a52a2a][b][[/b][/color][color=#000000]1[/color][color=#a52a2a][b]..[/b][/color]numero_de_pessoas[color=#a52a2a][b]][/b][/color] [color=#000000][b]of string[/b][/color] [color=#a52a2a][b][[/b][/color][color=#000000]70[/color][color=#a52a2a][b]];[/b][/color]
kmp[color=#a52a2a][b],[/b][/color] kmd[color=#a52a2a][b],[/b][/color] quantp[color=#a52a2a][b],[/b][/color] hora[color=#a52a2a][b]:[/b][/color] [color=#000000][b]array[/b][/color] [color=#a52a2a][b][[/b][/color][color=#000000]1[/color][color=#a52a2a][b]..[/b][/color]numero_de_pessoas[color=#a52a2a][b]][/b][/color] [color=#000000][b]of[/b][/color] [color=#0000cd][b]integer[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#4682b4][i]//[/i][/color]
[color=#000000][b]var[/b][/color]
v_dados[color=#a52a2a][b]:[/b][/color] tdados[color=#a52a2a][b];[/b][/color]
[color=#4682b4][i]//[/i][/color]
[color=#000000][b]procedure[/b][/color] [color=#228b22]pronome[/color] [color=#a52a2a][b]([/b][/color][color=#000000][b]var[/b][/color] dados[color=#a52a2a][b]:[/b][/color] tdados[color=#a52a2a][b]);[/b][/color]
[color=#000000][b]var[/b][/color]
achou[color=#a52a2a][b]:[/b][/color] [color=#0000cd][b]boolean[/b][/color][color=#a52a2a][b];[/b][/color]
pro[color=#a52a2a][b]:[/b][/color] [color=#000000][b]string[/b][/color][color=#a52a2a][b];[/b][/color]
cont[color=#a52a2a][b]:[/b][/color] [color=#0000cd][b]byte[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]begin[/b][/color]
achou [color=#a52a2a][b]:=[/b][/color] [color=#0000cd][b]false[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Digite o nome que deseja procurar.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]readln[/color][color=#a52a2a][b]([/b][/color]pro[color=#a52a2a][b]);[/b][/color]
[color=#228b22]for[/color] cont [color=#a52a2a][b]:=[/b][/color] [color=#000000]1[/color] [color=#228b22]to[/color] numero_de_pessoas [color=#228b22]do[/color]
[color=#228b22]if[/color] pro [color=#a52a2a][b]=[/b][/color] dados[color=#a52a2a][b].[/b][/color]nome[color=#a52a2a][b][[/b][/color]cont[color=#a52a2a][b]][/b][/color] [color=#228b22]then[/color]
[color=#000000][b]begin[/b][/color]
achou [color=#a52a2a][b]:=[/b][/color] [color=#0000cd][b]true[/b][/color][color=#a52a2a][b];[/b][/color]
break[color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#228b22]if[/color] achou [color=#228b22]then[/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Pessoa cadastrada em nosso banco de dados.'[/color][color=#a52a2a][b])[/b][/color]
[color=#228b22]else[/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Desculpe. Pessoa nao cadastrada em nosso banco de dados.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#4682b4][i]//[/i][/color]
[color=#000000][b]procedure[/b][/color] [color=#228b22]proend[/color] [color=#a52a2a][b]([/b][/color][color=#000000][b]var[/b][/color] dados[color=#a52a2a][b]:[/b][/color]tdados[color=#a52a2a][b]);[/b][/color]
[color=#000000][b]var[/b][/color]
achou[color=#a52a2a][b]:[/b][/color] [color=#0000cd][b]boolean[/b][/color][color=#a52a2a][b];[/b][/color]
pro[color=#a52a2a][b]:[/b][/color] [color=#000000][b]string[/b][/color][color=#a52a2a][b];[/b][/color]
cont[color=#a52a2a][b]:[/b][/color] [color=#0000cd][b]byte[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]begin[/b][/color]
achou [color=#a52a2a][b]:=[/b][/color] [color=#0000cd][b]false[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Digite o endereco da pessoa que deseja procurar.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]readln[/color][color=#a52a2a][b]([/b][/color]pro[color=#a52a2a][b]);[/b][/color]
[color=#228b22]for[/color] cont [color=#a52a2a][b]:=[/b][/color] [color=#000000]1[/color] [color=#228b22]to[/color] numero_de_pessoas [color=#228b22]do[/color]
[color=#228b22]if[/color] pro [color=#a52a2a][b]=[/b][/color] dados[color=#a52a2a][b].[/b][/color]endo[color=#a52a2a][b][[/b][/color]cont[color=#a52a2a][b]][/b][/color] [color=#228b22]then[/color]
[color=#000000][b]begin[/b][/color]
achou [color=#a52a2a][b]:=[/b][/color] [color=#0000cd][b]true[/b][/color][color=#a52a2a][b];[/b][/color]
break[color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#228b22]if[/color] achou [color=#228b22]then[/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Pessoa cadastrada em nosso banco de dados.'[/color][color=#a52a2a][b])[/b][/color]
[color=#228b22]else[/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Desculpe. Pessoa nao cadastrada em nosso banco de dados.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#4682b4][i]//[/i][/color]
[color=#000000][b]procedure[/b][/color] [color=#228b22]se[/color][color=#a52a2a][b]([/b][/color]dados[color=#a52a2a][b]:[/b][/color] tdados[color=#a52a2a][b]);[/b][/color]
[color=#000000][b]var[/b][/color]
op1[color=#a52a2a][b],[/b][/color] op2[color=#a52a2a][b],[/b][/color] op3[color=#a52a2a][b]:[/b][/color] [color=#0000cd][b]char[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]begin[/b][/color]
[color=#228b22]repeat[/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Deseja pesquisar alguma pessoa em nosso banco de dados [S/N]?'[/color][color=#a52a2a][b]);[/b][/color]
op1 [color=#a52a2a][b]:=[/b][/color] readkey[color=#a52a2a][b];[/b][/color]
writeln[color=#a52a2a][b];[/b][/color]
[color=#000000][b]case[/b][/color] [color=#228b22]upcase[/color][color=#a52a2a][b]([/b][/color]op1[color=#a52a2a][b])[/b][/color] [color=#000000][b]of[/b][/color]
[color=#ff4500]'N'[/color][color=#a52a2a][b]:[/b][/color]
[color=#000000][b]begin[/b][/color]
clrscr[color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Encerrando...'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]delay[/color][color=#a52a2a][b]([/b][/color][color=#000000]1500[/color][color=#a52a2a][b]);[/b][/color]
halt[color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#ff4500]'S'[/color][color=#a52a2a][b]:[/b][/color]
[color=#000000][b]begin[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Deseja procurar por nome ou endereco [N/E]?'[/color][color=#a52a2a][b]);[/b][/color]
op2 [color=#a52a2a][b]:=[/b][/color] readkey[color=#a52a2a][b];[/b][/color]
[color=#000000][b]case[/b][/color] [color=#228b22]upcase[/color][color=#a52a2a][b]([/b][/color]op2[color=#a52a2a][b])[/b][/color] [color=#000000][b]of[/b][/color]
[color=#ff4500]'N'[/color][color=#a52a2a][b]:[/b][/color]
[color=#228b22]pronome[/color][color=#a52a2a][b]([/b][/color]dados[color=#a52a2a][b]);[/b][/color]
[color=#ff4500]'E'[/color][color=#a52a2a][b]:[/b][/color]
[color=#228b22]proend[/color][color=#a52a2a][b]([/b][/color]dados[color=#a52a2a][b]);[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#228b22]until[/color] [color=#228b22]upcase[/color][color=#a52a2a][b]([/b][/color]op1[color=#a52a2a][b]) =[/b][/color] [color=#ff4500]'N'[/color][color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Deseja sair da busca [S/N]?'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]repeat[/color]
op3 [color=#a52a2a][b]:=[/b][/color] readkey[color=#a52a2a][b];[/b][/color]
[color=#228b22]until[/color] [color=#228b22]upcase[/color][color=#a52a2a][b]([/b][/color]op3[color=#a52a2a][b])[/b][/color] [color=#000000][b]in[/b][/color] [color=#a52a2a][b][[/b][/color][color=#ff4500]'S'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'N'[/color][color=#a52a2a][b]];[/b][/color]
[color=#000000][b]case[/b][/color] [color=#228b22]upcase[/color][color=#a52a2a][b]([/b][/color]op3[color=#a52a2a][b])[/b][/color] [color=#000000][b]of[/b][/color]
[color=#ff4500]'S'[/color][color=#a52a2a][b]:[/b][/color]
exit[color=#a52a2a][b];[/b][/color]
[color=#ff4500]'N'[/color][color=#a52a2a][b]:[/b][/color]
[color=#228b22]se[/color][color=#a52a2a][b]([/b][/color]dados[color=#a52a2a][b]);[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#4682b4][i]//[/i][/color]
[color=#000000][b]procedure[/b][/color] [color=#228b22]cadastro[/color] [color=#a52a2a][b]([/b][/color][color=#000000][b]var[/b][/color] dados[color=#a52a2a][b]:[/b][/color] tdados[color=#a52a2a][b]);[/b][/color]
[color=#000000][b]var[/b][/color]
i[color=#a52a2a][b]:[/b][/color] [color=#0000cd][b]byte[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]begin[/b][/color]
[color=#228b22]for[/color] i [color=#a52a2a][b]:=[/b][/color] [color=#000000]1[/color] [color=#228b22]to[/color] numero_de_pessoas [color=#228b22]do[/color]
[color=#228b22]with[/color] dados [color=#228b22]do[/color]
[color=#000000][b]begin[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Pessoa '[/color][color=#a52a2a][b],[/b][/color] i[color=#a52a2a][b]:[/b][/color][color=#000000]0[/color][color=#a52a2a][b]);[/b][/color]
writeln[color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Digite o nome da pessoa pagante.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]readln[/color][color=#a52a2a][b]([/b][/color]nome[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b]]);[/b][/color]
writeln[color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Digite o nome da rua da pessoa.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]readln[/color][color=#a52a2a][b]([/b][/color]endo[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b]]);[/b][/color]
writeln[color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Digite o preco de cada quilometro percorrido.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]readln[/color][color=#a52a2a][b]([/b][/color]kmp[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b]]);[/b][/color]
writeln[color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Digite quantos quilometros serao percorridos.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]readln[/color][color=#a52a2a][b]([/b][/color]kmd[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b]]);[/b][/color]
writeln[color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Digite quantos passageiros serao levados.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]readln[/color][color=#a52a2a][b]([/b][/color]quantp[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b]]);[/b][/color]
writeln[color=#a52a2a][b];[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Digite a hora atual.'[/color][color=#a52a2a][b]);[/b][/color]
[color=#228b22]readln[/color][color=#a52a2a][b]([/b][/color]hora[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b]]);[/b][/color]
clrscr[color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#4682b4][i]//[/i][/color]
[color=#000000][b]begin[/b][/color]
[color=#228b22]cadastro[/color][color=#a52a2a][b]([/b][/color]v_dados[color=#a52a2a][b]);[/b][/color]
[color=#228b22]se[/color][color=#a52a2a][b]([/b][/color]v_dados[color=#a52a2a][b]);[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b].[/b][/color]

[color=#000000][b]Program[/b][/color] teste[color=#a52a2a][b];[/b][/color]

Mas, para "aperfeiçoar", você poderia:

• Permitir que o usuário escolha o número de pessoas;
  
• Recusar cadastros repetidos;
  
• Apresentar a posição e os outros dados da pessoa ao fazer uma busca;
  
• Adicionar opções para a alteração e exclusão do cadastro.
  

Faça como quiser (estou apenas mostrando sugestões) e poste o código novamente.

[kira911]

Muito obrigado pessoal. Moderadores duvida resolvida.

[Mog.Lucas]

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