Seite Andrea

Aus ProgrammingWiki

Aufgabe: Berechne die Hypothenuse eines rechtwinkligen Dreiecks nach Eingabe der Seiten a und b!

function dreieck(a,b:real):real;
begin
result:=sqrt(sqr(a)+sqr(b));
end;