Pascal/Turbo Pascal - diagrama de flujos

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,

diagrama de flujos

Publicado por ramon (2158 intervenciones) el 22/11/2012 22:25:45

{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.