Задача вроде простая, но написать не могу

milash · 21.03.2011, 12:08

Ввести a,b,c,d,x и написать алгорит вычисления I=1, если точка x принадлежит одновременно отрезкам [a,b] b [c,d], I=пустое множество иначе.
данные для ввода: a,b,c,d,x=
1,2,3,4,2
результат: I= пустое множество.
данные для ввода: a,b,c,d,x=
1,4,2,5,3
результат:
I=1

shrek=) · 21.03.2011, 13:52

Если я верно понял задание

и язык программирования Pascal, то листинг такой:

Код:

var
a,b,c,d,x:real;
I:string;
begin
writeln ('Веведите значение a b c d x (через пробел)');
readln (a,b,c,d,x);
if (a<x) and (c<x) and (b>x) and (d>x) then I:='1' else I:='пустое множество';
writeln ('Результат - ',I);
readln
end.

milash · 22.03.2011, 15:20

shrek,спасибо большое))

21.03.2011, 12:08	#1 (permalink)
milash Новичок Регистрация: 21.03.2011 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача вроде простая, но написать не могу Ввести a,b,c,d,x и написать алгорит вычисления I=1, если точка x принадлежит одновременно отрезкам [a,b] b [c,d], I=пустое множество иначе. данные для ввода: a,b,c,d,x= 1,2,3,4,2 результат: I= пустое множество. данные для ввода: a,b,c,d,x= 1,4,2,5,3 результат: I=1

21.03.2011, 13:52	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Если я верно понял задание и язык программирования Pascal, то листинг такой: Код: var a,b,c,d,x:real; I:string; begin writeln ('Веведите значение a b c d x (через пробел)'); readln (a,b,c,d,x); if (a<x) and (c<x) and (b>x) and (d>x) then I:='1' else I:='пустое множество'; writeln ('Результат - ',I); readln end.

21.03.2011, 12:08
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	На форуме много схожих тем, можете полистать Простая цветомузыкальная приставка Вроде как бы ИБП Помогите! Вроде элементарно но не получается! Есть ли что-то вроде виртуального манекена?

22.03.2011, 15:20	#3 (permalink)
milash Новичок Регистрация: 21.03.2011 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	shrek,спасибо большое))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070