Структуры данных: структуры (PascalABC.NET): различия между версиями

Материал из Информационная безопасностя
Перейти к навигации Перейти к поиску
Строка 2: Строка 2:
 
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Types/records.html Записи (документация)]
 
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Types/records.html Записи (документация)]
 
* [https://ru.wikipedia.org/wiki/%D0%97%D0%B0%D0%BF%D0%B8%D1%81%D1%8C_(%D1%82%D0%B8%D0%BF_%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85) Записи (википедия)]
 
* [https://ru.wikipedia.org/wiki/%D0%97%D0%B0%D0%BF%D0%B8%D1%81%D1%8C_(%D1%82%D0%B8%D0%BF_%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85) Записи (википедия)]
 +
 +
== Задачи ==
 +
=== Длина отрезка между двумя точками ===
 +
<syntaxhighlight lang="pascal" line>
 +
type
 +
  Point = record
 +
    x, y: real;
 +
  end;
 +
function Count(p1, p2: Point): real;
 +
begin
 +
  var length := sqrt((p1.x-p2.x)**2 + (p1.y-p2.y)**2);
 +
  Count := length;
 +
end;
 +
 +
Begin
 +
  var p1, p2: Point;
 +
  p1.x := 0;
 +
  p1.y := 0;
 +
  p2.x := 1;
 +
  p2.y := 1;
 +
  var res := Count(p1, p2);
 +
  Writeln($'Длинна отрезка равна {res}');
 +
end.
 +
</syntaxhighlight>

Версия 15:09, 16 июня 2021

Записи

Задачи

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

 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.
Источник — http://isec.nayanovaacademy.ru/w/index.php?title=Структуры_данных:_структуры_(PascalABC.NET)&oldid=1528