Вопрос по информатике:
Даны коэффициенты прямой y=kx+b и координаты двух точек. Верно ли, что эти точки лежат по разные стороны от прямой? Язык программирования: Паскаль
- 24.09.2015 14:36
- Информатика
- remove_red_eye 9877
- thumb_up 16
Ответы и объяснения 1
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 (y1y2) then
Label1.Caption := 'Верно'
else
Label1.Caption := 'Неверно';
end;
- 25.09.2015 18:54
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.