«Программирование разветвляющегося вычислительного процесса»

Лабораторная работа N3

“Программирование разветветвляющегося вычислительного процесса”

1. Постановка задачи

Разработать программу вычисления значений заданной кусочно-непрерывной функции для произвольных значений исходных данных. Подготовить исходные данные для контрольного расчета значения функции по каждой формуле. Выполнить контрольные расчеты и расчет для заданных исходных данных. В программе предусмотреть вывод номера формулы, по которой были выполнены расчеты

27) у =

2. Анализ задачи

Задача состоит в том, чтобы по произвольному заданному значению параметра n вычислить значение функции y.

Есть три варианта, следовательно, имеем двойное ветвление:

1.

2. y=

3.

Исходных данных достаточно для решения задачи .

Подготовим тестовый пример для проверки правильности программы (для контрольного расчёта).

Пусть а=1 тогда n=0, n < 9,следовательно, имеем 1-й случай:

3. Схема алгоритма.

Решение задачи описывается в виде разветвленного алгоритма (Рис.1) – в виде элементарной структуры «альтернатива», вложенной в другую «альтернативу».

4. Таблица переменных задачи

Смысл переменных Обозначение Тип переменной Примечания

в алгор. в прогр.

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

Параметр

Параметр

а

а

Веществ.

а=3,53

а>0

Промежуточные данные:

Вспомогательная переменная n n Веществ.

РЕЗУЛЬТАТЫ:

Функция y y Веществ.

Рис. 1. Схема алгоритма решения задачи

5. Текст программы на Паскале

program P3;

var a,n,y:real;

{Работа №3.Выполнила ст. гр. ЭА-10-01 Скобелкина Н.Г. }

k:integer;

Begin

Write(\'a=\');

readln(a);

n:=2.35*ln(a);

if n<=9 then begin y:=(n*(n-2)*(n-1))/a; k:=1; end

else if n>=29 then begin y:=n-9; k:=3; end

else begin y:=exp((29-n)*ln(2)); k:=2; end;