Hola, quisiera que alguien me pudiera ayudar en desarrollar una macros para este enunciado, tengo el desarrollo en pseudocódigo. :nailbiting::nailbiting::nailbiting:
La dirección de tránsito de la municipalidad de Antofagasta tiene la información de los autos existentes en la ciudad. Considerando que los datos se ingresan por pantalla y que cada registro tiene el siguiente formato:
Patente, marca, modelo, año, nombre _ dueño, precio, color, uso
Donde uso puede tener 2 valores, 1 ó 2. Si es 1 significa que es un auto particular, si es 2 es colectivo. Fin de datos: Patente = ‘AAA’. Se le pide que diseñe un algoritmo que entregue los siguientes resultados:
a) Cantidad de autos existentes en la ciudad.
b) Cantidad de autos de color amarillo.
c) Antigüedad media del parque automotriz antofagastino.
d) Valor de cada permiso de circulación. El valor del permiso de circulación corresponde al 5% del precio del auto. Considere que para los autos del año 1999 y posterior, se le debe agregar un 3% extra sobre el precio del auto (es decir un 8%).
e) Total de ingresos de la municipalidad por concepto de permisos de circulación.
f) Cantidad de autos que tiene Juan_Perez. g) Porcentaje de autos particulares.
Program Autos
Begin
CAC← 0 {Se inicializa el contador de autos colectivos}
CAA← 0 {Se inicializa el contador de autos amarillos}
ACA← 0 {Se inicializa el acumulador de años}
IN← 0 {Se inicializa el acumulador de ingresos}
CAJP← 0 {Se inicializa el contador de autos de Juan Perez}
CAP← 0 {Se inicializa el contador de autos particulares}
Read (PAT)
While (PAT <> ‘AAA’) do
Read (MAR, MOD, AÑO, ND, PRE, COL, USO)
If (USO = 1) then
CAP ← CAP + 1
Else
CAC ← CAC + 1
End if
If (COL = ‘Amarillo’) then
CAA ← CAA + 1
End if
ACA ← ACA + 1
If (AÑO >= 1999) then
VPC ← PRE * 0.08
Else
VPC ← PRE * 0.05
End if
Write (‘el valor del permiso de circulación es:’, VPC)
IN ← IN + VPC
If (ND = ‘Juan_Perez’) then
CAJP ← CAJP + 1
End if
Read (PAT)
End while
CTA ← CAP + CAC
Write (‘en Antofagasta hay:’, CTA, ‘autos’)
Write (‘en Antofagasta hay:’, CAA, ‘autos amarillos’)
If (CTA > 0) then
AM ← ACA / CTA
Else
AM ← 0
End if
Write (‘la antigüedad media es:’, AM, ‘años’)
Write (‘Los ingresos de la municipalidad son:’, IN, ‘pesos’)
Write (‘Juan_Perez tiene:’, CAJP, ‘autos’)
If (CTA > 0) then
PAP← (CAP / CTA)*100
Else
PAP← 0
End if
Write (‘el porcentaje de autos particulares es:’, PAP, ‘%’)
End
La dirección de tránsito de la municipalidad de Antofagasta tiene la información de los autos existentes en la ciudad. Considerando que los datos se ingresan por pantalla y que cada registro tiene el siguiente formato:
Patente, marca, modelo, año, nombre _ dueño, precio, color, uso
Donde uso puede tener 2 valores, 1 ó 2. Si es 1 significa que es un auto particular, si es 2 es colectivo. Fin de datos: Patente = ‘AAA’. Se le pide que diseñe un algoritmo que entregue los siguientes resultados:
a) Cantidad de autos existentes en la ciudad.
b) Cantidad de autos de color amarillo.
c) Antigüedad media del parque automotriz antofagastino.
d) Valor de cada permiso de circulación. El valor del permiso de circulación corresponde al 5% del precio del auto. Considere que para los autos del año 1999 y posterior, se le debe agregar un 3% extra sobre el precio del auto (es decir un 8%).
e) Total de ingresos de la municipalidad por concepto de permisos de circulación.
f) Cantidad de autos que tiene Juan_Perez. g) Porcentaje de autos particulares.
Program Autos
Begin
CAC← 0 {Se inicializa el contador de autos colectivos}
CAA← 0 {Se inicializa el contador de autos amarillos}
ACA← 0 {Se inicializa el acumulador de años}
IN← 0 {Se inicializa el acumulador de ingresos}
CAJP← 0 {Se inicializa el contador de autos de Juan Perez}
CAP← 0 {Se inicializa el contador de autos particulares}
Read (PAT)
While (PAT <> ‘AAA’) do
Read (MAR, MOD, AÑO, ND, PRE, COL, USO)
If (USO = 1) then
CAP ← CAP + 1
Else
CAC ← CAC + 1
End if
If (COL = ‘Amarillo’) then
CAA ← CAA + 1
End if
ACA ← ACA + 1
If (AÑO >= 1999) then
VPC ← PRE * 0.08
Else
VPC ← PRE * 0.05
End if
Write (‘el valor del permiso de circulación es:’, VPC)
IN ← IN + VPC
If (ND = ‘Juan_Perez’) then
CAJP ← CAJP + 1
End if
Read (PAT)
End while
CTA ← CAP + CAC
Write (‘en Antofagasta hay:’, CTA, ‘autos’)
Write (‘en Antofagasta hay:’, CAA, ‘autos amarillos’)
If (CTA > 0) then
AM ← ACA / CTA
Else
AM ← 0
End if
Write (‘la antigüedad media es:’, AM, ‘años’)
Write (‘Los ingresos de la municipalidad son:’, IN, ‘pesos’)
Write (‘Juan_Perez tiene:’, CAJP, ‘autos’)
If (CTA > 0) then
PAP← (CAP / CTA)*100
Else
PAP← 0
End if
Write (‘el porcentaje de autos particulares es:’, PAP, ‘%’)
End