Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
KOLIS331
0 / 0 / 0
Регистрация: 12.02.2017
Сообщений: 3
1

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

12.02.2017, 17:34. Просмотров 970. Ответов 5
Метки нет (Все метки)

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


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program Primer;
Var a,b,X,Y,X1,Y1,X2,Y2,S:integer;
Begin
WriteLn('Введите координаты вершин');
Read(X,Y,X1,Y1);
abs(a):=SQRT(SQR(X-X1)*SQR(Y-Y1));
WriteLn('Модуль a='abs(a));
WriteLn('Введите координаты вершин');
Read(X,Y,X2,Y2);
abs(b):=SQRT(SQR(X-X2)*SQR(Y-Y2));
WriteLn('Модуль b='abs(b));
WriteLn('Введите длину и ширину прямоугольника');
Read(a,b);
S:=a*b;
WriteLn('Площадь прямоугольника='S);
End.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2017, 17:34
Ответы с готовыми решениями:

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

Нахождение длины кратчайшего пути от одной вершины-источника ко всем остальным вершинам графа
Напишите программу, реализующую нахождение длины кратчайшего пути от одной...

Вычисление площади прямоугольника
В декартовой системе координат даны координаты 4-х точек, которые являются...

Программа нахождения площади прямоугольника
Помогите пожалуйста выполнить задание по информатике:напишите программу на...

Операторы цикла. Вычисление площади и периметра прямоугольника.
программа вычисления площади и периметра прямоугольника-помогите решить задачу...

5
Puporev
Модератор
55015 / 42309 / 29215
Регистрация: 18.05.2008
Сообщений: 99,973
12.02.2017, 17:48 2
Цитата Сообщение от KOLIS331 Посмотреть сообщение
площадь прямоугольника по его вершинам,
Каким вершинам, как они расположены относительно осей координат? Напишите точное и полное условие задачи.
0
KOLIS331
0 / 0 / 0
Регистрация: 12.02.2017
Сообщений: 3
12.02.2017, 18:13  [ТС] 3
Задача: прямоугольник задан координатами своих вершин. Найти его площадь.
0
Puporev
Модератор
55015 / 42309 / 29215
Регистрация: 18.05.2008
Сообщений: 99,973
12.02.2017, 18:32 4
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Если вводятся произвольные координаты вершин в произвольном порядке, то так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
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.
2
KOLIS331
0 / 0 / 0
Регистрация: 12.02.2017
Сообщений: 3
12.02.2017, 18:40  [ТС] 5
Спасибо большое воспользуюсь Вашим советом, но к сожелению мы этого не проходили ещё=(
0
Puporev
Модератор
55015 / 42309 / 29215
Регистрация: 18.05.2008
Сообщений: 99,973
12.02.2017, 18:44 6
К сожалению если стороны прямоугольника не обязательно параллельны сям координат, а вершины вводятся произвольно, а не в порядке обхода, решение будет сложным.
0
12.02.2017, 18:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2017, 18:44

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

Вычислить площади трех геометрических фигур : прямоугольника,треугольника, круга
вычислить площади трех геометрических фигур : прямоугольника,треугольника, круга

Вычислить площадь прямоугольника, используя формулу Герона для вычисления площади треугольника
помогите ПОЖАЛУЙСТА!!!!!!!!!!!! ФУНКЦИИ; 1,Даны длины сторон прямоугольника а...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru