АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. V2: Электронные таблицы. Встроенные функции.
  2. Активный и пассивный словарь. Историзмы и архаизмы. Типы архаизмов. Стилистические функции.
  3. Анатомия пищев.канала: отделы,сфинктеры и клапаны,их положение,строение и значение для пищев.функции.
  4. Булевы функции.
  5. Военная политика государства, её сущность, структура и функции.
  6. Вопрос 4. Производная сложной функции. Полная производная
  7. Выпуклость и вогнутость графика функции. Точки перегиба. Асимптоты.
  8. Выражение векторов поля через потенциальные функции. E- и H-моды
  9. Вычисление пределов функции. Непрерывность функции.
  10. Деньги и их функции. Спрос и предложении е денег на денежном рынке
  11. Дифференцирование сложной функции.
  12. Задание № 1 «Определение принадлежности точки заданной области»

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

 

 

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

 

 

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

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

 

 

Выполнил Студент группы 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);

 

 

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

 

 

 
 

 

 


да

           
   
     
 
 
 

 


нет

X = X+Xнач
Вывод файла; Вывод на экран;
fx:=c*x+d*x*x+abs(c + d); m:= 2;  
да

 

 


нет

 
 

 


да

 


 

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

 

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 |

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



 

 

 


1 | 2 | 3 |

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



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