Var X,y : real; { координаты точки на плоскости }
ch : char; { символ нажатой клавиши }
Next, { признак ввода следующей точки }
Cond : boolean; { признак принадлежности точки }
{ фигуре }
Begin
Repeat
ClrScr;
Writeln('Введите координаты точки x,y');
Read(x,y);
Writeln('x = ',x:5:1,' y = ',y:5:1);
Cond:=true;
If (x>0) and (y>=0) then { Первый квадрант }
Begin
If y>-1.6*x+16 then
Cond:=false;
If(x>=4) and (x<=8) and (sqr(y)+sqr(x-6)<4) then
Cond:=false;
If (x<=2) and (y<8) and (y>4) then
Cond:=false;
End
Else
If (x<=0) and (y>0) then { Второй квадрант }
Begin
If y>0.9*x+9 then
Cond:=false;
If (x>=-8) and (x<=4) and (sqr(y)+sqr(x+6)<4)then
Cond:=false;
End
Else { Третий и четвертый квадранты }
Begin
If y<0.8*abs(x)-8 then
Cond:=false;
If (abs(x)<=4) and (sqr(x)+sqr(y)<16) then
Cond:=false;
End;
If Cond then
Writeln('Точка принадлежит фигуре')
Else
Writeln('Точка не принадлежит фигуре');
Writeln('Продолжить ввод координат (Y/N) ?');
Repeat
ch:=ReadKey;
ch:=UpCase(ch);
If ch='Y' then
Next:=true
Else
If ch='N' then
Next:=false;
Until (ch='Y') or (ch='N');
Until not Next;
End.
Комментарии к программе Labor1.
1. Фраза "Uses Crt" означает, что в программе используется стандартный модульCrt, в котором содержатся процедуры и функции для работы с экраном и клавиатурой. В программеLabor1такими процедурами и функциями являютсяClrScr и ReadKey.
Процедура ClrScr (сокращение словCleaner Screen) выполняет очистку экрана, функцияReadKey - чтение символа нажатой клавиши.
2. Булевская переменная Nextиспользуется для управления циклом повторения работы программы. В программеLabor1 считается, что значениеNext = trueявляется признаком ввода и анализа координат очередной точки, а значениеNext = false- это признак окончания работы программы. Оператор цикла
Repeat
. . . . . .
Until not Next;
работает до тех пор, пока переменная Next не приобретет значение false (в этом случае not Next = true).
3. Диалог с пользователем о необходимости продолжения или завершения работы программы реализуется циклом
Repeat
. . . . . . .
Until (ch='Y') or (ch='N');
После запроса программы пользователь должен нажать клавишу 'Y' ('Yes') или 'N' ('No'). Символ нажатой клавиши присваивается переменнойch. ФункцияUpCaseвыполняет преобразование строчной латинской буквы в прописную, что обеспечивает независимость ответа пользователя от состояния регистра (верхний или нижний).Цикл Repeat продолжает свою работу до тех пор, пока не будет нажата клавиша ‘Y’ или клавиша 'N', игнорируя при этом нажатие любых других клавишей.
4. Булевская переменная Cond используется для формирования признака принадлежности координат введенной точки заданной фигуре. После ввода координат переменнойCondприсваивается значениеtrue,что является признаком принадлежности. Если при анализе значений координатxиyбудет обнаружено выполнение какого-либо условия непринадлежности, то эта переменная получает значениеfalse.
5. Нетрудно заметить, что на рисунках 1.1 .. 1.5 для отрисовки геометрических фигур используются лишь прямые и окружности.
Вывод уравнения
прямой рекомендуется выполнять в общем
виде по координатам двух точек (
)
и (
)отрезка,
принадлежащего данной прямой:
Пусть мы имеем две точки: (1, 5) и (3, 7). Тогда
;
;
;
;
Уравнение окружности:
,
где
─ координаты центра тяжести;
─радиус окружности.
Л а б о р а т о р н а я р а б о т а № 2