Pascal/Turbo Pascal - Ayuda para diseña un programa que pida 10 números enteros distintos y los almacene en un vector

   
Vista:

Ayuda para diseña un programa que pida 10 números enteros distintos y los almacene en un vector

Publicado por dario (40 intervenciones) el 30/12/2015 10:13:34
Quisiera que me den una mano con este programa. Gracias.

Diseña un programa que pida el valor de 10 números enteros distintos y los almacene en un vector. Si se da el caso, el programa advertirá al usuario, tan pronto sea posible, si introduce un número repetido y solicitará nuevamente el número hasta que sea diferente de todos los anteriores. A continuación, el programa mostrará los 10 números por pantalla.
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

Ayuda para diseña un programa que pida 10 números enteros distintos y los almacene en un vector

Publicado por David (144 intervenciones) el 30/12/2015 19:50:00
Te propongo la siguiente solución:

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
Uses CRT;
 
Const
  TOPE = 10;
 
VAR
  Tabla : Array [1..10] of integer;
  i,k,aux : Integer;
  repetido:boolean;
 
begin
 
  For i:=1 to TOPE do
    begin
      Writeln('Introduzca un n£mero entero: ');
      readln(TABLA[I]);
        For k:= 1 to i do
          begin
            aux:=tabla[k];
            if (aux=tabla[i]) and (i<> k) then
              begin
               writeln('N£mero repetido. Vuelva a introducir otro n£mero');
               readln(tabla[i]);
              end;
        end;
    end;
      for i:=1 to 10 do
      write(tabla[i]:3);
 
  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

Ayuda para diseña un programa que pida 10 números enteros distintos y los almacene en un vector

Publicado por dario (40 intervenciones) el 01/01/2016 04:55:46
Gracias. Ahora lo paso a lenguaje C y veo como va.
Saludos.
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