// PascalABC.NET 3.3, сборка 1547 от 07.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var (x1,y1):=ReadReal2('Координаты 1-й точки:'); var (x2,y2):=ReadReal2('Координаты 2-й точки:'); var a:=Abs(x2-x1); // считаем, что координаты указаны верно var d:=a*Sqrt(2); var (xc,yc):=((x2+x1)/2,(y2+y1)/2); Writeln('Длина стороны ',a,', диагональ ',d); Writeln('Координаты центра пересечения диагоналей: ',xc,' ',yc) end.
Пример Координаты 1-й точки: -3 3.5 Координаты 2-й точки: 4 -3.5 Длина стороны 7, диагональ 9.89949493661167 Координаты центра пересечения диагоналей: 0.5 0
Носи́тель информа́ции (информацио́нный носи́тель) — любойматериальный объект или среда[неизвестный термин] , содержащий (несущий) информацию (И длительное время сохранять в своей структуре занесённую в/на него информацию — камень,дерево, бумага, металл, пластмассы, кремний (и другие виды полупроводников), лента с намагниченнымслоем (в бобинах и кассетах), пластик со специальными свойствами (для оптической записи И — CD, DVDи т. д.), ЭМИ (электромагнитное излучение) и т. д. и т. п.Носителем информации может быть любой объект, с которого возможно (но не обязательно) чтениеимеющейся (записанной) информации.Зачастую сам носитель информации помещается в защитную оболочку, повышающую его сохранность и,соответственно, надёжность сохранения И (к примеру: бумажные листы — в обложку, микросхему памяти —в пластик (смарт-карта), магнитную ленту — в корпус и т. д.).Носители информации в быту, науке (библиотеки), технике (скажем, для нужд связи), общественной жизни(СМИ) применяются для: (распространения)создания произведений компьютерного искусства
// Внимание! Если программа не работает, обновите версию!
begin
var (x1,y1):=ReadReal2('Координаты 1-й точки:');
var (x2,y2):=ReadReal2('Координаты 2-й точки:');
var a:=Abs(x2-x1); // считаем, что координаты указаны верно
var d:=a*Sqrt(2);
var (xc,yc):=((x2+x1)/2,(y2+y1)/2);
Writeln('Длина стороны ',a,', диагональ ',d);
Writeln('Координаты центра пересечения диагоналей: ',xc,' ',yc)
end.
Пример
Координаты 1-й точки: -3 3.5
Координаты 2-й точки: 4 -3.5
Длина стороны 7, диагональ 9.89949493661167
Координаты центра пересечения диагоналей: 0.5 0