Определение положения точки с координатами (x,y) между окружностью и ромбом, за исключением первого квадранта

Федеральное агентство по образованию РФ

Санкт-Петербургский государственный электротехнический

университет «ЛЭТИ»

Кафедра ТВ

Отчёт по лабораторной работе по теме:

TurboPascal №2

                                                                         Выполнил студент группы 6151:

                                                                         Преподаватель:

                                                                         Мончак А.М.

Санкт-Петербург

2006

1. На плоскости действительных чисел заданы окружность радиуса 2 с центром в начале координат и квадрат с вершинами (-2;0), (0;2), (2;0), (0;-2). Определить, лежит ли точка с координатами (x,y) между окружностью и ромбом, за исключением первого квадранта.

2. Определить удовлетворяют ли x и y системе .

3.

4. Блок-схема

5. Текстпрограммы:

program Romb_in_krug;

uses crt;

var

   x,y:real;

Begin

        clrscr;

        writeln ('Vvedite koordinaty tochki');

        write ('x=');readln(x);

        write ('y=');readln(y);

     if ((y>0) and (x>0)) or (sqrt(x*x+y*y)>=2) or (abs(y)=<abs(2-abs(x))) then

        write ('NET')

     else

        write ('DA');

     readln;

end.

6.  Пример исполнения:

            Ввели x=0, y=0, получили ответ “НЕТ”

            Ввели x=-1,5, y=1, получили ответ “ДА”

            Ввели x=2, y=2, получили ответ “НЕТ”

            Ввели x=-2, y=-2, получили ответ “НЕТ”

            Ввели x=1, y=-1,5, получили ответ “ДА”

7. Инструкция пользователя.

1)  Запустите программу

2)  Введите координаты точки “x” и “у” (после ввода каждой координаты нажимать клавишу  “Enter”)

3)  После вывода ответа нажать клавишу  “Enter” для выхода из программы