Pascal/Turbo Pascal - Runtime

   
Vista:

Runtime

Publicado por Ramiro (1 intervención) el 24/04/2017 04:33:43
Hola, estoy resolviendo el siguiente ejercicio:

Se lee una secuencia de tipos de inmueble de una inmobiliaria. De cada inmueble se conoce el tipo,dirección y código (1-50000).
La lectura finaliza cuando se lee la dirección 'xxx'.
Al finalizar, se debe informar el porcentaje de inmuebles que tienen en al menos 2 dígitos pares en su código.

Para el siguiente ejercicio debo modularizar y utilizar un subrango.

Esto es lo que realice:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program Inmobiliaria;
uses Crt;
type
  cod = 1 .. 50000;
function alMenos(num:integer):integer;
  var
    n,digito,cant:integer;
  begin
  n:= num;
  cant:= 0;
  while (num <> 0) do Begin
    while (n <> 0) do Begin
      digito:= n MOD 10;
      if((digito MOD 2) = 0)then
        cant:= cant + 1;
      n:= n DIV 10;
  alMenos:=cant;
  end;
end;
end;
  var
    codigo:cod;
    tipo:string;
    direccion:string;
    cant,inmuebles:integer;
begin
  cant:=0;
  inmuebles:=0;
  read(direccion);
  while (direccion <> 'xxx') do begin
    read(tipo);
    read(codigo);
    if ((alMenos(codigo)) >= 2) then
      cant:= cant+1;
    inmuebles:=inmuebles + 1;
  end;
  writeln('El porcentaje de inmuebles con al menos dos digitos pares en su codigo es: ',(cant * 100) div inmuebles);
  readkey;
end.

El problema es que me arroja un error en tiempo de ejecución antes de poder asignarle un valor a código, ¿cuál podría ser el problema?.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder