Pascal/Turbo Pascal - ayuda es para mi examen

   
Vista:

ayuda es para mi examen

Publicado por fer fernando5thb@hotmail.com (6 intervenciones) el 13/10/2013 04:34:58
necesito hacer para mi examen un programa haci:
realizar un programa que realize las sigueintes tareas con procedimientos y funciones:
1.- leer una lista de funciones desde el teclado
2.- visualizar dichos numeros
3.- ordenar el modo creciente
4.- Visualizar la lista ordenada
5.- buscar si existe el numero dado por el usuario

Respondan rapido porfavor
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

ayuda es para mi examen

Publicado por ramon (2072 intervenciones) el 13/10/2013 21:22:36
Puedes aclarar eso de las listas de funciones te refieres a punteros o
a simples entrada de una serie de números en un array.
Lo pregunto por esto que pones.

2.- visualizar dichos numeros
3.- ordenar el modo creciente
4.- Visualizar la lista ordenada
5.- buscar si existe el numero dado por el usuario
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

ayuda es para mi examen

Publicado por ramon (2072 intervenciones) el 13/10/2013 22:32:56
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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
{Espero sea esto}
 
program numeros;
 uses
   crt;
 const
    num = 20;
 var
   ordenad, numero : array[1..num] of word;
   cont : integer;
   cual : word;
   tecla : char;
 
  procedure entranumeros;
  var
    nu : word;
  begin
    repeat
     clrscr;
     writeln('**** Entrada Numeros [0] Termina ****');
     writeln;
     write('   Entre Num [',cont,'] : ');
     readln(nu);
     if nu > 0 then
     begin
     numero[cont] := nu;
     cont := cont + 1;
     end;
    until nu = 0;
  end;
 
  procedure ordena;
  var
    tem : word;
    p, t : integer;
    begin
       for t := 1 to cont - 1 do
       ordenad[t] := numero[t];
       for t := 1 to cont - 1 do
        for p := cont - 1 downto t + 1 do
        if ordenad[t] > ordenad[p] then
        begin
           tem := ordenad[t];
           ordenad[t] := ordenad[p];
           ordenad[p] := tem;
        end;
    end;
 
   procedure visualizanum(cual : char);
   var
     d : integer;
   begin
      clrscr;
      for d := 1 to cont - 1 do
      if cual = 'O' then
      write('   ',ordenad[d])
    else
      write('   ',numero[d]);
   end;
 
   procedure buscar;
   var
     bus : word;
     h : integer;
     si : boolean;
   begin
      si := false;
      clrscr;
      write('   Entre Num A Buscar : ');
      readln(bus);
      for h := 1 to cont - 1 do
      if numero[h] = bus then
      begin
         si := true;
         break;
      end;
      if si = true then
      writeln('   Numero Encontrado : ',numero[h])
   else
      writeln('   Numero No Encontrado ');
      writeln;
      writeln('<<< Pulse Una Tecla >>>');
      readkey;
   end;
 
   procedure menu;
  var
     tecla : char;
     sal : boolean;
  begin
     sal := false;
   repeat
       clrscr;
       writeln('   ***** Memu Jeneral *****');
       writeln;
       writeln('   1 = Entrada Numeros');
       writeln('   2 = Ordenar Numeros');
       writeln('   3 = Presentar Numeros');
       writeln('   4 = Presentar Ordenados');
       writeln('   5 = Salir');
       writeln;
       writeln('   <<<<< Elija Opcion >>>>>');
    repeat
        tecla := readkey;
    until tecla in['1','2','3','4','5'];
    clrscr;
    case tecla of
  '1' : begin  cont := 1; entranumeros; end;
  '2' : begin
           if cont > 1 then
           ordena;
           writeln;
           writeln('   Datos Ordenados Pulse Una Tecla ');
           readkey;
        end;
  '3' : begin
           if cont > 1 then
           visualizanum('f');
           writeln;
           writeln('   Pulse Una Tecla ');
           readkey;
        end;
  '4' : begin
           if cont > 1 then
           visualizanum('O');
           writeln;
           writeln('   Pulse Una Tecla ');
           readkey;
        end;
  '5' : sal := true;
    end;
   until sal = true;
  end;
 
  begin
     menu;
  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 es para mi examen

Publicado por fer (6 intervenciones) el 14/10/2013 03:00:37
lo pondre en mi examen aber si me lo ponen bien pero como sea gracias espero y esto me salve el pellejo
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 es para mi examen

Publicado por ramon (2072 intervenciones) el 14/10/2013 21:21:03
Espero no te cueste algo mas si notan tu poco interés para aprender ya que esto puede ser
visto por tus profes y no les gustara que no lo a gas tu.
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