| silentalito |  |
|
2010-01-30 20:27 - Respuestas: 0 - Tema nº: 2657041
Windows 7 .
Hola mis gratos saludos a quien pueda ayudarme con este pequeñisimo ejercicio de turbo pascal...
ejercicio
una empresa de bienes raice ofrece casa de interes social, bajo las siguientes condiciones. si los ingresos del comprador son menores de 2000bs.f. la reservacion sera del 15% del costo de la casa y el resto se distribuira en pagos mensuales, a pagar en 10 año. si los ingresos del comprador son mayores de 8000bs.f la reservacion sera del 30% del costo de la casa y el resto se distribuira en pagos mensuales a pagar en 7 años.
la empresa quiere obtener cuanto debe pagar un comprador por concepto de reservacion y cuanto por cada pago parcial...
me pieden que haga un arreglo dentro de registro yo he hecho muy poco a continuacion les mostrare que he realizado
program venta_de_casa;
uses
crt;
type
datos=record
ced:string[10];
nomb:string[25];
sueld:real;
end;
persona=array[1..4] of datos
var
person:persona;
i:integer;
begin
clrscr;
for i:=1 to n do
begin
gotoxy(03,02);writeln('cedula');
gotoxy(03,04);writeln('nombre');
gotoxy(03,06);writeln('sueldo');
gotoxy(12,02);readln(person.ced);
gotoxy(12,04);readln(person.nomb);
gotoxy(12,06);readln(person.sueldo);
end;
end.
esto es lo que llevo hecho agradeceria mucho su ayuda de verdad...
| |
|
|
