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

Begin20. Найти расстояние между двумя точками с заданными координатами $(x_1, y_1)$ и $(x_2, y_2)$ на плоскости. Расстояние вычисляется по формуле $\sqrt{(x_2 — x_1 )^2 + ( y_2 — y_1 )^2}$ .

Решение:

program Begin20;
var
  x1,y1,x2,y2,L: Real;
begin
  Writeln('Введите значение координат певой точки: ');
  Write('Введите значение x: ');
  Readln(x1);
  Write('Введите значение y: ');
  Readln(y1);
  Writeln('Введите значение координат второй точки: ');
  Write('Введите значение x: ');
  Readln(x2);
  Write('Введите значение y: ');
  Readln(y2);
  L:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  Writeln('Расстояние между точками равно: ',L);
end.

program Begin20;

var

x1,y1,x2,y2,L: Real;

begin

Writeln('Введите значение координат певой точки: ');

Write('Введите значение x: ');

Readln(x1);

Write('Введите значение y: ');

Readln(y1);

Writeln('Введите значение координат второй точки: ');

Write('Введите значение x: ');

Readln(x2);

Write('Введите значение y: ');

Readln(y2);

L:=sqrt(sqr(x1-x2)+sqr(y1-y2));

Writeln('Расстояние между точками равно: ',L);

end.

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

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

program Begin20;//pabc.net

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

begin
  var LenFunc: Func2<dot, dot, real> 
  := (a, b)-> Sqrt(Sqr(a.x - b.x) + Sqr(a.y - b.y)).Round(6);
  
  var a, b: dot;
  (a.x, a.y) := (ReadReal('x1 ='), ReadReal('y1 ='));
  (b.x, b.y) := (ReadReal('x2 ='), ReadReal('y2 ='));
  
  Print($'Расстояние между точками A{(a.x, a.y)} и B{(b.x, b.y)}:'
  + $' length = {LenFunc(a, b)}')
end.

program Begin20;//pabc.net

type

dot = record

x, y: real;

end;

var LenFunc: Func2<dot, dot, real>

:= (a, b)-> Sqrt(Sqr(a.x - b.x) + Sqr(a.y - b.y)).Round(6);

var a, b: dot;

(a.x, a.y) := (ReadReal('x1 ='), ReadReal('y1 ='));

(b.x, b.y) := (ReadReal('x2 ='), ReadReal('y2 ='));

Print($'Расстояние между точками A{(a.x, a.y)} и B{(b.x, b.y)}:'

+ $' length = {LenFunc(a, b)}')

Ответить

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

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

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

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