Pascal/Turbo Pascal - duda

 
Vista:

duda

Publicado por juan (2 intervenciones) el 10/05/2007 16:53:49
HOLA:
Me pueden ayudar con este ejercicio

Realizar un módulo que lea una secuencia de caracteres blancos. Cuando viene un blanco no debe leer más y devuelve el último carácter leído.
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

RE:duda

Publicado por micropais (209 intervenciones) el 10/05/2007 21:00:54
Me remito a este mismo foro usa el buscador , mira a ver si te vale esto:

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=69&texto=Pascal/Turbo+Pascal&n1=400106&n2=0&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0
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

RE:duda

Publicado por Carlos Guimaraenz (265 intervenciones) el 10/05/2007 21:07:19
function Leer : char;
var
aux,car : char;
begin
aux:='#'; {caracter basura}
repeat
car:=aux;
readln(aux);
until(aux = ' '); {hasta leer el caracter blanco}
Leer:=car;
end;

begin
write('La letra leida es: ',Leer);
readln;
end.

Hola Juan, lo que hace este programa es llamar a la función Leer, que repite la lectura de caracteres hasta leer un blanco. Si lo primero que se lee es un blanco, entonces devuelve '#', caso contrario devuelve el último caracter leido.

Saludos!
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