Pascal/Turbo Pascal - Cajero automatico URGENTE

Val: 4

Cajero automatico URGENTE

Publicado por simon (3 intervenciones) el 23/08/2016 17:48:33

En la escuela me dieron para hacer esto, pero no logro hacerlo, y tengo que entregarlo en 3 días, me pide las siguiente cosas:
a. Debe iniciar con 10000 pesos en la cuenta
b. Debe solicitar y definir si la clave ingresada es correcta
c. Debe desplegar un menú de opciones (extraer dinero, depositar dinero, transferir dinero, consultar saldo)
d. Dada la opción seleccionada por el usuario debe ejecutar la operación
e. Debe preguntar al usuario si desea ver el resumen de la operación (el valor en pesos que queda en la cuenta luego de ejecutar la operación)
f. Debe preguntar al usuario si desea realizar otra operación

Ayuda por favor!!!

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Cajero automatico URGENTE

Publicado por dario (42 intervenciones) el 27/08/2016 08:04:56

Te dejo el ejercicio avanzado al 50%, ya tu te encargas de terminarlo. Solo falta la opcion "Transferir dinero" y "Consultar saldo"

uses crt;

const

	clave = '9999';

var

	opcion:byte;

	password:string;

	saldo:integer;

{------------------------------------------}

procedure extraer;

var

	retiro:integer;

begin

	clrscr;

	gotoxy(25,3);writeln('Su saldo actual = ',saldo);

	gotoxy(22,5);write('Ingrese el monto a retirar: ');

	readln(retiro);

	if retiro > saldo then

		writeln('Saldo insuficiente')

	else begin

		gotoxy(20,8);writeln('La operacion se realizo con exito');

		readkey;

		saldo:=saldo-retiro;

		clrscr;

	end;

end;

{---------------------------------------------}

procedure depositar;

var

	deposito:integer;

begin

	clrscr;

	gotoxy(25,3);writeln('Su saldo actual = ',saldo);

	gotoxy(22,5);write('Ingrese el monto a depositar: ');

	readln(deposito);

	gotoxy(20,8);writeln('La operacion se realizo con exito');

	readkey;

	saldo:=saldo+deposito;

	clrscr;

end;

{-----------------------------------------------------}

begin

	clrscr;

	saldo:=10000;

    repeat

		gotoxy(25,10);

		writeln('Bienvenido a Banco Nuevo Mundo');

		gotoxy(25,12);

		write('Ingrese su clave de usuario: ');

		readln(password);

		if clave = password then begin

			clrscr;

			repeat

				gotoxy(30,2);writeln('Menu Principal');

				gotoxy(30,3);writeln('--------------');

				gotoxy(28,6);writeln('1. Extraer dinero');

				gotoxy(28,8);writeln('2. Depositar dinero');

				gotoxy(28,10);writeln('3. Transferir dinero:');

				gotoxy(28,12);writeln('4. Consulta saldo');

				gotoxy(28,14);writeln('5. Salir del sistema');

				gotoxy(28,17);write('Escoja su opcion ==> ');

				readln(opcion);

				case opcion of

					1:	extraer;

					2:	depositar;

				end;

			until opcion = 5;

end

		else begin

			gotoxy(WhereY,12);

			clreol;

			gotoxy(30,15);

			textcolor(7);writeln('Clave incorrecta');

		end;

	until password = '9999'

end.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar