[ Foro de Pascal ]

Codigo pascal

Realizar un procedimiento que cargue caracteres(no mas de 50)desde el teclado en un arreglo. El fin de la carga se detecta por el ingreso de un caracter"*"


Si me pueden ayudar con ese ejercicio se los agradeceria

podrías aclarar mejor tu comentario ? así quizás pueda ayudarte

debes generar un array de tipo char e ingresar los datos con una estructura tipo while. Algo asi podria servirte



program caract;
type

 vec=array[1..50] of char;  //vector de caracteres
 
 procedure cargarVector(var v: vec; var dimL:integer);
 var
     carac: char;
 begin
    writeln('ingrese caracteres, finaliza con *');
    readln(carac);
    dimL+=1;
    while (dimL < 50) and (carac <> '*') do begin
        v[dimL]:= carac;
        readln(carac);
        dimL+=1;
     end;
  end;
/////programa principal//////
var
v:vec;
  dimL: integer;
begin
dimL:=0;
   
   cargarVector(v,dimL);



end.