Помогите проверить точки на принадлежность.

@Full_h_Di · Регистрация: 24.03.2011

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

Необходимо определить принадлежность числа к отрезку АВ

@stimo15 · 21.10.2011, 19:13

Pascal

program tach;
uses crt;
var a,b,c:real;
begin
clrscr;
writeln('введите начало и конец отрезка');
readln(a,b);
writeln('введите число');
readln(c);
if (c>a) and (c<b) then writeln('число принадлежит отрезку') else writeln('число не принадлежит отрезку');
readln;
end.

@Full_h_Di · 21.10.2011, 19:22 **[ТС]**

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

Pascal

program tach;
uses crt;
var a,b,c:real;
begin
clrscr;
writeln('введите начало и конец отрезка');
readln(a,b);
writeln('введите число');
readln(c);
if (c>a) and (c<b) then writeln('число принадлежит отрезку') else writeln('число не принадлежит отрезку');
readln;
end.

Ооооо.... От души братан... Спасибо большое.

@stimo15 · 21.10.2011, 19:42

Только смотри, тебе надо принадлежность определять включительно или нет? Если включительно то 10 строку замени на вот такую

Pascal

1	if (c>=a) and (c<=b) then writeln('число принадлежит отрезку') else writeln('число не принадлежит отрезку');

@Full_h_Di · 21.10.2011, 20:08 **[ТС]**

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

Только смотри, тебе надо принадлежность определять включительно или нет? Если включительно то 10 строку замени на вот такую

Pascal

1	if (c>=a) and (c<=b) then writeln('число принадлежит отрезку') else writeln('число не принадлежит отрезку');

Ок. СПС.

@Full_h_Di 2 / 2 / 0 Регистрация: 24.03.2011 Сообщений: 58
		1
	Помогите проверить точки на принадлежность. 21.10.2011, 18:56. Показов 771. Ответов 4 Метки нет (Все метки) Необходимо определить принадлежность числа к отрезку АВ 0

	21.10.2011, 20:08