6.4.. Izračunati dijagonalu pravougaonika.

Opis rješenja: Na osnovu Pitagorine teoreme dijagonala se računa d² = a² + b²

Opis programa:

Listing programa:

PROGRAM p06411086; 
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 }
  READLN;
END.

Ispis na ekranu:

Index