ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ С ИСПОЛЬЗОВАНИЕМ УСЛОВНОГО ОПЕРАТОРА»

Министерство науки и высшего образования Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего образования «Рязанский государственный радиотехнический университет имени В.Ф. Уткина»

Кафедра «ВПМ»

Отчет о лабораторной работе № 3

Вариант 4

«ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ С ИСПОЛЬЗОВАНИЕМ УСЛОВНОГО ОПЕРАТОРА»

Выполнила:

ст. гр. 046

Бурцева С.

Проверили:

с.п. Москвитина О.А.

доцент, к.т.н. Макаров Н.П.

Рязань 2020

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

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

Блосхема:

Программа:

{Лабораторная работа №3}

{Цель работы - научиться программировать алгоритмы разветвляющейся структуры с использованием условного оператора.}

{Тема работы: Программирование алгоритмом разветвляющейся структуры с использованием условного оператора . }

{Переменные - х - абцисса точки, у - ордината точки, х1 - абцисса центра окружностей,у1 - ордината центра окружностей,

r - радиус меньшей окружности,R1 - радиус большей окружности,а - длина от центра окружностей до искомой точки (x,y)}

{ Программист: Бурцева Светлана Николаевна гр. 046}

{Проверили: с.п. Москвитина О.А. доц. к.т.н. Макаров Николай Петрович}

{Дата выполнения: 29.09.2020г.}

ProgramLab3;

Var

a,x,y,x1,y1,r,R1:real;

Begin

Writeln('Зададим координаты центра окружностей и их радиусы x1,y1,r,R1');

Readln(x1,y1,r,R1);

Writeln('Зададим координаты которые необходимо определить');

Readln(x,y);

a:=sqr(x-x1)+sqr(y-y1);

if(a>=sqr(r))and(a<=sqr(R1))

then

Writeln('Точка принадлежит заштрихованной области')

else

Writeln('Точка вне заштрихованной области');

End.

Окно вывода:

Зададим координаты центра окружностей и их радиусы x1,y1,r,R1

5 4 1.5 2

Зададим координаты которые необходимо определить

5 4

Точка вне заштрихованной области

Вывод: Янаучилась программированию алгоритмов разветвляющейся структуры с использованием условного оператора.