Pascal/Turbo Pascal - como hago un programa en pascal que me diga de 5 numeros cual es el menor??

   
Vista:

como hago un programa en pascal que me diga de 5 numeros cual es el menor??

Publicado por tato (1 intervención) el 09/03/2014 21:21:59
Hola necesito que me expliquen como puedo hacer un programa qque use if then else para que me diga de 5 numeros cual es el menor de ellos
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

como hago un programa en pascal que me diga de 5 numeros cual es el menor??

Publicado por ramon (2072 intervenciones) el 10/03/2014 00:10:08
Mira como tu pones tendrías que realizar esto.

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
datos a=4,b=6,c=8,d=2,e=9
 
 if a > b then
  if a > c then
   if a > d then
     if a > e then
     a es la mayor de todas pero si no tendrías que repetir todos los valores por eso esto seria.
uses
    crt;
var
 n : array[1..5] of integer;
 d, r, ten : integer;
 begin
 for d := 1 to 5 do
 begin
   for r := 5 downto d + 1 do
   if n[d] > n[r] then
   begin
        ten := n[d];
        n[d] := n[r];
        n[r] := ten;
   end;
 end;
  writeln(' El Numero Mayor Es : ',n[5]);
  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

como hago un programa en pascal que me diga de 5 numeros cual es el menor??

Publicado por Juan Ignacio (8 intervenciones) el 10/03/2014 04:26:49
Dos maneras:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program menorde5;
var menor,num1,num2,num3,num4,num5 :integer;
begin
    writeln('Ingrese 5 numeros:');
    readln(num1,num2,num3,num4,num5);
    menor := num1;
    if (num2<menor) then
        menor := num2;
    if (num3<menor) then
        menor := num3;
    if (num4<menor) then
        menor := num4;
     if (num5<menor) then
        menor := num5;
     writeln('El numero menor es el ',menor,'.');
     readln;
end.
o con un while:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program menorde5;
var menor,num,i :integer;
begin
  i := 1;
  writeln('Ingrese 5 numeros.');
  readln(num);
  menor := num;
  while (i<5) do
  begin
     readln(num);
     if (num < menor) then
        menor := num;
     i := i+1;
  end;
  writeln('El menor numero ingresado es el ',menor,'.');
  readln;
end.

Espero sirva.
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