Pascal/Turbo Pascal - EJERCICIO

   
Vista:

EJERCICIO

Publicado por JUAN SUAREZ (1 intervención) el 10/04/2014 02:47:10
BUENAS NOCHES

MI NOMBRE ES JUAN SUAREZ ES PARA PREGUNTARLES SOBRE SI ME PODRIAN COLABORAR EN ESTE EJERCICIO DE TURBO PASCAL.

La siguiente frase "Si yo sé que tú eres, y tú sabes que yo soy, quién va a saber quién soy yo cuando tu no estés" debe ser una cadena constante en la solución que implementes utilizando IDE Turbo Pascal. A partir de ella, debes:
Imprimir cuantos espacios en blanco tiene.
Convertir a mayúscula cada letra en el texto que sea igual a la que inicia la frase e imprimirla al final.
Sustituir cada letra que se encuentra con tilde por el carácter asterisco (*). Imprima para comprobar el resultado.
A esta últimas modificación de la frase, elimínele todo carácter que sea igual a "y". Imprima para comprobar el resultado.
En la frase inicial, insértele el carácter "%" cada 7 posiciones a partir del inicio. Imprima para comprobar el resultado.

LES AGRADEZCO MUCHISIMO SI ME COLABORARAN.
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

EJERCICIO

Publicado por ramon (2072 intervenciones) el 15/04/2014 11:36:09
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
{Espero esto te ayude ten en cuenta que los tildes en el teclado en ingles no los reconoce pascal}
 
 program frase;
  uses
     crt;
  const
     texto : string = (
  'Si yo se que tu eres, y tu sabes que yo soy, quien' +
             ' va a saber quien soy yo cuando tu no estes');
 
   var
 
     til, rep, i, t : integer;
     letra : char;
     tempo : string;
 
   begin
      tempo := copy(texto,1,length(texto));
      clrscr;
      t := 1;
      rep := 0;
      til := 0;
      letra := texto[1];
      for i := 1 to length(texto) do
      begin
          if texto[i] = ' ' then
          t := t + 1;
          if upcase(texto[i + 1]) = upcase(letra) then
          begin
          rep := rep + 1;
          texto[i + 1] := upcase(texto[i + 1]);
          end;
          if texto[i] in[#138,#160..#163] then
          begin
          til := til + 1;
          texto[i] := '*';
          end;
          if texto[i] = 'y' then
          texto[i] := '2';
      end;
 
 
    writeln(tempo);
    writeln('Espacios En Blanco = ',t - 1);
    write('Letras Como La Primera = ',rep,' : ');
    for i := 1 to rep do
    write(letra);
    for i := 1 to til do
    write('*');
    for i := 1 to length(texto) do
    if texto[i] = '2' then
    begin
       delete(texto,i,1);
    end;
    writeln;
    t := 1;
    for i := 1 to length(tempo) do
    begin
       if t = 7 then
       begin
          insert('%',tempo,i);
          t := 0;
       end;
       t := t + 1;
    end;
    writeln(tempo);
    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