МИРЭА

Лабораторная работа № 2

Тема:

“Ветвящиеся процессы”

Вариант 4

Кафедра РПУ

Выполнил ст.

гр. ВРУ-3-02

Проверил

Давлечин Д.И.

2003

Цель: Получить навыки использования условного оператора.

Постановка задачи.

Задание: Составить программу, определяющую, попадает ли точка в заштрихованную область.

_{Описание задачи .}

_{Программа должна определять координаты точки, которые вводит оператор и сравнивать полученные данные с заданными формулами. При положительном ответе программа должна выводить ответ “DA”, при отрицательном ответ “NET”.}

_{В задании дан эллипс, каноническое уравнение которого}

учитывая наше задание, каноническое уравнение эллипса можно записать так:

Внутри эллипса область определения ограничивается двумя прямыми, уравнения которых можно записать так:

_{х = 1}

_{х = -1}

Отсюда можно сделать вывод и записать систему уравнений:

Далее можно упростить запись системы:

Алгоритм выполнения задачи.

После запуска программы на дисплей выводится запрос на ввод координаты x, затем координаты y. Далее программа по формулам обрабатывает полученные данные и в случае положительного ответа на дисплей выводится сообщение “DA”, в случае отрицательного ответа “NET”.

Независимо от ответа на монитор выводится строка в которой предлагается продолжить работу или нажав “D” выйти из программы. При нажатии на клавишу <ENTER> программа зацикливается и на дисплей опять выводится запрос на ввод координат.

Спецификация.

В разделе описания переменных X, Y – переменные координат, S – символьный тип, используемый для команды окончания программы.

В используется условный оператор IF…THEN…ELSE… отвечающий за ветвление программы и оператор цикла REPEAT…UNTIL…

Текст программы показан на следующей странице.

PROGRAM LOGICH;

{ Proga opredeleniya pologeniya tochki}

VAR

X, Y: REAL;

S: CHAR;

BEGIN

WRITELN('***********************************');

WRITELN('* Opredelenie popadaniya tochki *');

WRITELN('***********************************');

WRITELN('* ************** *');

WRITELN('* * VRU-3-02 * *');

WRITELN('* ************** *');

WRITELN('* *********************** *');

WRITELN('* ** ** *');

WRITELN('* * OOO OOO * *');

WRITELN('* * t * *');

WRITELN('* * t * *');

WRITELN('* * ***** * *');

WRITELN('* * *** * *');

WRITELN('* ******** *');

WRITELN('* KUDRYASCHOV ANDREY *');

WRITELN('***********************************');

REPEAT

WRITELN('Vvedite koordinatu x');

READ(X);

WRITELN('Vvedite koordinatu y');

READLN(Y);

IF (ABS(X) >= 1) AND (X*X/4+Y*Y <=1)

THEN WRITELN('DA')

ELSE WRITELN(' NET');

WRITELN('Dlya prodolgeniya <ENTER>');

WRITELN(‘Dlya okonchaniya <D>’);

READ(S);

{WRITELN(ORD(S))};

UNTIL ORD(S) = 68;

END.

Результаты работы программы.

Работа программы соответствует заданию.