Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Pascal/Turbo Pascal - diagrama de flujos

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

diagrama de flujos

Autor:bemm bemm_25@live.com (5 intervenciones)
Fecha: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,
Responder
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

diagrama de flujos

Autor:ramon (1537 intervenciones)
Fecha: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.
Comentar