7.2.. Za učitane a i b izračunati z prema formuli:
Opis programa: Prvo treba naći minimum od a i b ( min := a; IF a>b THEN min := b;), pa minimum od kvadrata a i b min2 := SQR(a) IF SQR(b) < min2 THEN min2 := SQR(b); . Zatim provjeriti vrijednost a (a>=0) da bi se izračunalo z ( IF a >= 0 THEN z := min ELSE z := 2*min;).
Listing programa:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | PROGRAM p07211045;USES WinCrt;VAR a, b, min, min2, z: Real;BEGIN Write('Dva broja '); Readln(a, b); min := a; IF a>b THEN min := b; min2 := SQR(a); IF SQR(b) < min2 THEN min2 := SQR(b); IF a >= 0 THEN z := min ELSE z := min2; Writeln('a = ', a, ' b = ', b, ' min = ', min, ' min2 = ', min2, ' z = ', z);END. |
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
