[ Foro de Pascal ]

me podrian AYUDAR por favor

No se como hecer este problema

una empresa requiere hacer una compra de varias piezas de la misma clase a un fabricante de refacciones.  La empresa dependiendo del monto total de la compra decidira que hacer para pagar al fabricante. Si el monto total de la compra exede de 500,000 pesos la empresa tendra la capacidad de invertir de su propio dinero un 55% del monto de la compra, pedir prestado al banco un 30% y el resto lo pagará solicitado un crédito al fabricante.  Si el monto total de la compra exede de 500000 pesos  la empresa tendra la capacidad de invertir de su propio dinero un 70% y el restante 30% la pagará solicitado credito al fabricante. El fabricante cobra el concepto de interés un 20%sobre la cantidad que se le pague al crédito.

En primer lugar, no hace falta que repitas la pregunta 6 veces...

Y en segundo lugar, como la pregunta no es un "no entiendo algo" sino un "quiero que alguien programe por mí", la respuesta necesita más tiempo, porque no se puede responder desde un smartphone o un tablet, sino que hace falta tener delante un ordenador con un compilador de Pascal.

Mañana creo que podré responderte desde ordenador. Quizá alguien más lo haga antes.

Vamos con ello...

- Para avisar al usuario de que debe introducir el monto, deberás escribir en pantalla, usando "Write", como puedes ver aquí:

http://www.nachocabanes.com/pascal/cupas5/cupas00.php

El resultado sería

Write('Introduzca el monto: ');

- Para leer lo que introduce el usuario, deberás declarar una variable y emplear "ReadLn", como puedes leer en el apartado 1.4:

http://www.nachocabanes.com/pascal/cupas5/cupas01.php

Con eso, quedaría:

var
    monto: longint;
....
Write('Introduzca el monto: ');
ReadLn(monto);

La forma de realizar operaciones matemáticas, la tienes en el apartado 1.3:

http://www.nachocabanes.com/pascal/cupas5/cupas01.php

De modo que deberías hacer cosas como:

var
    inversion: longint;
....
inversion := monto * 55 div 100;

Y para comprobar condiciones debes usar la orden "if", que tienes en el apartado 2.1:

http://www.nachocabanes.com/pascal/cupas5/cupas02.php

Y escribirías cosas como

if monto > 500000 then
    begin
    ....
    inversion := monto * 55 div 100;
    ....
    end;

Sólo falta juntar esas 4 ideas para forma el programa completo. Tienes alguna errata, como que ambos casos hablas de que "si excede de 500.000 pesos", y supongo que uno de los dos casos debería ser "si no excede". El programa conjunto podría ser algo como:

program CalculoMonto;

var
    monto: longint;
    inversion: longint;
    prestamo: longint;
    credito: longint;
    interes: longint;

(* Cuerpo del programa *)
begin
    Write('Introduzca el monto: ');
    ReadLn(monto);
    if monto > 500000 then
        begin
        inversion := monto * 55 div 100;
        prestamo := monto * 30 div 100;
        credito := monto - inversion - prestamo;
        end
    else 
        begin
        inversion := monto * 70 div 100;
        credito := monto - inversion;
        end;
    interes := credito * 20 div 100;
    WriteLn('Inversion: ', inversion);
    WriteLn('Prestamo: ', prestamo);
    WriteLn('Credito: ', credito);
    WriteLn('Interés: ', interes);
end.

que daría un resultado como

Introduzca el monto: 23000
Inversion: 16100
Prestamo: 0
Credito: 6900
Interés: 1380