ОИВТ ЛПЗ_2

Тема № 2 Составление, набор и отладка линейных программ

Цели 1. Формирование навыков преобразования алгоритма в программу.

2. Формирование навыков набора и отладки линейных программ.

3. Использование копирования фрагментов программы при ее наборе.

Задача. Треугольник задан координатами своих вершин x_a, y_a, x_b, y_b, x_c, y_c.. Составить программу вычисления периметра и площади треугольника.

Задания

Задание 1. Разработка алгоритма

1. Подготовка решения

   1. Начертите на клетчатой бумаге координатную плоскость xOy и на ней треугольник ABC.

   2. Обозначьте координаты вершин и стороны треугольника AB, BC и AC.

2. Вычисление стороны АВ. Начертите координатную плоскость xOy и на ней сторону AB треугольника. Обозначьте вершины А и В, координаты вершин x_a, y_a, x_b, y_bи проекции стороны АВ на оси координат как Dx и Dy.

   1. Выразите проекцию Dx через координаты вершин x_a и xb.

   2. Выразите проекцию Dy через координаты вершин y_a и y_b .

   3. Выразите длину стороны АВ через ее проекции Dx и Dy (по теореме Пифагора)

3. Вычисление стороны ВС. Начертите координатную плоскость xOy и на ней сторону BC треугольника. Обозначьте вершины А и В, координаты вершин x_b, y_b, x_c, y_c.проекции стороны ВС на оси координат как Dx и Dy.

   1. Выразите проекцию Dx через координаты вершин x_b и x_с.

   2. Выразите проекцию Dy через координаты вершин y_b и y_с .

   3. Выразите длину стороны ВС через ее проекции Dx и Dy

4. Вычисление стороны АС. Начертите координатную плоскость xOy и на ней сторону AC треугольника. Обозначьте вершины А и В, координаты вершин x_a, y_a, x_c, y_c.проекции стороны АС на оси координат как Dx и Dy

   1. Выразите проекцию Dx через координаты вершин x_a и x_с.

   2. Выразите проекцию Dy через координаты вершин y_a и y_с .

   3. Выразите длину стороны АC через ее проекции Dx и Dy.

5. Выразите периметр P и полупериметр PP треугольника через длины сторон AB, BC и AC.

6. Выразите площадь S треугольника через его стороны AB, BC, AC и полупериметр PP по формуле Герона.

Далее выполните следующие действия:

1. Составьте список переменных для исходных данных в этой задаче, укажите их тип. Список запишите в тетрадь.

2. Составьте список переменных для промежуточных результатов вычислений, укажите их тип. Список запишите в тетрадь.

3. Составьте список переменных для окончательных результатов вычислений, укажите их тип. Список запишите в тетрадь.

4. Какие данные надо ввести с клавиатуры, какие данные надо вывести на экран? Список запишите в тетрадь.

Задание 1. Составление и набор программы

Теперь загрузите среду программирования Pascal и наберите программу, ориентируясь на распечатку. В распечатке жирным шрифтом в фигурных скобках даны строки, которые надо заменить соответствующими командами на языке Pascal. Для их составления используйте формулы, записанные в пп. 1…6.

Program Geron_2;

Uses WinCrt;

Var

Xa,Ya,Xb,Yb,Xc,Yc:real; {исходные данные}

Dx,Dy,AB,BC,AC:real; {промежуточные результаты}

p,pp,S: real; {окончательные результаты}

Begin

{---------------------- Ввод исходных данных ----------------------}

Write('Введите координаты точки А Xa='); ReadLn(Xa);

Write(' Ya='); ReadLn(Ya);

{ввод остальных координат программировать аналогично}

{-------------------------- Вычисления ----------------------------}

{вычислить Dx и Dy для стороны АВ}; {вычислить сторону AB};

Dx:=Xb-Xa; Dy:=Yb-Ya; AB:=sqrt(Dx*Dx-Dy*Dy);

{вычислить Dx и Dy для стороны ВC}; {вычислить сторону BC};

{вычислить Dx и Dy для стороны АC}; {вычислить сторону AC};

{вычислить периметр P};{вычислить полупериметр PP};

{вычислить площадь S};

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

WriteLn('Периметр треугольника P=', P:6:2);

{вывод вычисленной площади S };

End.

Задание 3. Работа с программой

После набора программы выполните следующие действия:

1. Внимательно прочитайте программу и устраните все ошибки.

2. Запустите программу на счет (Ctrl+F9) и испытайте ее работу с координатами вершин x_a=1, y_a=2, x_b=5, y_b=4, x_c=6, y_c.=1. Результаты должны быть следующими: периметр P = 12.73, площадь S = 7.00.

Примечание. Для возврата к тексту программы используйте комбинацию клавишей Alt+F4.

3. На координатной плоскости начертите треугольники прямоугольный, равносторонний и равнобедренный. По клеточкам определите координаты их вершин. Пользуясь программой, вычислите периметр и площадь каждого треугольника. Исходные данные и результаты занесите в протокол работы программы.

№

п/п

Тип треугольника

Исходные данные

Результаты

x_a

y_a

x_b

y_b

x_c

y_c

P

S

Любой

Прямоугольный

Равнобедренный

Равносторонний

Содержание отчета

1. Чертежи и формулы к пп.1…6 (см. Задание 1).

2. Списки переменных, задействованных в алгоритме и программе.

3. Текст работающей программы с подробными комментариями.

4. Протокол работы программы (таблица результатов).

Сост. Дерягин Б.С. 25.10.2015