Лабораторная работа № 2 Программирование алгоритмов линейной структуры

Цель работы: Составление простейших программ, реализующих проведение вычислительных операций по формулам, задающих алгоритм линейной структуры.

Линейные алгоритмы – последовательность блоков, каждый из которых имеет по одному входу и одному выходу и выполняется в программе один раз.

Рис. 5.2. Алгоритм линейной структуры

Задание. Вычислить площадь треугольника по трем известным сторонам a, b, c, используя теорему Герона

, где .

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

1. Программа имеет линейную структуру в соответствии с алгоритмом на рис. 5.2.

S1 – блок ввода исходных данных a, b, c.

S2 – блоки расчета полупериметра треугольника p и площади S.

S3 – блок вывода результата: площадь S.

Введите программу решения этой задачи (см. пп. 1-3, Лабораторная работа № 1).

Program Geron;

Uses crt;

Var a,b,c,p,S:Real;

Begin

Clrscr;

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

Writeln(‘Введите значения сторон треугольника a,b,c’);

Readln(a,b,c);

{Расчет полупериметра и площади треугольника}

p:= 0.5*(a+b+c);

S:=sqrt(p*(p-a)*(p-b)*(p-c));

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

Writeln(‘Площадь треугольника = ’, S:5:3)

End.

2. Откомпилируйте программу и исправьте возможные ошибки. Затем запустите программу на счет (см. пп. 4-5, Лабораторная работа № 1).

3. Проведите тестовый расчет, чтобы убедиться в правильности работы программы.

Введите значения сторон: a=1, b=1, c=1. Должен получиться результат S=0.433.

4. Проведите серию расчетов для различных значений сторон треугольника.

5. Если значения сторон являются константами (например, все равны 1), то в данную программу можно ввести следующие изменения:

• перед разделом Var надо добавить раздел констант – Const a=1;b=1;c=1;

• из раздела Var убрать a,b,c – Var p,S:Real;

• убрать ввод исходных данных – удалить операторы Writeln(‘Введите…’); Readln(a,b,c);

6. Сделайте указанные исправления и повторите пп. 1-3 данной работы.

Задания для самостоятельной работы

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

Константы A, B, C вводятся с клавиатуры. Сложные аргументы функций вычислять отдельно, tan(x) вычислять как sin(x)/cos(x), ctan(x) → cos(x)/sin(x), x^y → exp(y*ln(x)).

Вариант 1

.

при A=4, B=2, C=5 ответ: -0.867393.

Вариант 2

.

При A=3, B=2, C=1 ответ: -83595.544.

Вариант 3

.

При A=7, B=2, C=1 ответ: -1.267885.

Вариант 4

.

При A=3, B=7, C=2 ответ: 0.116161.

Вариант 5

.

При A=3, B=2, C=1 ответ: 16718.692

Лабораторная работа № 3 Программирование алгоритмов разветвляющейся структуры

Цель работы: Разработка программ, реализующих разветвления, с помощью условных операторов и переключателей.

Алгоритм разветвляющегося вычислительного процесса – алгоритм, в котором в зависимости от значений некоторого признака производится выбор одного из нескольких направлений, называемых ветвями. В основе организации разветвления лежит проверка логического условия, которое может быть истинно или ложно. Частный случай логического условия – это операция типа =, ≠, >, <, ≥, ≤..

Рис.5.3. Развилка «Если…, то…, иначе» Рис.5.4. Развилка «Если…, то»

В свою очередь, в ветвях могут быть проверки других условий, в появившихся новых ветвях – еще проверки условий и т. д. Это приводит к сложным разветвлениям вычислительного процесса на множество направлений.

Задание № 1. Построить алгоритм определения квадранта декартовой системы, в котором находится точка с координатами X, Y. Разработать, набрать и отладить программу на языке Паскаль, реализующую этот алгоритм.