Ez pascalban lehetséges?

Készítsen objektum-orientált programmodult és ezt alkalmazó példaprogramot, amely egy geometriai alakzat vagy figura tulajdonságain alapul. Mindegyik modulnak tartalmaznia kell a mezőket kezdő értékkel ellátó konstruktort (Init), destruktort (Done), a mezők kiírására szolgáló metódust (Put), képernyőre kiíró/billentyűről beolvasó metódusokat.

1. Szakasz. Mezők: xk, yk, xv, yv. Metódusok: hossz L = sqrt(sqr(xv – xk) + sqr(yv – yk)) és az alpha = arctan((yv – yk)/(xv – xk)) dőlésszög kiszámítása;

2. Háromszög. Mezők: a háromszög csúcsai, ami 3 pont – A(x1,y1), B(x2,y2), C(x3,y3). Metódusok: terület S = sqrt(p*(p – a)(p –b)(p –c)), oldalfelező ma = 1/2*sqrt(2*b*b + 2*c*c – a*a) és kerület p = 1/2*(a + b + c) kiszámítása. (Itt az a, b, c – az oldalak hossza);

3. Rombusz. Mezők: a rombusz csúcsai, 4 pont: A(x1,y1), B(x2,y2), C(x3,y3), D(x4,y4); Metódusok: az ellentétes átlók hossza d1, d2; terület S = 1/2*d1*d2, kerület c. (A d a cosinus tétel és a skaláris szorzat képlete segítségével számítható ki). Megjegyzés. d2 = a2 + b2 – 2*a*b* cos(alpha); cos(alpha) = (a,b)/(|a|*|b|). (a,b) =x1*x2+y1*y2 – skaláris szorzat, |a|, |b| – az a(x1,y1) és a b(x2,y2) vektorok hossza. A vektorok koordinátái x1 = xv1 – xk1, y1 = yv1 – yk1, végpontjai A(xk,yk), B(xv,yv).

4. Körlap. Mezők: xk, yk, R. Metódusok: terület S = piR2, kerület c =2piR; átmérő – D;