Табулирование заданной функции

Санкт-Петербургский Государственный Морской Технический Университет

Кафедра судовой автоматики и измерений

КУРСОВАЯ РАБОТА

По дисциплине «Информатика»

Выполнил Студент группы 5140 Зверев А.М.

_____________

подпись

Проверил Доцент Попкова Л.И.

_____________

подпись

Задание № 1.

Табулирование заданной функции.

Вычислить значение функции f(x) при изменении X от X_нач. до X_кон. с шагом dX (предполагается, что X_нач. < X_кон. и dX > 0), X_нач., X_кон., а так же коэффициенты при уравнениях a, b, c, d являются входными параметрами. Результаты вывести в виде таблицы.

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

1. Составить и изобразить блок-схему алгоритма, соответствующую конкретной заданной функции.

2. Составить программу вычислений (табулирование заданной функции) на языке программирования Турбо Паскаль с выводом результатов в файл с расширением dat.

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

а) с использованием символов псевдографики;

б) с использованием приложения Excel;

4. Вычислить суммы и произведение значений функции по столбцам, а также определить максимальные значения в столбцах (средствами Excel).

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

Заданная функция имеет вид:

Для того, чтобы иметь возможность строить графики функций (в других зависимостей) по значениям, получаемым в результате вычислений по соответствующим программам на языке Турбо Паскаль с использованием приложений Windows Excel, нужно числовые данные расчета из программы, выполненной на языке Турбо Паскаль, переслать файл с расширением dat, который может быть создан пользователем заранее. Для этого в программе на языке Турбо Паскаль должно быть выполнено следующее:

в разделе описания var должна быть описана текстовая переменная

q(text);

после begin (начала главной программы) должно следовать обращение к стандартным процедурам:

assign(q,’d:\Program files\kursovic_1\kursovic.dat);

rewrite(q);

………..

writeln(q,x:8:2,’;’,fx:8:2,’’);

………..

close(q);

Блок – схема алгоритма

да

нет

нет

да

Текст программы на Турбо Паскале:

Program kursovic_1;

var x, fx, xn, xk, h, c, d: real;

i,m,n: integer;

q: text;

BEGIN

assign(q,’D:\Program Files\kursovic_1\kursovic.dat’);

rewrite(q);

writeln('Введите xn, xk, h, c, d');

read(xn, xk, h, c, d);

writeln('|************|************|************|');

writeln('| x | f(x) | n |');

writeln('|************|************|************|');

n:trunc((xk-xn)/h)+1;

x:=xn;

for i:=1 to n do

Begin

if abs(x) >= abs(d - c) then

Begin

fx:= (x/c) + sqrt(1 + x*x) / d;

m:= 1;

end

else

Begin

fx:= c*x + d*x*x + abs(c + d);

m:= 2;

end;

writeln(q, x:5:2, ';', fx:5:2);

writeln('|',x:8:3, ' |', fx:8:3, ' |', n:8, ' |');

x:=x+h

end;

writeln('|************|************|************|');

close(q);

END.

Результат работы программы:

На экран выводится:

Enter xn, xk, h (введите xнач, xкон, hшаг, c,dчисло)

-3 {х начальное}

2.1 {х конечное}

0.12 {h шаг}

0.6, 1.4 {c, d число}

|************|************|************|

| x | f(x) | n |

|************|************|************|

| -3.000 | -2.741 | 1 |

| -2.880 | -2.622 | 1 |

| -2.760 | -2.503 | 1 |

| -2.640 | -2.384 | 1 |

| -2.520 | -2.263 | 1 |

| -2.400 | -2.143 | 1 |

| -2.280 | -2.022 | 1 |

| -2.160 | -1.900 | 1 |

| -2.040 | -1.777 | 1 |

| -1.920 | -1.654 | 1 |

| -1.800 | -1.529 | 1 |

| -1.680 | -1.404 | 1 |

| -1.560 | -1.276 | 1 |

| -1.440 | -1.148 | 1 |

| -1.320 | -1.017 | 1 |

| -1.200 | -0.884 | 1 |

| -1.080 | -0.749 | 1 |

| -0.960 | -0.610 | 1 |

| -0.840 | -0.467 | 1 |

| -0.720 | 2.294 | 2 |

| -0.600 | 2.144 | 2 |

| -0.480 | 2.035 | 2 |

| -0.360 | 1.965 | 2 |

| -0.240 | 1.937 | 2 |

| -0.120 | 1.948 | 2 |

| 0.000 | 2.000 | 2 |

| 0.120 | 2.092 | 2 |

| 0.240 | 2.225 | 2 |

| 0.360 | 2.397 | 2 |

| 0.480 | 2.611 | 2 |

| 0.600 | 2.864 | 2 |

| 0.720 | 3.158 | 2 |

| 0.840 | 2.333 | 1 |

| 0.960 | 2.590 | 1 |

| 1.080 | 2.851 | 1 |

| 1.200 | 3.116 | 1 |

| 1.320 | 3.383 | 1 |

| 1.440 | 3.652 | 1 |

| 1.560 | 3.924 | 1 |

| 1.680 | 4.196 | 1 |

| 1.800 | 4.471 | 1 |

| 1.920 | 4.746 | 1 |

| 2.040 | 5.023 | 1 |

|************|************|************|

Поиск по сайту: