5.naloga: Funkcija sqrt in sqr

Napiši program,ki bo izračunal višino na hipotenuzo in hipotenuzo v pravokotnem trikotniku s katetema a in b.

Namig: Višina se izračuna po formuli h = ab/koren (a2 + b2 ). Za izračun višine bomo uporabili standardni funkciji v pascalu sqrt (izračuna koren števila) in sqr (izračuna kvadrat števila).

Rešitev:

program visina;

{program izracuna visino in hipotenuzo v prv.trik.}

var

    a,b,visina,hipotenuza:real;

begin

    write('dolzina katete a: ');readln(a);

    write('dolzina katete b: ');readln(b);

    writeln; {podatki}

    visina := (a*b)/sqrt(sqr(a)+sqr(b));

    hipotenuza:= sqrt(sqr(a)+sqr(b));{izracun kolicin - uporaba standardnih funkcij}

    writeln('vsina trikotnika je: ',visina:1:5);

    writeln('hipotenuza trikotnika je: ',hipotenuza:1:5);

end.

Izgled izpisa po zagonu programa:

dolzina katete a: 3

dolzina katete b: 4

vsina trikotnika je: 2.40000

hipotenuza trikotnika je: 5.00000

Komentar: Poleg v programu uporabljenih funkciji pascal pozna tudi druge standardne funkcije, kot so: sbs(x) (absolutna vrednost), trunc(x)(odreže decimalni del stevila ), round(x)(zokroži decimalno število), sin(x), cos(x)(parameter mora biti v radijanih),ln(x), exp(x)…

Te funkcije lahko uporabljamo na podatkih tipa integer in real, čeprav pasca načeloma pričakuje argumente realneg tipa.Če se pojavi argument kot celo število, ga pascal prevede v realno število.

Dodatne naloge:

  1. naloga: Napiši program za izračun ploščine kroga.
  2. naloga: V trikotniku je znan kot a in stranica a . Poišči ostale stranice in kote po formulah:
  3. b = a/tana , c = a/sina , h = a/cosa , b = 90° - a

  4. naloga: Napiši program za izračun neznanke x v kvadratni enačbi po formuli : x1,2 = (- b - +koren (b2- 4ac)/2a.