Pascal/Turbo Pascal - ejercicios de pascal sencillos, por favor ayudenme , me estoy iniciando y no se hacerlos .gracias!

   
Vista:

ejercicios de pascal sencillos, por favor ayudenme , me estoy iniciando y no se hacerlos .gracias!

Publicado por jesus (2 intervenciones) el 03/01/2013 16:49:49
1 Lee una secuencia de enteros terminada en 0 y obtén el número de veces que un número
par aparece en posición par.
Ejemplo: 3 5 4 6 7 8 3 4 0
devolverá 3 (en concreto, los valores 6, 8 y 4)


2 Escribe un programa que lea una palabra P de N letras sobre un vector y
construya una matriz como la del ejemplo. Muestra la matriz en la pantalla.
P PELOTA

P E L O T A
E L O T A P
L O T A P E
O T A P E L
T A P E L O
A P E L O T
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

ejercicios de pascal sencillos, por favor ayudenme , me estoy iniciando y no se hacerlos .gracias!

Publicado por ramon (2072 intervenciones) el 03/01/2013 20:20:15
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
{Esto te ayudara}
 
 program mas2;
  uses
    crt;
  var
    entra : string[80];
    tu, n : integer;
    datos : array[1..80] of integer;
    total : integer;
 
   procedure entradas;
   var
     tec : char;
     c : integer;
    begin
       gotoxy(5,2);write('Entre Cadena De Numeros : ');
       c := 1;
   repeat
      tec := readkey;
      if tec in['1'..'9'] then
      begin
        entra[c] := tec;
        entra[0] := chr(c);
        gotoxy(29 + c,2);write(entra[c]);
        c := c + 1;
        if c > 80 then
        c := 80;
      end;
      if tec = #8 then
      begin
          c := c - 1;
          if c < 1 then
          c := 1;
          entra[c] := ' ';
          entra[0] := chr(c);
          gotoxy(29 + c,2);write(entra[c]);
      end;
      until tec = '0';
      total := c - 1;
    end;
 
   procedure presenta;
   begin
      entradas;
      clrscr;
      writeln;
      writeln(' La Entrada Es : ',entra);
      tu := 0;
      for n := 1 to total do
      datos[n] := ord(entra[n]) - 48;
      for n := 1 to total do
      begin
         if (datos[n] mod 2 = 0) and (n mod 2 = 0) then
         begin
         write('  ',datos[n]);
         tu := tu + 1;
         end;
      end;
      writeln;
      writeln('  Encontrados = ',tu);
   end;
 
   procedure entradafrase;
   var
     tt : char;
     b : integer;
   begin
      b := 1;
      fillchar(entra,81,' ');
      entra[0] := chr(80);
      gotoxy(5,2);write('Entre Frase : ');
    repeat
        tt := upcase(readkey);
        if tt in['A'..'Z'] then
        begin
           entra[b] := tt;
           entra[0] := chr(b);
           gotoxy(17 + b,2);write(entra[b]);
           b := b + 1;
        end;
     if tt = #8 then
     begin
        b := b - 1;
        if b < 1 then
        b := 1;
        entra[b] := ' ';
        entra[0] := chr(b);
        gotoxy(17 + b,2);write(entra[b]);
     end;
    until tt = #13;
    total := b - 1;
   end;
 
   procedure presenta2;
   var
     tomada : string[80];
     cc : integer;
   begin
      entradafrase;
      clrscr;
      writeln('   1 = ',entra);
      for cc := 1 to length(entra) - 1 do
      begin
      tomada := copy(entra,cc + 1,length(entra));
      tomada := tomada + copy(entra,1,cc);
      writeln('   ',cc + 1,' = ',tomada);
      end;
 
   end;
 
   begin
      clrscr;
      presenta;
      readln;
      clrscr;
      presenta2;
      readln;
  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