Студопедия

КАТЕГОРИИ:

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


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




Составить программу, определяющую лежит ли точка с заданными координатами внутри заштрихованной области (рис. 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; просмотров: 184; Мы поможем в написании вашей работы!; Нарушение авторских прав





lektsii.com - Лекции.Ком - 2014-2024 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав
Главная страница Случайная страница Контакты