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:
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?.
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
0