6.. Za poznate vrijednosti površine i stranice trougla izračunati odgovarajuću visinu (P=a*h/2).

Opis rješenja:

Listing programa:

PROGRAM P06411061;
VAR              { deklarisanje promjenljivih }
  a    : INTEGER;
  P, h : REAL; { cjelobrojne promjenljive }


BEGIN
  WRITELN('visina trougla');     { naslov }
  WRITE('stranica ');     { ulazna promjenljiva }
  READLN(a);              { stranica }
   
  WRITE('povrsina ');    { ulazna promjenljiva }
  READLN(P);             { povrsina }

  h := 2 * P / a;

  WRITELN('a = ', a, '  P = ', P, '   h = ', h);   { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index