Pascal/Turbo Pascal - urgente ayuda con un programa

   
Vista:

urgente ayuda con un programa

Publicado por gilberto castillo lopez gil061090@hotmail.com (3 intervenciones) el 23/11/2012 06:17:26
urgente necesito un buen programador que me ayude con este programa en pascal desarrollar un programa de dos arreglos de cacteres que emulen un string de 9 posiciones para lo cual crear un procedimiento que copie todos los caracteres del primer arreglo pero ala inversa para demostrar el correcto funcionamiento del programa crear un procedimiento que lea cada una de las posiciones del arreglo original y otro el arreglo al inverso que muestre las posiciones.
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

urgente ayuda con un programa

Publicado por ramon (2072 intervenciones) el 23/11/2012 17:19:06
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
{Algo como esto es}
 
program arreglos;
  uses
     crt;
  type
     unarray = array[1..9] of char;
  var
    array1, array2 : unarray;
 
  procedure cargaarreglo1; {Rellenamos el arreglo 1}
  var
    d : integer;
  begin
      for d := 1 to 9 do
      array1[d] := chr(64 + d);
  end;
 
  procedure invierte(ar : unarray);  {invertimos los datos}
  var
     i, en : integer;
  begin
      i := 1;
      for en := 9 downto 1 do
      begin
      array2[i] := ar[en];
      i := i + 1;
      end;
  end;
 
  begin
     clrscr;
     cargaarreglo1;
     invierte(array1);
     writeln(array1);  {presentamos los dos}
     writeln(array2);
     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
1
Comentar

urgente ayuda con un programa

Publicado por gilberto castillo lopez gil061090@hotmail.com (3 intervenciones) el 23/11/2012 17:59:22
ramon eres excelente y de eso no hay duda resulta que ya yo habia intentado hacerlo y me compilo igual que el tuyo el problema es cuando me dicen que tengo que hacer un procedimiento que lea las posiciones del arreglo original y otro que muestre el arreglo a la inversa
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

urgente ayuda con un programa

Publicado por ramon (2072 intervenciones) el 23/11/2012 21:24:31
1
2
3
4
5
6
7
8
9
10
11
{Este procedimiento lee el array y lo presenta uno por uno cualquiera de los dos arrays }
 
procedure leerarray(aa : unarray);
var
    x : integer;
 begin
       for x := 1 to 9 do
       write('  ',aa[x]);
 end;
 
{Es esto lo que te preocupa pues ya esta si hay otra caso dime lo}
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

urgente ayuda con un programa

Publicado por gilberto castillo lopez (3 intervenciones) el 24/11/2012 06:54:15
muchisimas gracias ramon te debo una
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