Minimo

Dati due valori di tipo numerico x, y determinare il valore minimo

  1. m:=x;
    If(y < m) Then
       m:=y;
  2. If(x <= y) Then
       m:=x
    Else
       m:=y;

Dati tre ...

  1. m:=x;
    If(y < m) Then m:=y;
    If(z < m) Then m:=z;
  2. If(x <= y) Then
       m:=x
    Else
       m=y;
    
    If(z < m) Then
       m:=z;
  3. If(x <= y) Then
       If(x <= z) Then
          m:=x
       Else
          m:=z
    Else
       If(y <= z) Then
          m:=y
       Else
          m:=z;
  4. If(x <= y) And (x <= z) Then
       m:=x
    Else If(y <= x) And (y <= z) Then
       m:=y
    Else
       m:=z;

Dati quattro ...

  1. m:=x1;
    If(x2 < m) Then m:=x2;
    If(x3 < m) Then m:=x3;
    If(x4 < m) Then m:=x4;
  2. If(x1 <= x2) Then m12:=x1
    Else              m12:=x2;
    
    If(x3 <= x4) Then m34:=x3
    Else              m34:=x4;
    
    If(m12 <= m34) Then m:=m12
    Else                m:=m34;
  3. If(x1 <= x2) And (x1 <= x3) And (x1 <= x4) Then
       m:=x1
    Else If(x2 <= x1) And (x2 <= x3) And (x2 <= x4) Then
       m:=x2
    Else If(x3 <= x1) And (x3 <= x2) And (x3 <= x4) Then
       m:=x3
    Else
       m:=x4;