программирование Delphi. Задание внутри.

Question

Составить программу с использованием записей. Задание: заданы координаты начала и конца вектора. найти его модуль.

Илона Дарваш · Accepted Answer

Принцесса Ночь · Answer

Как-то так 
Type TVector = record 
 beginX, BeginY:Real; 
 endX, endY: Real; 
end; 
 
var vector: TVector; length: Real; 
begin 
length := sqrt(sqr(vector.beginX - vector.endX) + sqr(vector.beginY - vector.endY)); 
end.

Олег · Answer

M=sqrt(sqr(x1-x2)+sqr(y1-y2)) 
както так

Михаил Никулин · Answer

type 
 
TVector=class 
private 
fStartPoint:Tpoint; 
fEndtPoint:Tpoint; 
public 
property StartPoint:Tpoint read fStartPoint; 
property EndtPoint:Tpoint read fEndtPoint; 
function Module:double; 
end; 
 
function TVector.Module:double; 
begin 
Result:=sqrt(sqr(fStartPoint.X-fEndtPoint.X)+sqr(fStartPoint.Y-fEndtPoint.Y)); 
end; 
 
begin 
with TVector.Create do 
try 
readln(StartPoint.X, StartPoint.Y, EndtPoint.X, EndtPoint.Y); 
writeln(Module); 
finally 
Free; 
end; 
end. 
 
А где же записи? А тип Tpoint и есть запись.