Области, описываемые логическими выражениями - Pascal

@GrewL · Регистрация: 13.06.2017

Author24 — интернет-сервис помощи студентам

Нужно написать программу, которая печатает true, если точка (x;y) принадлежит закрашенной области.

@Puporev · 13.06.2017, 18:36

Pascal

var x,y:real;
    f:boolean;
begin
writeln('Введите координаты точки');
readln(x,y);
f:=(x>=2)and(y<=-4*x/3+23/3)and(y>=5*x/3-22/3);
write(f)
end.

@GrewL · 13.06.2017, 18:52 **[ТС]**

Puporev, А можно математическое решение этой задачи ?

@Zwelenewskiy · 13.06.2017, 18:55

GrewL, а что тогда Вам дали?)

@Puporev · 13.06.2017, 18:56

Сообщение от GrewL

А можно математическое решение этой задачи ?

Через интегралы что ли, или как?

@GrewL · 13.06.2017, 18:56 **[ТС]**

Zwelenewskiy, Программу. А я имел ввиду получение уравнений

@GrewL · 13.06.2017, 19:02 **[ТС]**

Puporev, Что-то на подобие этого

@Puporev · 13.06.2017, 19:25

Нам нужно 2 прямых, а не 3, третья вертикальная x=2.
А решать лучше так

Лишнее из кода можете убрать.

Pascal

var x,y,x1,y1,x2,y2,x3,y3,x4,y4,k1,b1,k2,b2:real;
    f:boolean;
begin
x1:=2;y1:=5;
x2:=5;y2:=1;
k1:=(y2-y1)/(x2-x1);
b1:=y1-(y2-y1)/(x2-x1)*x1;
writeln('k1=',k1:0:2,' b1=',b1:0:2);//вот это
x3:=2;y3:=-4;
x4:=5;y4:=1;
k2:=(y4-y3)/(x4-x3);
b2:=y3-(y4-y3)/(x4-x3)*x3;
writeln('k2=',k2:0:2,' b2=',b2:0:2);// и это
writeln('Введите координаты точки');
readln(x,y);
f:=(x>=2)and(y<=k1*x+b1)and(y>=k2*x+b2);
write(f)
end.

@GrewL · 13.06.2017, 19:27 **[ТС]**

Puporev, Спасибо большое

Области, описываемые логическими выражениями - Pascal

Решение

Решение

@GrewL 0 / 0 / 0 Регистрация: 13.06.2017 Сообщений: 6
		1
	Области, описываемые логическими выражениями - Pascal 13.06.2017, 18:06. Показов 2488. Ответов 8 Метки нет (Все метки) Нужно написать программу, которая печатает true, если точка (x;y) принадлежит закрашенной области. Изображения 0

@GrewL 0 / 0 / 0 Регистрация: 13.06.2017 Сообщений: 6
	13.06.2017, 18:52 [ТС]	3
	Puporev, А можно математическое решение этой задачи ? 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	13.06.2017, 18:55	4
	GrewL, а что тогда Вам дали?) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.06.2017, 18:56	5
	Сообщение от GrewL А можно математическое решение этой задачи ? Через интегралы что ли, или как? 0

@GrewL 0 / 0 / 0 Регистрация: 13.06.2017 Сообщений: 6
	13.06.2017, 18:56 [ТС]	6
	Zwelenewskiy, Программу. А я имел ввиду получение уравнений 0

@GrewL 0 / 0 / 0 Регистрация: 13.06.2017 Сообщений: 6
	13.06.2017, 19:02 [ТС]	7
	Puporev, Что-то на подобие этого Миниатюры 0

@GrewL 0 / 0 / 0 Регистрация: 13.06.2017 Сообщений: 6
	13.06.2017, 19:27 [ТС]	9
	Puporev, Спасибо большое 0