Vinculación de 2 archivos en dev pascal
Publicado por Edsel (4 intervenciones) el 11/10/2019 03:33:56
Hola, en un trabajo practico que tengo que realizar un usuario debe ingresar su dni y buscar si existe dicho dni en el archivo de cuentas virtuales y es así que le muestre sus 5 tarjetas con sus respectivos saldos y por ultimo el saldo que tiene en efectivo por el contrario si no lo encuentra que le comunique al mismo que no posee una cuneta.
aquí les dejo lo que e echo hasta ahora
aquí les dejo lo que e echo hasta ahora
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
program tresb;
uses crt;
type
usuari=recorddni: string [8];
contra: string;apenom: string [30];
mail: string [40];
end;
cuentavirtual=record codban: integer;tipotar: char; //(D: Débito / C:Crédito)
saldotarjeta: real;end;
cuentavirtu=recorddni: string [8];
cuenvirt: array [1..5] of cuentavirtual;
saldobilletera: real;end;
cuenta= file of cuentavirtu;virtu= array [1..5] of cuentavirtual;
usu=file of usuari;var
cv:cuenta; c:cuentavirtu; vi:cuentavirtual; v:virtu; u:usuari; us:usu; ID:string; I:integer;function busca2(ID:integer):boolean;
begin
seek(cv,0);
repeat read(cv,c);
until (id=c.dni) or (eof(c));
if ID=c.dni then
busca2:=true
else
busca2:=false
end;
begin
assign(us,'c:\ayed\tp3\usuario.dat');
assign(c,'c:\ayed\tp3\cuentasvirtuales.dat');
reset(us);
reset(c);
writeln('ingrese nuevamente su dni');
readln(ID);
if Busca2 then
begin
for I:= 1 to 5 do
begin
writeln('banco',vi.codban);
writeln('tipo',vi.tipotar);
writeln('saldo de tarjeta',vi.saldotarjeta);
end;
end;
else
writeln('no se encontro cuenta virtual');
end.Valora esta pregunta
0