Programación General > Pascal

 Descargar El Buffer Del Teclado

<< < (3/3)

Enko:

--- Citar ---El trabajo es entre 2, pero mi compañero es el primer año q da programacion y le cuesta. Yo se algo mas porque vengo del modulo y di C que se le parece mucho a Pascal

--- Fin de la cita ---
Es que  la forma des escribir de las palabras reservadas varia(por ej: FOR, For)

--- Citar ---y Gracias por las explicaciones

--- Fin de la cita ---
De nada :hola:

Ferdinandum:
Sigo teniendo problemas con el read



--- Citar ---Procedure OPCION1 ( var matrix1:TMatriz1; var matrix2:TMatriz2 );
   
   
   var
  cad:string; (* Guarda los dos caracteres del digrafo *)
  c:char; (*Control de errores*) 
   
   Begin
  repeat
     

     repeat
    c:='n';
    limpiar; (* - 01 - *)
    writeln ('Introduce el diagrafo ');
    [/B]readln(cad);
    writeln(cad);
    IF length(cad)>2 then
       Begin
       writeln('El digrafo introducido tiene mas de 2 caracteres');
       writeln('Quieres q el programa te coja solo los 2 primeros');
       c:=readkey;
   
       End;
   
    IF (length(cad)<3) or ( (c='s') or (c='S') ) then
       Begin
       IF (cad[1]='ñ') or (cad[2]='Ñ') then
         Begin
      Limpiar;
      writeln('El caracter Ñ se trasforma en -ny- entonces ya forma un digrafo');
      writeln('¿Esta deacuerdo de que el digrafo a buscar sea -ny-  S/N ? ');     
      c:=readkey;
      cad:='ny';
      End
     
       ELSE
      Begin
      cad:= CAMBIO(cad[1]);   (* - 02 - *)
      cad:= cad + CAMBIO(Cad[2]);  (* - 02 - *)
      c:='S';
      End;
       End;
   
     until (c='s') or (c='S');

         
     
     limpiar;
     writeln ( cad,': ',matrix1[cad[1],cad[2]],' de:',CONT_DIGRAFOS(matrix1) );
     writeln (cad[1],': ',matrix2[cad[1],1]);
     writeln (cad[2],': ',matrix2[cad[2],1]);
     
     writeln('--- PuLsa una tecla para continuar ---');
     c:=readkey;
     repeat
    limpiar;
    writeln('Desea introducir otro digrafo S/N');
    read©;     
     until (c='n') or (c='s');     
  until(c='n');
   End;

--- Fin de la cita ---


El problema esta el la 4º linea  del 2º repeat (deberia estar en negrita y tabulado pero no se q pasa, estoy gafado hoy con la programacion ,:( )

La primera vez q entra en el bucle me lo hace bien, pero la segunda ya no me pide introducir algo, sino q lo vuelve a cojer de lo q estaba almacenado en el buffer

Necesito almacenar dos caracteres por lo q con el readkey no puedo,Q se le puede hacer?

Navegación

[0] Índice de Mensajes

[*] Página Anterior