[andbrey]

Кому не жалко времени хлелп пожалуйста!

Лабораторная работа № 1
Проверка попадания точки в заданную область
ЗАДАНИЕ. Построить графически область, все точки которой расположены ВСТАВКА А, при этом все они лежат ВСТАВКА Б и ВСТАВКА В. Составить программу, которая считывает координаты заданного (преподавателем) числа точек, подчеркивая строкой звездочек те из них, которые ВСТАВКА Г в заданную область. Индивидуальное задание для данной работы можно получить в конце методического указания.
ВСТАВКА А:
0) Выше оси абсцисс;
1) Ниже оси абсцисс;
2) Левее оси ординат;
3) Правее оси ординат;
4) Во второй четверти;
5) В третьей четверти;
6) В четвертой четверти.
ВСТАВКА Б:
0. Выше параболы Y= 2X^2 -1;



1.Ниже параболы Y= 2X^2-1;



2. Левее параболы Y = (X+1) ^2-1;


3. Ниже прямой Y = 2X –1.
4. Выше прямой Y = –X
ВСТАВКА В:
0. Внутри круга радиуса 4 с центром в точке X=0, Y=0;
1. Вне круга единичного радиуса с центром в точке x=0, y=0;
2. Внутри круга радиуса 5 с центром в точке x = 0, y = 1.
ВСТАВКА Г:
0. Не попадают;
1. Попадают.


Порядок выполнения работы

1. В декартовой системе координат строится область в соответствии с индивидуальным заданием.
2. Составляется схема алгоритма.
3. Проводится кодирование и отладка.
Отчет должен содержать
1. Блок-схему программы.
2. График заданной области.
3. Листинг программы на языке Паскаль.

Эталонный пример

Код:

{Вариант 5,2,0,0}
Program Lab1;
Uses crt;
Var
    I:Integer;
    N:Integer;
    X,Y:Real;
Begin
    ClrScr;
    Write('Введите количество точек'); 
    Readln(N);
    For i:= 1 to N Do 
    Begin
        Write('Введите X ');
        Readln(X);
        Write('Введите Y ');
        Readln(Y);
        if( (x>-1) or (y>0) or ( y>(x*x+2*x) ) or
 ( (sqr(x)+sqr(y))>16 ) ) Then
        Begin
 writeln('**************************************************');
        End;
    End;
    Readkey;
End.

Админ: Пользуемся тегами для оформления кода!