Заданы координаты трех точек плоскости. Эти точки не лежат на одной прямой? Нужна программа в Паскале.
10-11 класс
|
var x1,x2,x3,y1,y2,y3:real;
begin
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
if (x3-x1)*(y2-y1)=(x2-x1)*(y3-y1) then writeln('lejat na pryamoi') else writeln('ne lejat na pryamoi');
end.
Другие вопросы из категории
в знаменателе после скобок квадрат
секунду в режиме моно.
цифр этого числа. 2) Даны три числа. Подсчитать количество четных чисел . Заранее спасибо !
Читайте также
Найти координаты точки М, где М - середина ВС
Нужна программа в паскале, помогите пожалуйста.
A) 100 точек;
B) 200 точек;
C) 400 точек;
Ход состоит в том, что игрок перемещает фишку из точки с координатами (x,y) в одну из трех точек: или в точку с координатами (x+3,y), или в точку с координатами (x,y+3), или в точку с координатами (x,y+4). Выигрывает игрок, после хода которого расстояние по прямой от фишки до точки с координатами (0,0) не меньше 10 единиц. Кто выигрывает при безошибочной игре – первый или второй игрок? На каком шаге игры произойдет выигрыш? Каким должен быть первый ход выигрывающего игрока?
Program Frankenstein;
var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=r
then writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');
End.
Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?