REPARTO PROPORCIONAL DE ESPACIOS COMUNES

cls

data 10 'numero de viviendas

data 60.93,50.33,73.69,92.38,98.15,58.04,73.69,64.35,67.63,58.04     'sup. utiles de cada viv

data 89.87                                 'sup. construida de los espacios comunes.

read ndv

for n=1 to ndv

  read su(n)

  tssc=tssc+su(n)                       'total superficie sin comunes

next n

read scomun

coef = scomun/tssc                    'coeficiente de reparto de las superficies comunes

print using "###,.##";scomun

print using "#,.####"; coef

For n=1 to ndv

  ppsc(n)=coef*su(n)                'sup. comun que corresponde a cada vivienda

  scc(n)=su(n)+ppsc(n)             'sup total de cada vivienda, incluida la s. comun

  print using "##,.## ##,.## ##,.##";su(n);ppsc(n);scc(n)

  tscc=tscc+scc(n)                   ' se van sumando las superficies obtenidas antes con comunes

  sco=sco+ppsc(n)                   ' idem de las comunes

next n

print using "##,.## ##,.## ##,.##";tssc+scomun;sco;tscc

' este pequeño programa esta escrito con la sintaxis de Turbobasic, es facilmente adaptable a otras versiones de Basic mas modernos sin mas que modificar la instruccion "print" que suele variar en cada uno.