Programa para calcular postes

[sssmickey]

Agradeço dez de já a quem ajudar........

segue anexo o programa meu até agora.

 

 

Program Pzim ;
var
tamanho_rua,numero_imovel:real;
quantidade_industria,numero_localizacao_industria,menu,i,poste,distacia_imovel_transformador,distancia_imovel_poste:integer;
Begin
  i:=0;
  poste:=1;
distacia_imovel_transformador:=0;                                                                                                                       // os contadores sendo zerados
distancia_imovel_poste:=0;
writeln ('1) Inventario de material');
writeln ('2) Distância do ponto de alimentação');                                                                                                      // indica as opções do menu
read(menu);
clrscr;
//------------------------------------------------------------
case (menu) of
  
  1:
  begin
    writeln    ('                    Inventario de material');                                                                                                      // primeira opção de menu
    writeln    ('Tamanho de rua em metros');
    read(tamanho_rua);
    clrscr;
    
    //----------------------------------------------------------
    writeln('Digite 1) se tiver industrias');
    read(quantidade_industria);                                                                                                                               // indica a se tera industrias
    clrscr;
    
    //----------------------------------------------------------
    if(quantidade_industria>0) then
    begin
      writeln('Digite o numero de sua localização');                                                                                                 // indica onde esta localizado se tiver industria
      read(numero_localizacao_industria);
    end;
    
    //--------------------------------------------------------
    
    repeat                                                                                                                                   // repetição para imprimir os resultados de onde tera os potes e transformadores
                                                                                                                                             // quando a industria for menor que o contador
      if(i mod 75=0) and (i mod 225=0) and (numero_localizacao_industria<i) then
      begin
        writeln('Poste ',poste,' (',i,' Metros) - Transformador Normal');
        poste:=poste+1;
      end;
      
      //-----------------------------------------------------------
      
      if(i mod 75=0) and (i mod 225=0) and (numero_localizacao_industria>i) then
      begin                                                                                                                                // repetição para imprimir os resultados de onde tera os potes e transformadores
        writeln('Poste ',poste,' (',i,' Metros) - Transformador Normal');                                                                  // quando a industria for maior que o contador
        poste:=poste+1;
      end; 
                
      
      //----------------------------------------------------------
      
      if (i mod 75=0) and (i mod 225<>0) then                                                                          // valida quando o poste não tem transformador
      begin
        writeln ('Poste ',poste,' (',i,' Metros) - Sem Transformador');
        poste:=poste+1;
      end;
      
      //----------------------------------------------------------
      
      if (i mod 75=0)and (i mod 225<>0) and (numero_localizacao_industria=i) then
      begin                                                                                                                                                      // valida quando o poste tiver transformador industrial
        writeln ('Poste ',poste,' ( ',i,' Metros) -Transformador Industrial');
        poste:=poste+1;
      end;
      
      //-----------------------------------------------------------
      i:=i+1;
    until(i=tamanho_rua+1);                                                                                                                 // aqui valida quando o contador (i) for = ao tamanho da rua para sair da repetição
  end;
  
  
  //--------------------------------------------------------------
  
  2:
  begin
    writeln    ('                    Inventario de material');                                                                           // indica a opção 2
    writeln    ('Tamanho de rua em metros');                                                                                             // e o tamanho da rua em  metros
    read(tamanho_rua);
    clrscr;
    
    //---------------------------------------------------------------
    
    writeln('Digite 1) se tiver industrias');
    read(quantidade_industria);
    clrscr;
    
    //---------------------------------------------------------------
    
    if(quantidade_industria>0) then
    begin
      writeln('Digite o numero de sua localização');
      read(numero_localizacao_industria);
      clrscr;
      
      //---------------------------------------------------------------
      
      writeln('Digite o numero do imovel');
      read(numero_imovel);
      clrscr;
      
      //---------------------------------------------------------------
      
      repeat                                                                                                                                   // repetição para imprimir os resultados de onde tera os potes e transformadores
        
        if(i mod 75=0) and (i mod 225=0) and (numero_localizacao_industria<>i) then
        begin
          poste:=poste+1;
          if (numero_imovel<=i) then
          distacia_imovel_transformador:=distacia_imovel_transformador+1;
        end;
        
        //----------------------------------------------------------
        
        if (i mod 75=0) and (i mod 225<>0) and (numero_localizacao_industria<>i) then                                                                          // valida quando o poste não tem transformador
        begin
          poste:=poste+1;
          if (numero_imovel<=i) then
          distancia_imovel_poste:=distancia_imovel_poste+1;
        end;
        
        //----------------------------------------------------------
        
        if (i mod 75=0)and (i mod 225<>0) and (numero_localizacao_industria=i) then
        begin                                                                                                                                                      // valida quando o poste tiver transformador industrial
          poste:=poste+1;
        end;
        
        //-----------------------------------------------------------
        i:=i+1;
      until(i=tamanho_rua+1);                                                                                                                                                // aqui valida quando o contador (i) for = ao tamanho da rua para sair da repetição
    end;
    writeln ('A distancia entre o imovel e o poste onde sera ligad a rede eletrica é ',distancia_imovel_poste);
    writeln ('A distancia entre o imovel e o transformador mas proximo ao imovel é ',distacia_imovel_transformador);
  end;
end;

End.

Prova-Distribuição de energia-sssmickey.pas