6.4.. Izračunati dijagonalu pravougaonika.

Opis rješenja: Na osnovu Pitagorine teoreme dijagonala se računa d2 = a2 + b2

Opis programa:

Listing programa:

PROGRAM p06411086; 
USES 
  WinCRT;
VAR                 { deklarisanje promjenljivih }
  a, b : INTEGER;   { cjelobrojne promjenljive }
  d : REAL;         { realne promjenljive }
BEGIN
  WRITELN('Dijagonala pravougaonika');      { naslov }
  WRITE('Stranice pravougaonika a  b ');    { ulazne promjenljive }
  READLN(a, b);                             { ulaz - ucitavanje promjenljivih }
  
  d:= SQRT(SQR(a) + SQR(b));                { obrada - proracun }
  
  WRITELN('a= ', a, ' b= ', b, ' d= ',d);   { izlaz - ispis }
END.

Ispis na ekranu:

Index