Решение прикладной задачи (стр. 1 из 2)

Язык программирования Паскаль (назван в честь выдающегося французского математика и философа Блез Паскаля (1623-1662)), разработан в 1968-1971 гг. Никлаусом Виртом, профессором, директором института информатики Швейцарской высшей политехнической школы. Язык Паскаль, созданный первоначально для обучения программированию как систематической дисциплине, скоро стал широко использоваться для разработки программных средств в профессиональном программировании.

Разработка программ на Паскале включает в себя следующие действия (этапы разработки программы): ввод и редактирование текста программы на языке программирования Паскаль, ее трансляцию, отладку.

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

Для повышения качества и скорости разработки программ в середине 80-х гг. была создана система программирования Турбо Паскаль. Слово «турбо» в названии системы программирования – это отражение торговой марки фирмы – разработчика Borland International, Inc. (США).

1. Цель работы

Целью данной курсовой работы является закрепление теоретических и практических навыков в решении прикладных задач с применением функций и процедур. Освоение структурного (модульного) программирования.

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

Разработать схему алгоритма и программу для вычисления массива z по формуле:

Исходными данными являются:

Вычисление произвольной суммы и произведения оформить функциями, вычисление массива

- процедурой.

3. Расчет контрольной точки

Для расчета контрольной точки используем исходный данные. В качестве исходных данных принимаются:

Рассчитаем шаг для определения элементов массива

по формуле:

;

В соответствии с исходными данными Xmax равно 100, а Xmin – -10.

В результате шаг равен:

Рассчитаем шаг для определения элементов массива

по формуле:

;

В соответствии с исходными данными Ymax равно 100, а Ymin – 0.1.

В результате шаг равен:

Определим значения элементов массива

. За первый элемент массива

примем значение Xmin. Затем посредством последовательного прибавления шага определим остальные элементы массива. В результате:

Определим элементы массива

. За первый элемент массива

примем значение Ymin. Затем посредством последовательного прибавления шага определим остальные элементы массива. В результате:

Определим значения элементов массива

согласно формуле:

Т.к. y[1] = 0.1 и y[1] < a, то расчет первого элемента массива

произведем по формуле:

В результате:

Т.к. y[2] = 25,075 и y[2] > a, то расчет первого элемента массива

произведем по формуле:

В результате:

Т.к. y[3] = 50,05 и y[3] > a, то расчет первого элемента массива

произведем по формуле, приведенной в пункте б.

В результате:

Т.к. y[4] = 75,025 и y[4] > a, то расчет первого элемента массива

произведем по формуле, приведенной в пункте б.

В результате:

Т.к. y[5] = 100 и y[5] > a, то расчет первого элемента массива

произведем по формуле, приведенной в пункте б.

В результате:

Результаты вычисления контрольной точки сравним с результатом выполнения программы. Результат выполнения программы изображен на рисунке 1, а также представлен в приложении А.

Сделаем вывод, что программа производит вычисления верно.

4. Разработка схем алгоритмов и текстов подпрограмм, их описание

4.1 Function Proizvedenie

Назначение: вычисление произведения элементов по формуле

Обращение: Proizvedenie (x,y[j],n);

Описание параметров:

x – переменная типа massiv. Отображает массив размерностью 5

Y – переменная типа double. Элемент массива

n – количество элементов в массиве x. n=12.

Требуемые функции и процедуры: нет.

Графическое представление алгоритма функции Proizvedenie:

Листинг функции Proizvedenie:

Function Proizvedenie (x1:Massiv;y1:double;n1:integer):double;

var

p1:double;

i:integer;

begin

p1:=1;

for i:=1 to n1 do

p1:=p1*(x1[i]-y1);

Proizvedenie:=p1;

end;

4.2 Function Symma

Назначение: вычисление суммы элементов по формуле

Обращение: Symma (x,y[j],n);

Описание параметров:

x – переменная типа massiv. Отображает массив размерностью 5

Y – переменная типа double. Элемент массива

n – количество элементов в массиве x. n=12.

Требуемые функции и процедуры: нет.

Листинг функции Symma:

Function Symma (x1:Massiv;y1:double;n1:integer):real;

var

s1:real;

begin

s1:=0;

for i:=1 to n1 do

s1:=s1+(x1[i]-y1);

Symma:=s1;

end;

Графическое представление алгоритма функции Symma:

4.3 Procedure Massive_Z

Назначение: определение значения элементов массива

Обращение: Massive_Z (y,m);

Описание параметров:

y – переменная типа massiv. Отображает массив размерностью 1