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

Курсовая работа по дисциплине «Информатика»

Выполнила: студент гр 2240 Якубов Ю. Р. Проверил: Павлов П.В

2012 год

при x<5

1

Да

Номер выполняемого условия №1

Нет

Решение при условии №1

x=5

Нет

Да

1

x>5

Нет

3

Да

Номер выполняемого усл №2

Номер выполняемого усл №3

Решение при усл №2

З Решение при усл №3 Вывод результатов в файл Ввод результатов на экран Увеличение х на заданный шаг Закрытие файла Конец 2 l адание № 1. Табулирование заданной функции

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

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

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

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

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

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

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

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

З

при x<5

при x=5

при x>5

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

F(x) =

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

- в разделе описания var должна быть описана текстовая переменная (например, q:text);

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

assign (q, ‘d:/kurs.daf’);

rewrite (q);

Далее ……………….

……………………… ( операторы программы)

writeln (q, ……); (во всех операторах вывода за "("должна быть указана соответствующая текстовая перемен­ная, а далее как обычно);

• перед последней в программе операторной скобкой "еnd." записывается стандартная процедура close (q).

Стандартная процедура assign (q,’*.daf);связывает тек­стовую переменную q c некоторым именем файла с расшире­нием dat.

Стандартная процедура rewrite создает новый файл или открывает его для записи и чтения. Если файл с таким именем уже существует, его содержимое стирается, а сам файл от­крывается заново. Например, оператор rewrite (q); открывает существующий файл, связанный с текстовой переменной q.

Стандартная процедура сlоsе закрывает открытый ранее файл, связанный с указанной в качестве параметра текстовой переменной. Например, оператор close (q)закрывает файл, имя которого связано с текстовой переменной q.

Программа №1.

Program shelter;

uses crt;

var fout:text;

x, x1, x2, h, a, f:real;

name:string;

begin

assign(fout, 'out.dat');

rewrite(fout);

clrscr;

repeat

writeln('vvedite x1:');

readln(x1);

writeln('vvedite x2:');

readln(x2);

until x2>x1;

repeat

writeln('vvedite h:');

readln(h);

until h>0;

writeln('vvedite a');

readln(a);

writeln('vvedite nazvanie tablici:');

readln(name);

writeln(fout, name);

x:=x1;

writeln('x f');

while x<=x2 do begin

if x<5 then f:=exp(ln(a*a+x*x)/3);

if x=5 then f:=x*x-a*x;

if x>5 then f:=sqrt(x+a);

writeln(x:10:2, f:10:2);

writeln(fout, x:10:2, f:10:2);

x:=x+h;

end;

close(fout);

end.

Результаты, полученные в приложении Excel

Для рассматриваемого варианта числовых данных приводятся графики и диаграммы табулируемой функции F(x) (рис. 2-4). На рис. 2,3 на горизонтальной оси приведены номера расчетных точек, а соответствующие им значения переменно х даны в табл.1.

Таблица 1

[0; 10], h=0.5, a=2

	x	f(x)	N
	0	1.59	1
	0.5	1.62	1
	1	1.71	1
	1.5	1.84	1
	2	2	1
	2.5	2.17	1
	3	2.35	1
	3.5	2.53	1
	4	2.71	1
	4.5	2.89	1
	5	15	2
	5.5	2.74	3
	6	2.83	3
	6.5	2.92	3
	7	3	3
	7.5	3.08	3
	8	3.16	3
	8.5	3.24	3
	9	3.32	3
	9.5	3.39	3
	10	3.46	3
Сумма	105	67.55	42
Произведение	0	2.05E+09	118098
Наибольшее	10	15	3
Наименьшее	0	1.59	1