Даны коэффициенты прямой y=kx+b и координаты двух точек. верно ли, что эти точки лежат по разные стороны от прямой? язык программирования: паскаль
193
442
Ответы на вопрос:
Procedure tform1.button1click(sender: tobject); var x1,y1,x2,y2,yf1,yf2 : integer; k,b : integer; begin x1 : = 4; y1 : = -5; x1 : = 0; y1 : = 5; k : = 2; b: = 2; yf1 : = k*x1 + b; yf2 : = k*x2 + b; if (y1> yf1) then y1: =1 else y1: =-1; if (y2> yf2) then y2: =1 else y2: =-1; if (y1< > y2) then label1.caption : = 'верно' else label1.caption : = 'неверно'; end;
Популярно: Информатика
-
Bernardeschi11.12.2021 16:45
-
Dima89043807.08.2022 07:52
-
nikitaoksin20103.09.2022 09:35
-
natslig12.08.2022 00:58
-
ktlwfh08.09.2021 01:07
-
smusylolo05.12.2021 08:25
-
ievghienii109.03.2020 08:22
-
solnechnaya222.01.2021 15:41
-
StasVelichko05.10.2020 00:58
-
ViktoriaDog200605.06.2023 11:45