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:
Izgled izpisa po zagonu programa: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.
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:
b = a/tana , c = a/sina , h = a/cosa , b = 90° - a