[Resolvido] programa calculo

[nand 0]

ola pessoal, pesso que me ajudem. Sou novo neste campo de progrmação (iniciando). Estou com um problema. Não consigo fazer funcinar o códogo seguinte no dev-pascal, mas no pascalzinho ele funciona. No dev-pascal eaaprecem ainda 3 erros que não sei como eliminar. Obrigado. (programa de minha altoria.)

Program troco ;
 
VAR
vet : array [1..20] of integer;
troco, tot_vend, valor_din, Prod_valor, vendas : integer;
cod , i , totprod : integer;

 Begin
 writeln( '');
 writeln( '         BALAÇO E FUXO DE CAIXA PARA ESTABELECIMENTO COMERCIAL');
 writeln( '         -----------------------------------------------------');
 writeln( '         ');


     cod := 0;
     tot_vend := 0;
      
    
    write('QUAL É O VALOR EM DESEMBOLSADO PELO CLIENTE? ') ;
    read(  valor_din ) ;  
    
    while (  valor_din   <> 0 ) do
  
  BEGIN
     write('QUAL É O VOLOR DO PRODUTO? ' ) ;
     read(Prod_valor) ;
   	
     write('QUAL É O CÓDIGO DO PRODUTO? ') ;
     read(cod);   
     
      IF  (Prod_valor)>(valor_din) THEN
      BEGIN
     writeln( ' ');
     writeln( '----------------------------------------------------------------------------');
        writeln( '          CUIDADO! O VALOR DO PRODUTO ESTA ACIMA DO VALOR EM DINHEIRO') ; 
                       
     writeln(  ' ');
     writeln( '');
     write( '          QUAL É O VALOR DESEMBOLSADO PELO CLIENTE? ') ;
                         read(  valor_din ) ;
	write('          QUAL É O VOLOR DO PRODUTO? ' ) ;
                        read(Prod_valor) ;
     write('          QUAL É O CÓDIGO DO PRODUTO? ') ;
                         read(cod);
     writeln( '---------------------------------------------------------------------------- ');       
	END;
	
      IF  (Prod_valor)=(0) THEN
      BEGIN
     writeln( ' ');
     writeln( '----------------------------------------------------------------------------');
        writeln( '          CUIDADO! O VALOR DO PRODUTO NÃO PODE SER ZERO. REDIGITE.') ; 
                       
     writeln(  ' ');
     writeln( '');
     write( '            QUAL É O VALOR DESEMBOLSADO PELO CLIENTE? ') ;
                         read(  valor_din ) ;
	write('             QUAL É O VOLOR DO PRODUTO? ' ) ;
                         read(Prod_valor) ;
	write('             QUAL É O CÓDIGO DO PRODUTO? ') ;
                         read(cod);
     writeln( '---------------------------------------------------------------------------- ');       
	END;
	

	
	i:=i+1;
	vet[i]:=cod;
	
	troco := valor_din - prod_valor ;
     vendas:=prod_valor;
     totprod:= totprod+1;
     
     
    
     write('TROCO AO CLIENTE R$ ',troco);
    

  
     tot_vend:=tot_vend + vendas;
     writeln(  ' ');
     writeln(  ' ');
     writeln(  ' ');
     writeln(  ' ');
     
  write( 'QUAL É O VALOR DESEMBOLSADO PELO CLIENTE? ') ;
  read(  valor_din ) ;  	
   
     
  END;
  
     writeln(  ' ');
     writeln(  ' ');
     writeln(  ' ');	
  writeln( '          --------------------------------------------------------');
  writeln(  '          O Total de vendas do dia .............R$ ',tot_vend:2:2  );
  writeln(  '          O Total de produtos vendidos ........... ',totprod ) ;
  writeln(  '    ' ) ;
  writeln( '           Códigos dos proutos vendidos'); 
 
  writeln(  '    ' ) ;
  for i:=1 to 20 do
  writeln('            código do produto.............',vet[i]:2:0);
  writeln(' ');          
  writeln('........................Fim do programa.............');          
  readln ();
 End.

[Mário Monteiro 179]

quais os erros?

[nand 0]

os erros do programa a qual pedia ajuda são:

 

 

7 / 1 caixa.pas Error: Duplicate identifier TROCO

7 / 1 caixa.pas Hint: Identifier already defined in caixa.pas at line 4

7 / 1 caixa.pas Error: Duplicate identifier TROCO

7 / 1 caixa.pas Hint: Identifier already defined in caixa.pas at line 4

68 / 9 caixa.pas Fatal: Syntax error, . expected but := found

 

 

E obrigado aos enteresados. Valeu

[Chrnos 30]

Vamos tentar ajudar... o primeiro erro é este....

 

Error: Duplicate identifier TROCO
Hint: Identifier already defined in caixa.pas at line 4

Traduzindo em miúdos:

 

Erro: Identificador duplicado - TROCO
Dica: Identificador já definido em caixa.pas na linha 4.

O segundo erro:

 

Fatal: Syntax error, . expected but := found

Traduzindo:

 

Erro fatal: erro de sintaxe: esperado . mas encontrado :=

Com base nisto, duas perguntas: este programa usa alguma unit além deste código que está aqui? Se sim, você deve estar declarando duas variáveis globais com o mesmo nome (Troco) em units diferentes. Revise isso. Segunda pergunta: você verificou se todos os seus begin - end estão corretamente fechados? Não faltou algum ';' em algum lugar do código? Dê uma revisada no seu código e qualquer coisa poste de novo.

 

[]'s

[nand 0]

recebi ajuda valiosa no programa calculo. Ele agora funciona. Vale pessoal pela ajuda de você!!!!!!!!