Студопедия

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника



Пример программы со сложным логическим выражением

Читайте также:
  1. C2 Покажите на трех примерах наличие многопартийной политической системы в современной России.
  2. C2 Раскройте на трех примерах научный вывод о том, что социальные условия влияют на характер и форму удовлетворения первичных (биологических, витальных) потребностей.
  3. II. Основные цели и задачи Программы, срок и этапы ее реализации, целевые индикаторы и показатели
  4. II. Основные цели, задачи и сроки реализации Программы
  5. II. Пример решения.
  6. II. Примеры проективных методик
  7. III. После этого раненую конечность лучше всего зафиксировать, например, подвесив на косынке или при помощи шин, что является третьим принципом оказания помощи при ранениях.
  8. III. Примерная тематика докладов
  9. III. Примеры решения задач.
  10. III. Примеры решения задач.

Составить программу, определяющую лежит ли точка с заданными координатами внутри заштрихованной области (рис. 3).

Решение. Рассматриваемая область состоит из двух частей, каждая из которых описывается системой неравенств.

I-я часть: х <= 0; х2 + у2 <=9; у > –х – 3.

II-я часть: х >= 0; х2 + у2 <= 25.

 


Рис. 3 Задание для разработки программы

Точка с координатами (x, у) лежит в заштрихованной области, если она принадлежит I-ой или II-ой части. Программа вводит координаты точки, вычисляет логическое выражение, определяющее принадлежность точки области и выводит соответствующее сообщение на экран.

Program Point;

{Описание переменных: x, у – координаты точки}

Var x, y: real;

Begin

{Ввод данных}

Writeln ('Введите значение x'); Readln (x);

Writeln ('Введите значение y'); Readln (y);

{Определение принадлежности точки заштрихованной области}

If (X<=0) and (Sqr(X) + Sqr(Y) <= 9) and (Y >= –X – 3)
or (X >= 0) and (Sqr(X) + Sqr(Y) <= 25)

thenWriteln ('Точка лежит в заданной области')

elseWriteln ('Точка не лежит в заданной области');

{Организация временной задержки}

Readln;

End.


Дата добавления: 2015-04-11; просмотров: 31; Нарушение авторских прав


<== предыдущая лекция | следующая лекция ==>
Организация ветвлений в программе | Вложенные условные операторы
lektsii.com - Лекции.Ком - 2014-2018 год. (0.008 сек.) Главная страница Случайная страница Контакты