Решаем задачи Абрамян на Паскале. Param64

Param64. Описать тип TPoint — запись с полями вещественного типа $$X$$ и $$Y$$ (координаты точки на плоскости) — и функцию Leng($$A$$, $$B$$) вещественного типа, находящую длину отрезка $$AB$$ на плоскости по координатам его концов: $$|AB|=\sqrt{(A.X-B.X)^2+(A.Y-B.Y)^2}$$ . ($$A$$ и $$B$$ — параметры типа TPoint). С помощью этой функции найти длины отрезков $$AB$$, $$AC$$, $$AD$$, если даны координаты точек $$A$$, $$B$$, $$C$$, $$D$$.
Решение:

program Param63;

type
 TPoint = record
   x,y:real;
 end;

var
 A,B,C,D:TPoint;

Function Leng(A,B:TPoint):real;
begin
 Leng:=sqrt(sqr(A.X-B.X)+sqr(A.Y-B.Y));
end;

begin
 Write('A(x,y): ');
 Readln(A.x,A.y);
 Write('B(x,y): ');
 Readln(B.x,B.y);
 Write('C(x,y): ');
 Readln(C.x,C.y);
 Write('D(x,y): ');
 Readln(D.x,D.y);

 Writeln(Leng(A,B));
 Writeln(Leng(A,C));
 Writeln(Leng(A,D));
end.

program Param63;

type

TPoint = record

x,y:real;

end;

var

A,B,C,D:TPoint;

Function Leng(A,B:TPoint):real;

begin

Leng:=sqrt(sqr(A.X-B.X)+sqr(A.Y-B.Y));

end;

begin

Write('A(x,y): ');

Readln(A.x,A.y);

Write('B(x,y): ');

Readln(B.x,B.y);

Write('C(x,y): ');

Readln(C.x,C.y);

Write('D(x,y): ');

Readln(D.x,D.y);

Writeln(Leng(A,B));

Writeln(Leng(A,C));

Writeln(Leng(A,D));

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param64

Комментарии:

Добавить комментарий Отменить ответ