Ayuda en una parte del programa
Publicado por simon (3 intervenciones) el 01/11/2016 14:35:04
Bueno hice este programa para la escuela y hace tiempo no tenia programación en la escuela y olvide como terminarlo, podrían ayudarme? Solo me falta la opción de consultar saldo.
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
uses crt;
const
clave='9999';
var opcion:byte;password:string;saldo:integer;{---------------------}
procedure extraer;
var
retiro:integer;begin
clrscr;
gotoxy(22,3);writeln('Su saldo actual= ',saldo);
gotoxy(22,5);writeln('Ingrese el monto a retirar: ');
readln(retiro);
if retiro > saldo thenwriteln('Saldo insificiente')
else begin
gotoxy(20,8);writeln('La opcion se realizo con exito');
readkey;
saldo:=saldo-retiro;
clrscr;
end;
end;
{-------------------------}
procedure depositar;
var
deposito:integer;begin
clrscr;
gotoxy(25,3);writeln('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 al cajero');
gotoxy(25,12);
write('Ingrese su clave de usuario: ');
readln(password);
if clave = password then beginclrscr;
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)writeln('Escoja una 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 pregunta
0