• Jueves 28 de Marzo de 2024, 23:56

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - david-mol

Páginas: [1]
1
Pascal / Exitcode 201
« en: Jueves 30 de Diciembre de 2010, 18:44 »
Hola, estoy intentando hacer el ejercicio que a continuación pongo:

P5_6 Carga una tabla A de tamaño N (constante conocida) con enteros no nulos y construye dos vectores V y C donde almacenarás respectivamente los distintos valores de A y el número de veces que aparecen. Para terminar muestra el resultado.
Ejemplo: N=10   A  3 7 4 1 7 3 7 12 9 1
devuelve  V 3 7 4 1 12 9   C 2 3 1 2 1 1

He hecho esto, creo que está bien, se compila y puedo ejecutarlo, pero cuando introduzco los datos me da exitcode 201.
No se como corregirlo.

Aquí está el programa.

Program P5_6;
Const n=10;
Var A,V,C:array[1..n]of integer;
         i,j:integer;
Begin
Write('Introduce un vector de tamaño ',n,' con enteros positivos no nulos: ');
For i:=1 to n do begin
Read(A);
V:=0;
C:=0;
end;
For i:=1 to n do begin
j:=i;
Repeat begin
       If V= then begin
                            V:=A[j];
                             C:=C+1;
                          end
                  else if V=A[j] then C:=C+1;
                  j:=j+1;
                  end;
Until j=n;
end;
For i:=1 to n do write(A:3);writeln;
For i:=1 to n do If V<>0 then write(V[j]:3);writeln;
For i:=1 to n do If V<>0 then write(C[j]:3);writeln
End.

Si me podeis ayudar os lo agradeceré.

Saludos.

Páginas: [1]