7.2.. Za učitane a i b izračunati z prema formuli:

Opis programa: Prvo treba naći minimum brojeva a i b ( min := a; IF a>b THEN min := b;), pa maksimum brojeva a i b (max := SQR(a); IF max < SQR(b) THEN max := SQR(b);) te izračunati z (IF max <> 0 THEN z := min / max;).

Listing programa:

PROGRAM p07211055;
USES
  WinCrt;
VAR
  a, b, min, max, z: Real;
BEGIN
  Write('Dva broja ');
  Readln(a, b);
  min := a;
  IF a>b THEN 
    min := b;
  max := SQR(a);
  IF max < SQR(b) THEN 
    max := SQR(b);
  IF max <> 0 THEN ‚
    BEGIN
      z := min / max;
	  Writeln('a = ', a, '  b = ', b, '  min = ', min, '  max = ', max, '  z = ', z)
	END
  ELSE
    Writeln('nije definisano dijeljenje sa max = 0');	
END.

Ispis na ekranu:

Index