0votos

Entidad bancaria en Other

por dario delgado hace 2 meses

Usando Free-Pascal. Lo mas simple posible sin usar colores, gotoxy,etc.

AYUDA PORFA Una entidad bancaria muy reconocida del país, requiere que se le desarrolle un Software que permita ingresar para n cantidad de clientes

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
76
77
78
79
80
81
82
83
84
85
{entidad bancaria} 
uses crt; 
const 
    INTERES = 0.05; 
type 
    cliente = record 
        nombre:string; 
        dinero:real; 
    end; 
var 
    i,opc:byte; 
    cuenta:array[1..100] of cliente; 
{--------------------------------------------------------} 
procedure crearCliente; 
var  
    flag:boolean; 
begin 
    flag:=true; 
    while flag do begin 
        writeln('Cliente # ',i); 
        write('Nombre y apellido del cliente [para terminar teclee *]: '); 
        readln(cuenta[i].nombre); 
        if cuenta[i].nombre = '*' then 
            flag:=false 
        else begin 
            write('Monto a depositar: '); 
            readln(cuenta[i].dinero); 
            inc(i); 
        end; 
    end;     
end; 
{--------------------------------------------------------} 
procedure verCuenta; 
var 
    nombre:string; 
    j:byte; 
    montoDisponible:real; 
begin 
    write('Escriba su nombre: '); 
    readln(nombre); 
    for j:=1 to i do begin 
        if nombre = cuenta[j].nombre then begin 
            montoDisponible:=cuenta[j].dinero; 
            writeln('Monto disponible: ',montoDisponible:4:2); 
        end; 
    end; 
end; 
{--------------------------------------------------------} 
procedure calcularInteres; 
var 
    nombre:string; 
    c:real; 
    n,j:integer; 
begin 
    write('Escriba su nombre: '); 
    readln(nombre); 
    write('Cantidad de anios: '); 
    readln(n); 
    for j:=1 to i do begin 
        if nombre = cuenta[j].nombre then begin 
            c:=cuenta[j].dinero*(1+INTERES)*n; 
            writeln('La cantidad depositada el cabo de ',n,' anios sera de ',c:4:2); 
        end; 
    end; 
end; 
{--------------------------------------------------------} 
begin 
    clrscr; 
    i:=1; 
    repeat 
        writeln('1. Crear cliente'); 
        writeln('2. Ver cuenta'); 
        writeln('3. Calcular interes'); 
        writeln('4. salir'); 
        write('Seleccione su opcion ==> '); 
        readln(opc); 
         
        case opc of  
            1: crearCliente; 
            2: verCuenta; 
            3: calcularInteres; 
        end; 
         
    until opc > 3; 
end. 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.