Pascal/Turbo Pascal - Pequeño problema con Arrays

 
Vista:
sin imagen de perfil
Val: 6
Ha aumentado su posición en 6 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Pequeño problema con Arrays

Publicado por Dendi (5 intervenciones) el 28/07/2016 01:24:18
Hola, quiero preguntarles porque mi programa me carga todos los arreglos por parametros bien, exepto el ultimo, el arreglo 'D', ya probe cambiandolos de orden y todo, pero es el unico que no termina de cargarse.. ¿Alguien me puede explciar porque? Muchas gracias.


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
program asd;
uses crt;
var A:array [1..2] of real;
    B:array [1..2] of real;
    D:array [1..3] of real;
    j,i:integer ;
 
 
procedure carga ( a:integer; var C:array of real; x:char);
 
begin
     For J := 1 to A do
     begin
 
 
              write ('Inserte valor en su matriz ', x,' [' , J ,']');
              readln ( C[J] );
 
        end;
 end;
begin
carga (3,D,'D');
carga (2,A,'A');
carga (2,B,'B');
 
 
 
readkey;
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

Pequeño problema con Arrays

Publicado por ramon (2158 intervenciones) el 28/07/2016 12:18:42
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
{Fijate en las modificaciones}
 
program asd;
 
uses crt;
 
var
    A:array [0..1] of real;
 
    B:array [0..1] of real;
 
    D:array [0..2] of real;
 
    j,i:integer ;
 
 
 
 
 
procedure carga ( a:integer; var C:array of real; x:char);
begin
     For J := 0 to A do
     begin
        write('Inserte valor en su matriz ', x,' [' , J ,']');
        readln(C[J]);
        end;
    end;
 
    begin
      clrscr;
      carga(2,D,'D');
      carga(1,A,'A');
      carga(1,B,'B');
      writeln;
      for i := 0 to 2 do
      write('  ',d[i]:0:2);
      writeln;
      for i := 0 to 1 do
      write('  ',a[i]:0:2);
      writeln;
      for i := 0 to 1 do
      write('  ',b[i]:0:2);
      writeln;
      writeln('   Pulse Una Tecla');
      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