Практическая работа на ПК по теме: Составление, набор и отладка линейных программ

2 Составление, набор и отладка линейных программ
Цели 1. Формирование навыков преобразования алгоритма в программу.
2. Формирование навыков набора и отладки линейных программ.
3. Использование копирования фрагментов программы при ее наборе.
Задача. Треугольник задан координатами своих вершин xa, ya, xb, yb, xc, yc.. Составить программу вычисления периметра и площади треугольника.
Задания
Задание 1. Разработка алгоритма
Подготовка решения
Начертите на клетчатой бумаге координатную плоскость xOy и на ней треугольник ABC.
Обозначьте координаты вершин и стороны треугольника AB, BC и AC.
Вычисление стороны АВ. Начертите координатную плоскость xOy и на ней сторону AB треугольника. Обозначьте вершины А и В, координаты вершин xa, ya, xb, yb и проекции стороны АВ на оси координат как Dx и Dy.
Выразите проекцию Dx через координаты вершин xa и xb.
Выразите проекцию Dy через координаты вершин ya и yb .
Выразите длину стороны АВ через ее проекции Dx и Dy (по теореме Пифагора)
Вычисление стороны ВС. Начертите координатную плоскость xOy и на ней сторону BC треугольника. Обозначьте вершины А и В, координаты вершин xb, yb, xc, yc .проекции стороны ВС на оси координат как Dx и Dy.
Выразите проекцию Dx через координаты вершин xb и xс.
Выразите проекцию Dy через координаты вершин yb и yс .
Выразите длину стороны ВС через ее проекции Dx и Dy
Вычисление стороны АС. Начертите координатную плоскость xOy и на ней сторону AC треугольника. Обозначьте вершины А и В, координаты вершин xa, ya, xc, yc .проекции стороны АС на оси координат как Dx и Dy
Выразите проекцию Dx через координаты вершин xa и xс.
Выразите проекцию Dy через координаты вершин ya и yс .
Выразите длину стороны АC через ее проекции Dx и Dy.
Выразите периметр P и полупериметр PP треугольника через длины сторон AB, BC и AC.
Выразите площадь S треугольника через его стороны AB, BC, AC и полупериметр PP по формуле Герона.
Далее выполните следующие действия:
Составьте список переменных для исходных данных в этой задаче, укажите их тип. Список запишите в тетрадь.
Составьте список переменных для промежуточных результатов вычислений, укажите их тип. Список запишите в тетрадь.
Составьте список переменных для окончательных результатов вычислений, укажите их тип. Список запишите в тетрадь.
Какие данные надо ввести с клавиатуры, какие данные надо вывести на экран? Список запишите в тетрадь.
Задание 1. Составление и набор программы
Теперь загрузите среду программирования Pascal и наберите программу, ориентируясь на распечатку. В распечатке жирным шрифтом в фигурных скобках даны строки, которые надо заменить соответствующими командами на языке Pascal. Для их составления используйте формулы, записанные в пп. 16.

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. Работа с программой
После набора программы выполните следующие действия:
Внимательно прочитайте программу и устраните все ошибки.
Запустите программу на счет (Ctrl+F9) и испытайте ее работу с координатами вершин xa=1, ya=2, xb=5, yb=4, xc=6, yc.=1. Результаты должны быть следующими: периметр P = 12.73, площадь S = 7.00.
Примечание. Для возврата к тексту программы используйте комбинацию клавишей Alt+F4.
На координатной плоскости начертите треугольники прямоугольный, равносторонний и равнобедренный. По клеточкам определите координаты их вершин. Пользуясь программой, вычислите периметр и площадь каждого треугольника. Исходные данные и результаты занесите в протокол работы программы.
№
п/п
Тип треугольника
Исходные данные
Результаты

xa
ya
xb
yb
xc
yc
P
S

Любой

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

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

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

Содержание отчета
Чертежи и формулы к пп.16 (см. Задание 1).
Списки переменных, задействованных в алгоритме и программе.
Текст работающей программы с подробными комментариями.
Протокол работы программы (таблица результатов).
ОИВТ ЛПЗ_2

Сост. Дерягин Б.С. 13 DATE \@ "dd.MM.yyyy" 1416.08.200115

NЗаголовок 1NЗаголовок 2LLЗаголовок 3LЗаголовок 4Ў:15тDВерхний колонтитулBНижний колонтитулpОсновной текст с отступом