Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » diagrama de flujos

Pascal/Turbo Pascal - diagrama de flujos

Volver
Nuevo Tema
<<>>
 
Vista:

diagrama de flujos

Publicado por bemm (5 intervenciones) el 22/11/2012 10:44:02
hola gente era que tenia una duda noce como realizar un diagrama de flujos i era para ver si me podiana yudar program DNICadenas;

uses crt;

const
borra=#8;
intro=#13;
nom='0123456789';
letra='TRWAGMYFPDXBNJZSQVHLCKE';

var
dni:string[10];
op:char;
p2:string[1];
con,posi,codi,a:integer;
aa:longint;


BEGIN
clrscr;
con:=12;
posi:=1;
dni:='';
clrscr;
write('Entre DNI : ');
repeat
gotoxy(con,1);
op:=readkey;
case (pos(op,nom)) of
1..10:begin
if (posi<=8) then begin
insert(op,dni,posi);
gotoxy(con,1);write(op);
inc(con);
inc(posi);
end;

end;
end;
case op of
borra:begin
posi:=posi-1;
if posi<1 then posi:=1;
delete(dni,posi,1);
con:=con-1;
if con<12 then con:=12;
gotoxy(con,1);write('');
end;
end;
until(posi>8)and(op=intro);
gotoxy(2,10);
val(dni,aa,codi);
if codi=0 then
a:=aa mod 23;
p2:=copy(letra,a+1,1);
gotoxy(2,10);
textcolor(0);textbackground(7);
write('NIF: ',dni,'-',p2);readln;
textcolor(7);textbackground(0);

END.


ste es el ejercicio ke necesito pasar a diagrama de flujo,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

diagrama de flujos

Publicado por ramon (2158 intervenciones) el 22/11/2012 22:25:45
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
{Es un poco fastidiado realizar gráficos en modo testo pero a ver si esto te sirve }
 
uses
     crt;
 const
 
 flujo : array[1..24] of string[24] = (
 '001111111111111111111100',
 '010000000000000000000010',
 '001111111111111111111100',
 '000000000000100000000000',
 '000001111111111111110000',
 '000010000000000000010000',
 '000011111111111111110000',
 '000000000000100000000000',
 '000111111111111111111000',
 '000100000000000000001000',
 '000111111111111111111000',
 '000000000000100000000000',
 '000000000010001000000000',
 '000000001000000010000000',
 '000111100000000000111100',
 '001000001000000010000010',
 '001000000100000100000010',
 '001000000000100000000010',
 '000111111111111111111100',
 '000000000000100000000000',
 '000001111111111111100000',
 '000010000000000000010000',
 '000001111111111111100000',
 '000000000000000000000000');
 
 var
    x, y : integer;
 begin
    clrscr;
  for y := 1 to 24 do
    for x := 1 to 24 do
    begin
       if flujo[y,x] = '1' then
       begin
       gotoxy(x,y);write('.');
       end;
     end;
     gotoxy(9,2);write('Inicio');
     gotoxy(9,6);write('Entrada');
     gotoxy(6,10);write('Comprovacion');
     gotoxy(9,15);write('Decision');
     gotoxy(10,22);write('Final');
   readln;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar