ФУНКЦИИ
и ГРАФИКИ

ЭЛЕМЕНТАРНЫЕ ФУНКЦИИ
ГРАФИКИ
ТЕСТЫ
КОНТАКТЫ
КАРТА САЙТА
НА ГЛАВНУЮ

NEW !!!

ПРОГРАММИРОВАНИЕ
TURBO PASCAL
C++
ПРОВЕРЬ СВОИ ЗНАНИЯ!
ЛАБОРАТОРНАЯ №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.




Используются технологии uCoz