Pascal/Turbo Pascal - Tengo que rendir programacion en el colegio y practicamente no se nada.

   
Vista:

Tengo que rendir programacion en el colegio y practicamente no se nada.

Publicado por Alejandro (1 intervención) el 11/02/2015 16:58:06
Bueno, necesito dar bien esa materia si o si para pasar de año y poder entrar en la facultad. y no se nada de nada. Voy a estudiar ingenieria mecanica, que no tiene programacion por suerte pero necesito aprobar.
me va a tomar este ejercicio
"Dado un vector numerico de 10 posiciones, llenarlo y obtener/ informacion del valor minimo"
Quisiera saber si alguien podria hacerlo y darme una explicacion ya que me van a pedir que lo explique.
Y si puede ser tambien una guía de como hacerlo para tener una idea.
Desde ya muchas gracias!
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

Tengo que rendir programacion en el colegio y practicamente no se nada.

Publicado por David (144 intervenciones) el 11/02/2015 18:24:56
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Uses CRT;
 
CONST
  TOPE = 10;
 
Type
  TipoTabla = array [1..10] of integer;
 
var
  I, J : Integer;
  Tabla : TipoTabla;
 
Procedure llenarVector(var t:tipotabla);
 
var
  i : integer;
 
begin
  randomize;
  for i := 1 to tope do
    t[i]:=random(10); {Rellena el vector con valores aleatorios entre 0 y 9}
end;
 
Function Menor (var t : tipoTabla):INTEGER;
 
var
  i : Integer;
  men : integer;
 
begin
 
  men := t[1]; {Suponemos que el menor elemento del vector es el primero}
  for i:=2 to tope do
    begin
      if t[i]<men then  {y lo comparamos con todos los dem s}
        men:=t[i]       {si encontramos un valor menor, lo almacenamos}
    end;
  menor:=men;
end;
 
begin
  LLENARVECTOR(TABLA);
  WRITELN('eL MENOR ES : ',MENOR(TABLA));
  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

Tengo que rendir programacion en el colegio y practicamente no se nada.

Publicado por Dario (20 intervenciones) el 16/02/2015 23:06:29
Otra solucion.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var
    num:array[1..10]of integer;
    i:byte;
    minimo:integer;
begin
    clrscr;
    {Rellenando el array}
    for i:=1 to 10 do
        begin
            write('Elemento ',i,': ');
            readln(num[i]);
        end;
    minimo:=num[1];
    {Obtener el minimo}
    for i:=2 to 10 do
        begin
            if num[i] < minimo then
            minimo:=num[i]
        end;
    writeln('El valor minimo es ',minimo);
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

Tengo que rendir programacion en el colegio y practicamente no se nada.

Publicado por MMan (5 intervenciones) el 16/02/2015 23:46:47
lo mismo. pero con unas lineas menos

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var
    num:array[1..10] of integer;
    i:byte;
    minimo:integer;
begin
    clrscr;
    {Rellenando el array}
   minimo:=2147483647; { empezamos con un numero muy grande (el maximo permitido por el tipo integer) }
 
    for i:=1 to 10 do
        begin
            write('Elemento ',i,': ');
            readln(num[i]);
 
          { comparamos el num ingresado con minimo, y guardamos el menor }
            if num[i] < minimo then
                 minimo:=num[i];
 
        end;
 
    writeln('El valor minimo es ',minimo);
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