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