Даны четыре точки. Определить, являются ли они вершинами параллелограмма - Free Pascal

  1. Помогите решить. Даны четыре точки A1(x1, y1), A2(x2, y2), A3(x3, y3), A4(x4, y4). Определить, будут ли они вершинами параллелограмма.


textual

Код к задаче: «Даны четыре точки. Определить, являются ли они вершинами параллелограмма - Free Pascal»

uses crt;
const t=0.00001;
procedure Sered(x1,y1,x2,y2:real;var xs,ys:real);
begin
xs:=(x1+x2)/2;
ys:=(y1+y2)/2;
end;
var x1,y1,x2,y2,x3,y3,x4,y4,sx1,sy1,sx2,sy2:real;
begin
clrscr;
writeln('Введите координаты вершин в порядке обхода:');
writeln('Вершина 1:');
write('x=');readln(x1);
write('y=');readln(y1);
writeln('Вершина 2:');
write('x=');readln(x2);
write('y=');readln(y2);
writeln('Вершина 3:');
write('x=');readln(x3);
write('y=');readln(y3);
writeln('Вершина 4:');
write('x=');readln(x4);
write('y=');readln(y4);
Sered(x1,y1,x3,y3,sx1,sy1);
writeln('Координаты середины диагонали 1-3:');
writeln(sx1:0:2,' ',sy1:0:2);
Sered(x2,y2,x4,y4,sx2,sy2);
writeln('Координаты середины диагонали 2-4:');
writeln(sx2:0:2,' ',sy2:0:2);
if(abs(sx1-sx2)<t)and(abs(sy1-sy2)<t)then write('Это параллелограмм')
else write('Это не параллелограмм');
readln
end.

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

8   голосов, оценка 4.000 из 5



Похожие ответы
  1. Напишите программу коротая вводит четырехзначное число и вырезать из него первую и последованию цифру .(напитать программу в ПАСКАЛЕ( Free Pascal IDE или другой ) и qбесик (64 или другой)). Например: 1234=23 4567=56

  1. С помощью логической переменной разработать программу.Сумма двух крайних цифр заданного четырехзначного числа равна сумме двух его средних цифр.

  1. Помогите, пожалуйста, создать Составить линейную программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE – в противном случае. Высказывание: Сумма первых цифр заданного четырехзначного числа N равна произведению двух последних.

  1. 5.Вывести все четырехзначные числа у которых сумма первых двух цифр равна сумме вторых двух цифр.

  1. Задача: Напишите программу, которая по введенному не более чем четырехзначному числу k будет выдавать сумму его цифр. что писать после x0(1,2,3)? и вообще правильно ли я пишу?

  1. найти наименьшее общее кратное четырех заданных чисел

  1. 1. Дано действительное число A. Пользуясь только умножением, получить A6 за три операции и A7 за четыре операции и вычислить eA6 и eA7 .

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

  1. на плоскости заданы три точки. вычислить площадь треугольника , вершинами которого являются эти точки. проверить , что эти точки лежат не на одной прямой(если точки лежат на одной прямой , то площадь треугольника равна 0)