|
|
|
|
ЛАБОРАТОРНАЯ №1 ВАРИАНТ 1
| Задача:
Даны три точки на прямой: А, В, С. Проверить, попадает ли точка С на отрезок АВ (или ВА). Координаты всех точек вводятся с клавиатуры. Результат выводится на экран в удобном для восприятия виде.
|
| Решение: |
| >>Скачать<< |
program task1;
var x1,y1,x2,y2,x3,y3,y,r,r2:real;
procedure vvod;
begin
{VVOD DANNIH}
writeln('VVEDITE KOORDINATI TOCHKI');
write('A:');
readln(x1,y1);
write('B:');
readln(x2,y2);
write('C:');
readln(x3,y3);
end;
procedure proverka;
begin
y:=(((x3-x1)*(y2-y1))/(x2-x1))+y1;
if y=y3 then {PROVERKA PRINADLEGHNOSTI PRYAMOI A B}
begin
{PROVERKA PRINADLEGHNOSTI OTREZKU AB}
if x1 < x2 then if (x1 <= x3) and (x3 <= x2) then r:=1;
if x2 < x1 then if (x2 <= x3) and (x3 <= x1) then r:=1;
if y1 < y2 then if (y1 <= y3) and (y3 <= y2) then r2:=1;
if y2 < y1 then if (y2 <= y3) and (y3 <= y1) then r2:=1;
end;
end;
procedure vivod;
begin
{VIVOD REZULTATA}
if (r = 1) and (r2 = 1) then writeln('C prinadleghit AB')
else writeln('C ne prinadleghit AB');
end;
begin
vvod;
proverka;
vivod;
readln;
end.
|
|
| |
