Нахождение площади прямоугольника по его вершинам - Pascal ABC

  1. Здравствуйте, необходимо найти площадь прямоугольника по его вершинам, не могу понять в чем моя ошибка?


textual

Код к задаче: «Нахождение площади прямоугольника по его вершинам - Pascal ABC»

const p=0.0001;{точность сравнения длин}
      n=4; {кол.точек}
      m=6;{кол. отрезков=4 стороны+2 диагонали}
type Point=record {тип - точка}
           x,y:real;
           end;
{вычисление длины отрезка}
function Dlina(a,b:Point):real;
begin
Dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
var t:array[1..n] of Point;{массив точек}
    d:array[1..m] of real;{массив длин сторон и диагоналей}
    i,j,k,l:byte;
    s:real;
begin
clrscr;
writeln('Введите координаты вершин прямоугольника в произвольном порядке:');
for i:=1 to n do
  begin
   writeln('Вершина ',i);
   write('x=');readln(t[i].x);
   write('y=');readln(t[i].y);
  end;
writeln('Координаты:');
write('№');
for i:=1 to n do
write(i:4);
writeln;
write('X:');
for i:=1 to n do
write(t[i].x:4:1);
writeln;
write('Y:');
for i:=1 to n do
write(t[i].y:4:1);
writeln;
writeln;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  k:=k+1;
  d[k]:=Dlina(t[i],t[j]);
 end;
for i:=1 to m-1 do {сортируем длины по возрастанию}
for j:=i+1 to m do
if d[i]>d[j] then
 begin
  s:=d[i];
  d[i]:=d[j];
  d[j]:=s;
 end;
{если первые 4 попарно равны и последние 2 равны и они больше первых}
if ((abs(d[1]-d[2])<p)and(abs(d[3]-d[4])<p))
and(abs(d[5]-d[6])<p)and(d[5]>d[4]) then
 begin
  s:=d[1]*d[3];
  write('Площадь прямоугольника=',s:0:2);
 end
else write('Это не прямоугольник');
end.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.333 из 5



Похожие ответы
  1. Описать процедуру SqP(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, P и S — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с противоположными вершинами. P.S. помогите пожалуйста это решить,заранее спасибо за помощь)

  1. Определение площади круга, длины окружности и объема шара с использованием в качестве радиуса суммы знаков трехзначного числа.

  1. Есть файл с некоторыми словами в *.txt файле. Надо составить программу, которая при вводе любых символов, узнавала можно ли из них составить слово, которое есть в *.txt. Спасибо.

  1. Добрый вечер программисты. Помогите с задачами на pascal ABC. У меня плохо идет pascal и прошу помочь знатоков. Вот две задачи: С клавиатуры вводятся гипотенуза и один из катетов для каждого из трёх прямоугольных треугольников. Вычислить площади этих треугольников и вывести на экран наибольшую площадь. С клавиатуры вводятся 3 стороны для каждого из трёх треугольников. Для каждого треугольника определить, является ли он прямоугольным, и если является, то вычислить его периметр. Заранее спасибо.

  1. Вот формула :ППТ(м^2)=0,0003207*вес(г)(0,7285-0,0188*log10 вес(г)*рост(см)0.3

  1. Добрый вечер. Помогите, пожалуйста, не могу объединить эти две программы нахождения минимального элемента в каждом столбце и максимального в каждой строке вместе.

  1. Написать программу рисования на экране и вычисления периметра и площади четырехугольника по координатам его четырех точек с использованием функций Pifagor, LengthLine и Geron

  1. Пусть имеется прямоугольный лабиринт, разбитый на клетки со стороной 1 метр. Длина лабиринта — n метров, ширина — m метров. На плане лабиринта закрашенная клетка соответствует непроходимому препятствию. Высота лабиринта всюду одинакова и равна 3 (трем) метрам. Вход в лабиринт и выход всегда размещены в левом верхнем и правом нижнем углах. Нумерация клеток начинается из левого верхнего угла. Перед открытием сезона необходимо оклеить все внутренние стены лабиринта новыми обоями. Опишите алгоритм определения общей площади всех внутренних стен лабиринта. Входные данные n, m; двухмерный массив (прямоугольная таблица) размерностью n × m. Элементы массива принимают одно из двух значений: “пусто” или “занято”. Пример Лабиринт (n = 14, m = 12), карта которого представлена ниже, имеет площадь внутренних стен 104 × 3 = 312 м2 . Контуры внутренних стен на рисунке выделены жирной линией.

  1. Условия: 1) Без процедур; 2) Массив с 10 чисел, которые пользователь вводит сам; 3) Элемент, который нужно найти, пользователь вводит сам, после ввода массива; 4) Вывести: ---если элемент есть, то его номер в массиве; ---если элемента нету, вернуться опять к вводу числа, которое нужно найти (не обязательно). ---если элемента нету, вывести, что его нету и завершить программу.