• Lenguaje

    FreeBasic/QBasic

  • Descripción

    Una empresa de Bienes Raíces vende casas al contado y a crédito. En caso de crédito la venta depende del tiempo que demore en pagar. Para el pago al contado se realiza el descuento del 10% y para el pago a crédito se le aplica un interés de la siguiente manera:
    - Menor o igual a 1 año, interés 5%.
    - Mayor a 1 año y menor o igual de 2 años, interés 15%.
    - Mayor a 2 años, la empresa agrega 20% de interés.
    Procesar una venta de un bien inmueble.

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
Dim tipo_de_venta As Integer
Dim anios_para_pagar As Double, costo_de_la_casa As Double, descuento As Double, interes As Double, venta As Double
Input "Ingresa el valor de anios para pagar: ", anios_para_pagar
Input "Ingresa el valor de costo de la casa: ", costo_de_la_casa
descuento=0
interes=0
Print "Selecciona el valor de tipo de venta."
Print Chr(&H9) & "1.- Al contado"
Print Chr(&H9) & "2.- A cr" & Chr(&H82) & "dito"
Print Chr(&H9);
Do
    Input ": ", tipo_de_venta
    If tipo_de_venta<1 Or tipo_de_venta>2 Then
        Print "Valor incorrecto. Ingr" & Chr(&H82) & "salo nuevamente.";
    End If
Loop While tipo_de_venta<1 Or tipo_de_venta>2
If tipo_de_venta = 1 Then
    descuento=costo_de_la_casa*0.1
End If
If tipo_de_venta = 2 And anios_para_pagar<=1 Then
    interes=costo_de_la_casa*0.5
End If
If tipo_de_venta = 2 And anios_para_pagar>1 And anios_para_pagar<=2 Then
    interes=costo_de_la_casa*0.15
End If
If tipo_de_venta = 2 And anios_para_pagar>2 Then
    interes=costo_de_la_casa*0.2
End If
venta=costo_de_la_casa+interes-descuento
Print "Valor de descuento: " & descuento
Print "Valor de interes: " & interes
Print "Valor de venta: " & venta
Print
Shell ("pause")