Pascal/Turbo Pascal - ARREGLOS

   
Vista:
Imágen de perfil de Gabriela

ARREGLOS

Publicado por Gabriela (5 intervenciones) el 15/04/2015 20:14:51
LOS ARREGLOS COMO SE MANEJAN ALGUIEN ME AYUDA POR FIS?


1) La primera actividad consiste en:

- Realizar un programa en Pascal que solicite los siguientes números, 12, 32, 48,17, 96, 54 y 94 para guardarlos en un arreglo, después debes indicar la posición del mismo arreglo, en la que se localiza el máximo valor. Debes realizar la captura, la compilación y la ejecución del programa guardandolo con el nombre: arreglo_posmax.
2) La segunda actividad de la tarea solicita:

- Hacer un programa en Pascal que utilizando un arreglo, solicite los nombres de por lo menos 12 compañeros de la clase de Cibernética y Computación II, y te muestre los nombre de los 4 con los que mejor te lleves. Debes realizar la captura, la compilación y la ejecución del programa guardandolo con el nombre: arreglo_amiguitos .
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

ARREGLOS

Publicado por ramon (2072 intervenciones) el 15/04/2015 23:21:28
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
{Mira esto}
program arreglo_posmax;
 uses
    crt;
  const
      max = 12;
      num : array[1..(max - 5)] of integer = (
      12,32,48,17,96,54,94);
 
   type
      amigos = record
          nombre : string[80];
          amista : integer;
        end;
 
  var
    numeros : array[1..(max - 5)] of integer;
    compa : array[1..max] of amigos;
    cont : integer;
 
  procedure ponnumeros;
  begin
     for cont := 1 to (max - 5) do
     numeros[cont] := num[cont];
  end;
 
  function posicion : integer;
  var
    nupos, h, y : integer;
  begin
     posicion := 0;
     y := numeros[1];
     nupos := 1;
     for h := 2 to (max - 5) do
     begin
        if y < numeros[h] then
        begin
           y := numeros[h];
           nupos := h;
        end;
      end;
       posicion  := nupos;
  end;
 
  procedure elmayor;
  begin
     clrscr;
     ponnumeros;
     for cont := 1 to (max - 5) do
     write('  ',numeros[cont]);
     writeln;
     writeln('   La Posicion Del Mayor Es = ',posicion);
     writeln;
     writeln('   Pulse Una Tecla');
     readkey;
  end;
 
  procedure entradacomp;
  begin
     clrscr;
     for cont := 1 to max do
     begin
        write('   Entre Nombre Compa¤ero N. ',cont,' : ');
        readln(compa[cont].nombre);
        write('   Entre Amistad De [1..7] Del Compa¤ero N. ',cont,' : ');
        readln(compa[cont].amista);
        clrscr;
     end;
  end;
 
  procedure presenta4comp;
  var
    fu, nu : integer;
    temp : amigos;
  begin
     clrscr;
     for nu := 1 to max do
      for fu := max downto nu + 1 do
      begin
      if compa[nu].amista < compa[fu].amista then
      begin
          temp := compa[fu];
          compa[fu] := compa[nu];
          compa[nu] := temp;
       end;
     end;
      writeln('  los 4 con los que mejor te lleves ');
      writeln;
      for nu := 1 to 4 do
      writeln(compa[nu].nombre);
      writeln;
      writeln('   Pulse Una Tecla');
     readkey;
  end;
 
 
  begin
    {Primero}
    elmayor;
    {Segundo}
     entradacomp;
     presenta4comp;
  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

ARREGLOS

Publicado por dario delgado (20 intervenciones) el 16/04/2015 10:15:04
Esta es la primera actividad.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
const
	lista:array[1..7]of integer = (12,32,48,17,96,54,94);
var
	i:byte;
	mayor,pos:integer;
begin
	clrscr;
	mayor:=0;
	for i:=1 to 7 do
		if lista[i] > mayor then begin
			mayor:=lista[i];
			pos:=i;
		end;
	writeln('El mayor es ',mayor,' y esta en la posicion ',pos);
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