Структуры данных: структуры (PascalABC.NET)

Записи

• Записи (документация)
• Записи (википедия)

Задачи

Длина отрезка между двумя точками

 1 type 
 2   Point = record
 3     x, y: real;
 4   end;
 5 function Count(p1, p2: Point): real;
 6 begin
 7   var length := sqrt((p1.x-p2.x)**2 + (p1.y-p2.y)**2);
 8   Count := length;
 9 end;
10 
11 Begin
12   var p1, p2: Point;
13   p1.x := 0;
14   p1.y := 0;
15   p2.x := 1;
16   p2.y := 1;
17   var res := Count(p1, p2);
18   Writeln($'Длинна отрезка равна {res}');
19 end.