Pascal/Turbo Pascal - Contar caracteres terminados en punto

   
Vista:

Contar caracteres terminados en punto

Publicado por Nahuel (2 intervenciones) el 08/04/2014 01:57:10
Hola gente estoy aprendiendo a programar en FreePascal y no puedo hacer que cuente las letras de una frase terminadas en punto, solamente funciona el programa cuando escribo el "." solo.
Lo que tengo es esto

1
2
3
4
5
6
7
8
9
10
program caracteres;
var total: integar; car:char;
begin
total:=0
repeat
readln (car);
total:=total+1;
until (car='.');
writeln (total);
end.
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

Contar caracteres terminados en punto

Publicado por ramon (2072 intervenciones) el 08/04/2014 11:09:43
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
{Esto seria tu forma arreglada un poco}
 
program caracteres;
var
   total: integar;
   car:string[80];
begin
   total:=0;
  while car <> '.' do
begin
   readln (car);
 end;
  total := length(car);
writeln (total);
end.
 
 
{Esta la aria yo}
 
program cuenta;
uses
    crt;
var
   total : integer;
   texto : string[80];
   i : integer;
   tecla : char;
 begin
     total := 0;
     i := 1;
    repeat
         tecla := readkey;
         texto[i] := tecla;
         texto[0] := chr(i);
         i := i + 1;
    until tecla = '.';
    total := i - 1;
     writeln('   El texto es : ',texto);
      writeln('  Caracteres Totales ',total);
      readkey;
end.
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