Question

Se da un text. sa se scrie un program care va calcula cate cuvinte. icep cu o consoana si se termina cu o vocala. Pascal

Answer 1

Răspuns:

function dist(A,B:Punct):real;

begin

dist:=sqrt(sqr(b.x - a.x)+sqr(b.y-a.y));

end;

function aria(d:dreptunghi):real;

begin

aria:=dist(d.a,d.b)*dist(d.a,d.d);

end;