6.4.. Izračunati dijagonalu kvadrata.

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

Opis programa:

Listing programa:

PROGRAM p06411085; 
VAR              { deklarisanje promjenljivih }
  a, d : Real;   { realne promjenljive }
BEGIN
  WRITELN('Dijagonala kvadrata');      { naslov }
  WRITE('Stranica kvadrata a ');       { ulazna promjenljiva }
  READLN(a);                           { ulaz - ucitavanje promjenljive }
  
  d := a * SQRT(2);                    { obrada - proracun }
  
  WRITELN('a = ', a, ' d = ',d);       { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index