Prikazi cijelu temu 04.12.2014-16:57
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: Izracunavanje vrijednosti
Od dva učitana broja (a, b) sa tastature naći veći max(a2, b2).

DownloadIzvorni kod (Delphi):
  1. PROGRAM PROGRAM6;
  2. USES
  3.   WinCrt;
  4. VAR
  5.   a, b, max: Real;
  6. BEGIN
  7.   Write('Dva broja ');
  8.   Readln(a, b);
  9.   IF SQR(a) > SQR(b) THEN
  10.     max := SQR(a)
  11.   ELSE
  12.     max := SQR(b);
  13.   Writeln('Od brojeva ', a, ' ', b);
  14.   Writeln('veci kvadrat je ', max);
  15. END.
  16.  
  17.  
  18. II varijanta
  19.  
  20. PROGRAM P07211042_2;
  21. USES
  22.   WinCrt;
  23. VAR
  24.   a, b, max: Real;
  25. BEGIN
  26.   Write('Dva broja ');
  27.   Readln(a, b);
  28.   max := SQR(a);
  29.   IF max < SQR(b) THEN
  30.     max := SQR(b);
  31.   Writeln('Od brojeva ', a, ' ', b);
  32.   Writeln('veci kvadrat je ', max);
  33. END.

Pozdrav