7.2.. Za učitane a i b izračunati z prema formuli:
![](072_zad/07211070.gif)
Opis rješenja:
Listing programa:
PROGRAM P07211070;
USES
WinCrt;
VAR
a,b,max1,max2,z:real;
BEGIN
WRITE('Ukucajte brojeve a i b: ');
READLN(a,b);
max1:=a;
IF a < b THEN
max1 := b;
max2 := SQR(a);
IF SQR(a) < SQR(b) THEN
max2 := SQR(b);
IF b>=0 THEN
z := 2-max1
ELSE
z := max2;
WRITELN('z = ',z);
END.
Ispis na ekranu:
![](072_izvedi/07211070.gif)
Index
|
![](../epp/000/Asistent.jpg) |