6.4.. Izračunati dijagonale d i D kvadra (za poznate stranice a, b, c).

Opis rješenja:

Opis programa:

Listing programa:

PROGRAM p06411091; 
USES 
  WinCRT;
VAR
  a, b, c, d1, d2, d3, D : Real;
BEGIN
  Write('Stranice a,b,c = ');
  Readln(a,b,c);
  D := sqrt( sqr(a) + sqr(b) + sqr(c));
  d1 := sqrt(sqr(a) + sqr (b));
  d2 := sqrt(sqr(a) + sqr (c));
  d3 := sqrt(sqr(b) + sqr (c));
  Writeln('Za stranice a,b,c ', a,b,c);
  Writeln('Velika dijagonala je ', D);
  Writeln('Dijagonala koju obrazuju stranice a i b je = ', d1);
  Writeln('Dijagonala koju obrazuju stranice a i c je = ', d2);
  Writeln('Dijagonala koju obrazuju stranice b i c je = ', d3);
END.

Ispis na ekranu:

Index