Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » array problema

Pascal/Turbo Pascal - array problema

Volver
Nuevo Tema
<<>>
 
Vista:

array problema

Publicado por telecoprograma (1 intervención) el 26/10/2016 12:57:41
P6_4 Escribe un programa que introduzca por teclado N letras en un vector V (N constante conocida) y construya un nuevo vector S con los mismos elementos que V pero de forma que estén todas las mayúsculas en primer lugar y a continuación las minúsculas. Muestra en pantalla S.
Ejemplo: V: aCHnsT N=6
devuelve: S: CHTans
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

array problema

Publicado por ramon (2158 intervenciones) el 26/10/2016 18:16:59
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
{Mira si esto te sirve}
 
program miarray;
 uses
   crt;
  const
      n = 6;
      letra : string[n] = (
      'aCHnsT');
 
 
   var
     letras : array[1..n] of char;
     cambio : array[1..n] of char;
     k, i : integer;
     inter : char;
 
 
   begin
       for i := 1 to n do
       letras[i] := letra[i];
       for i := 1 to n do
       cambio[i] := letras[i];
       for i := 1 to n do
         for k := n downto i + 1 do
         if (cambio[i] > cambio[k]) and (cambio[k] <> #0) then

         begin
            inter := cambio[i];
            cambio[i] := cambio[k];
            cambio[k] := inter;
         end;
       clrscr;
       gotoxy(4 + i,1);write(´   Array De : ´,n);
       for i := 1 to n do
       begin
       gotoxy(4 + i,2);write(letras[i]);
       gotoxy(4 + i,3);write(cambio[i]);
       end;
       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