consulta
Publicado por DANIEL (1 intervención) el 18/11/2006 02:15:18
Hola me llamo Daniel, tengo 17 años y estoy empezando con turbo pascal 7.0 y tengo una duda: este programa cuenta la cantidad de palabras de una secuencia, hasta que se lee el carácter ‘!’. Las palabras están separadas por uno o más blancos.
Program uno:
Var
Cant: integer; car: char;
BEGIN
Cant: =0;
Read (car);
While (car <> ‘!’) do
Begin
While (car <> ‘ !’) and (car <> ‘’ ) do
Read (car);
While (car = ‘’) do read (car);
Cant:= cant + 1;
End;
Write( cant);
END.
La duda que tengo es donde debo escribir las secuencias que debo analizar. Por ejemplo
‘D’ ‘F’ ‘3’ ‘’ ‘J’ ‘H’ ‘!’
Program uno:
Var
Cant: integer; car: char;
BEGIN
Cant: =0;
Read (car);
While (car <> ‘!’) do
Begin
While (car <> ‘ !’) and (car <> ‘’ ) do
Read (car);
While (car = ‘’) do read (car);
Cant:= cant + 1;
End;
Write( cant);
END.
La duda que tengo es donde debo escribir las secuencias que debo analizar. Por ejemplo
‘D’ ‘F’ ‘3’ ‘’ ‘J’ ‘H’ ‘!’
Valora esta pregunta
0