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

Санкт–Петербургский Государственный

Электротехнический Университет

Кафедра МО ЭВМ

Дисциплина: Программирование

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

(структура ветвления)

Выполнил:

студент группы 2342, Пироговский В. А.

Проверил:

Преподаватель, Калмычков В. А.

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

2002

1) Математическая постановка задачи:

Выяснить, принадлежит ли точка (координаты вводятся с клавиатуры) фигуре, заданной рисунком 1.

(*) Очевидно, данная фигура задается системой уравнений:

x² + y² <= 4

|x|+|y| >= 1

2) Interface пользователя

Программа выполняет проверку на принадлежность

точки фигуре, заданной системой двух уравнений.

x*x + y*y <= 4 и /x/+/y/ >= 1

введите вещественные x,y

{ввод x,y}

{вывод результата}

Точка принадлежит фигуре

{или}

Точка не принадлежит фигуре

17.9.2002

Выполнил студент группы 2342 – Пироговский

Владислав

3) Блок – схема.

4) Текст программы.

program lab1;

uses crt;

var x,y,r :real;

begin

clrscr;

writeln ('Программа выполняет проверку на принадлежность');

writeln ('точки фигуре, заданной системой двух уравнений.');

writeln ('x*x + y*y <= 4 и /x/+/y/ >= 1');

writeln ('введите вещественные x,y ');

readln (x,y);

if (sqr(x)+sqr(y)<=2) and

(abs(x)+abs(y)>=1) then

writeln ('Точка принадлежит фигуре') else

writeln ('Точка не принадлежит фигуре ');

writeln ('17.9.2002');

writeln ('Выполнил студент группы 2342 – Пироговский');

writeln ('Владислав');

while not keypressed do

end.