Записать логические выражения, используя условные операторы, операции отношений и логические операции.

@Алина З · Регистрация: 18.12.2015

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

Нужно: Текст программы (включая подробные комментарии)
Блок-схему алгоритма

Записать логические выражения, используя условные операторы, операции отношений и логические операции алгоритмического языка.

@Zwelenewskiy · 30.04.2017, 21:36

Я не понял, какие операции отношений здесь нужно использовать

Pascal

var
  x, y: real;
  a: boolean;
 
begin
  write('Введите Х: ');
  read(x);
  write('Введите Y: ');
  read(y);
  
  a := (((y < 1) and (y > -1)) or ((x > 2) and (x < 2))) and (y * y + x * x > 1); 
  writeln(a);
  
end.

Добавлено через 1 минуту
Вариант с условными операторами

Pascal

var
  x, y: real;  
 
begin
  write('Введите Х: ');
  read(x);
  write('Введите Y: ');
  read(y);
  
  if (((y < 1) and (y > -1)) or ((x > 2) and (x < 2))) and (y * y + x * x > 1) 
  then writeln('Принадлежит')
  else writeln('Не принадлежит');
  
end.

@Joy · 01.05.2017, 04:30

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

((x > 2) and (x < 2))

- и когда такое условие выполнится?
и границы тоже включать надо, судя по рисунку

@Zwelenewskiy · 01.05.2017, 10:44

Joy, не пойму, почему, например, точка (9;0,9) принадлежит указанной области. Т.е. почему не работает условие с иксами?

Pascal

var
  x, y: real;  
 
begin
  write('Введите Х: ');
  read(x);
  write('Введите Y: ');
  read(y);
  
  if (((y < 1) and (y > -1)) or ((x < 2) and (x > -2))) and (y * y + x * x >= 1) 
  then writeln('Принадлежит')
  else writeln('Не принадлежит');
  
end.

@Joy · 01.05.2017, 12:23

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

Т.е. почему не работает условие с иксами?

потому-что написано Y или X, а надо И

@Zwelenewskiy · 01.05.2017, 15:03

Теперь,вроде бы, работает правильно

Pascal

var
  x, y: real;  
 
begin
  write('Введите Х: ');
  read(x);
  write('Введите Y: ');
  read(y);
  
  if (y <= 1) and (y >= -1) and (x <= 2) and (x >= -2) and (y * y + x * x >= 1) 
  then writeln('Принадлежит')
  else writeln('Не принадлежит');
  
end.

@Алина З · 14.05.2017, 15:14 **[ТС]**

Пришлите пожалуйста к этой программе блок-схему

@Алина З 0 / 0 / 0 Регистрация: 18.12.2015 Сообщений: 36
		1
	Записать логические выражения, используя условные операторы, операции отношений и логические операции. 30.04.2017, 15:38. Показов 11437. Ответов 6 Метки нет (Все метки) Нужно: Текст программы (включая подробные комментарии) Блок-схему алгоритма Записать логические выражения, используя условные операторы, операции отношений и логические операции алгоритмического языка. Миниатюры 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	01.05.2017, 04:30	3
	Сообщение от Zwelenewskiy ((x > 2) and (x < 2)) - и когда такое условие выполнится? и границы тоже включать надо, судя по рисунку 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	01.05.2017, 12:23	5
	Сообщение от Zwelenewskiy Т.е. почему не работает условие с иксами? потому-что написано Y или X, а надо И 0

@Алина З 0 / 0 / 0 Регистрация: 18.12.2015 Сообщений: 36
	14.05.2017, 15:14 [ТС]	7
	Пришлите пожалуйста к этой программе блок-схему 0

Опции темы