Predmet:Izracunavanje vrijednosti
Od dva učitana broja (a, b) sa tastature naći veći max(a2, b2).
PreuzmiIzvorni kôd (Delphi):PROGRAM PROGRAM6;
USES
WinCrt;
VAR
a, b, max: Real;
BEGIN
Write('Dva broja ');
Readln(a, b);
IF SQR(a) > SQR(b) THEN
max := SQR(a)
ELSE
max := SQR(b);
Writeln('Od brojeva ', a, ' ', b);
Writeln('veci kvadrat je ', max);
END.
II varijanta
PROGRAM P07211042_2;
USES
WinCrt;
VAR
a, b, max: Real;
BEGIN
Write('Dva broja ');
Readln(a, b);
max := SQR(a);
IF max < SQR(b) THEN
max := SQR(b);
Writeln('Od brojeva ', a, ' ', b);
Writeln('veci kvadrat je ', max);
END.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.