Табулирование заданной функции и генерация ряда случайных чисел и их статическая обработка

Титульный лист

Табулирование заданной функции и генерация ряда случайных чисел и их статическая обработка.

Оглавление

Задание 1        3

Задание 2        9

Задание 1

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

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

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

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

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

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

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

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

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

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

Заданная функция:

[pic 1]   [pic 2]

Решение.

Для обработки данных полученных при помощи программы турбо паскаль в сторонних программах, в том числе и программе Микрософт Эксель необходимо данные экспортировать в сторонний файл. В нашей задаче это будет текстовый файл с расширением dat.

Экспорт данных (сохранение данных) в программе Паскаль выполняется с помощью файловых операций.

Делается это в следующем порядке:

В разделе объявления объявляем текстовый файл. С помощь. оператора rewrite открываем файл на запись. Далее, в теле программы связываем данный файл с реальным файлом на диске при помощи оператора assign. Запись в файл выполняется при помощи стандартного оператора writeln. В конце программы с помощью оператора close закрываем файл.

Блок схема

[pic 3]

Листинг программы

program tab;

uses crt;

var x,y,xn,xk,h,a: real;

    i,k:integer;

    f:text;

begin

 assign(f,'function.dat');

 rewrite(f);

 write('xn=');readln(xn);

 write('xk=');readln(xk);

 write('h=');readln(h);

 write('a=');readln(a);

 k:=round((xk-xn)/h);

 writeln('+--------+--------------+');

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

 writeln('+--------+--------------+');

 writeln(f,'x',',','y');

 for i:=1 to k+1 do

  begin

   x:=xn+(i-1)*h;

   if x+a<-10 then y:=x+a

    else

     begin

      if x+a<0 then y:=sqr(x+a) else y:=sqrt(x+a);

     end;

   writeln('|   ',x:5:2,'|    ',y:10:5,'|');

   writeln(f,x,',',y);

  end;

 writeln('+--------+--------------+');

 close(f);

end.

Результат выполнения

Запустив программу со следующими исходными данными:

xn=-2

xk=12

h=0.5

a=-10

[pic 4]

Данные также сохранены в текстовом файле function.dat.

[pic 5]

Откроем файл с данными в программе Microsoft Excel.

[pic 6]

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

...