Question

Я создала програму но там есть ошибки, подскажите пожалуйста что не так. В текстовому файлі location.txt зберігаються координати чотирьох точок (послідовно x1,y1,x2,y2,x3,y3,x4,y4). Якщо координати утворюють прямокутник - знайти та вивести в текстовий файл output.txt периметр цього прямокутника (з точністю до трьох знаків), інакше-вивести в файл FALSE. program b_; var f,g:text; x1,y1,x2,y2,x3,y3,a,b,P:real; begin assign(f,'location.txt'); assign(g,'output.txt '); Read(f,x1,y1,x2,y2,x3,y3); a:=sqrt(sqr(x2-x1)+sqr(y2-y1)); b:=sqrt(sqr(x3-x2)+sqr(y3-y2)); P:=2*(a+b); write(g,P); Close(f); Close(g); end.

Answer 1

Решение в прикрепленном файле.  Предполагается, что координаты точек упорядочены.
 

Answer 2

В данной программе присутствуют несколько ошибок. Последовательно разберем их:

1. Ошибка в открытии второго файла: В строке `assign(g,'output.txt+');` символ "+" должен быть удален, чтобы строка выглядела так `assign(g,'output.txt');`

2. Ошибка в вычислении сторон прямоугольника: В строке `a:=sqrt(sqr(x2-x1)+sqr(y2-y1));` и `b:=sqrt(sqr(x3-x2)+sqr(y3-y2));` формулу для вычисления сторон прямоугольника нужно изменить на `a:=abs(x2-x1); b:=abs(y3-y2);` чтобы получить длины сторон, основанные на разнице координат.

3. Ошибка в открытии и закрытии файлов: Вместо `write(g,p);` должно быть `rewrite(g); write(g,p); close(g);` чтобы перезаписать файл и записать в него значение периметра прямоугольника.

Исправленный код программы выглядит следующим образом:

program b_;
var
  f, g: text;
  x1, y1, x2, y2, x3, y3, a, b, p: real;

begin
  assign(f, 'location.txt');
  assign(g, 'output.txt');
  reset(f);
  read(f, x1, y1, x2, y2, x3, y3);
  close(f);

a := abs(x2 - x1);
  b := abs(y3 - y2);
  p := 2 * (a + b);

rewrite(g);
  write(g, p);
  close(g);
end.

После исправления этих ошибок программа должна работать корректно. Она читает координаты из файла "location.txt", вычисляет периметр прямоугольника и записывает его в файл "output.txt". Если координаты не образуют прямоугольник, то в файл "output.txt" будет записано значение "false".