Читать диплом по всему другому: "Вычисление значения функции при помощи полинома Лагранжа" Страница 2

(Назад) (Cкачать работу)

var i:integer; a:mas; b:real;(1,1,80,25);(7);(black);;(f);(' Данные для расчета');;('X');i:=1 to filesize(f) do begin(f,a);(' ',a[1]:5:2);;(f); reset(f);;;('Y');i:=1 to filesize(f) do begin(f,a);(' ',a[2]:5:2);;(f);;;;(n);('Считать для X=');i:=1 to filesize(n) do begin(n,a);(a[1]:5:2,' ');;(n);;; Процедура izmenenie дает пользователю возможность изменить данные для расчета или те значения х, для которых будут вычислены значения у(х). Изменение происходит по номеру числа. Параметрами процедуры являются файлы с исходными данными. procedure izmenenie;a:char; m:mas; c:integer;b:real;(20,5,60,20);(7);(0);;('Изменить исходные данные? y/n');

readln(a);a='y' then begin(f);

writeln('Введите номер числа');

readln(c);(f,c-1);(f,m);

writeln('Изменить x или y?');

readln(a);('Введите число');a='x' then readln(m[1]) else readln(m[2]);(f,filepos(f)-1);(f,m);(f);;(20,5,60,20);(7);(0);;(n);('Изменить данные для расчета? y/n');(a);a='y' then begin(n);

writeln('Введите номер числа');

readln(c);(n,c-1);(n,m);

writeln('Введите новое значение');

readln(m[1]);(n,filepos(n)-1);(n,m);(n);;(1,1,80,25);(black);; Процедура readfile дает пользователю возможность ввести данные из текстового файла, содержащего данные для расчета в первых двух строках и значения х в третьей. Считывание данных из файла происходит при задании имени файла, содержащего вышеуказанные значения. Переписывание данных происходит при помощи динамического массива (это удобно, так как количество чисел заранее не известно). Параметры данной процедуры - файлы, содержащие основные данные.

procedure readfile;

type m=array[1..1] of real;

m2=array[1..1] of real;d:text; s:string[25];a:^m; c:^m2; b:real; k,i:integer; p:mas;(20,5,60,20);(7);(0);;('Введите имя файла');(s);:=s+'.pas';

assign(d,s); - связывание логического файла с указанным физическим файлом reset(d);:=0;not seekeoln(d) do begin(d,b);:=k+1;;(d);(a,6*k); getmem(c,6*k);(d);i:=1 to k do read(d,a^[i]);(d);i:= 1 to k do read(d,c^[i]);(f);i:=1 to k do begin[1]:=a^[i];[2]:=c^[i];(f,p);;(f);(c,6*k); freemem(a,6*k); k:=0;(d);not seekeoln(d) do begin read(d,b); k:=k+1; end;(d);(a,k*6);(d);(d); readln(d);i:=1 to k do read(d,a^[i]);(n);i:=1 to k do begin[1]:=a^[i];[2]:=0;(n,p);;(n);(a,6*k);(d);

end; Процедура out аналогична процедуре prosmotr, но она, в отличие от последней, выводит на экран как заданные значения х, так и вычисленные значения у(х). Кроме того, данная процедура записывает в новый текстовый файл значения х и вычисленные для них значения у. Если значения у(х) еще не были вычислены, на их месте стоят нули. Процедура имеет входные параметры - два файла, содержащие все данные и текстовый файл для удобного просмотра результатов.

procedure out;i:integer; a:mas;(1,1,80,25);(7);(black);;(f);(' Данные для расчета');;('X');i:=1 to filesize(f) do begin(f,a);(' ',a[1]:5:2);;(f); reset(f);;;('Y');i:=1 to filesize(f) do begin(f,a);(' ',a[2]:5:2);;(f);;;;(n); rewrite(t);(' Resultat');('X'); write(t,'X');i:=1 to filesize(n) do begin(n,a);(' ',a[1]:5:2); write(t,' '); write(t,a[1]:5:2);;; writeln; writeln(t);(n); reset(n);('Y'); write(t,'Y');i:=1 to filesize(n) do begin(n,a);(' ',a[2]:5:2); write(t,' '); write(t, a[2]:5:2);;(n); close(t);;

end; Процедура zastavka использует стандартный модуль «graph» и при помощи графического режима выводит на экран сообщение о том, что данная работа является курсовой, фамилию и группу студента, и фамилию преподавателя. Эта процедура не имеет параметров и появляется один раз при запуске программы. procedure zastavka;gd,gm:integer;;:=detect;(gd,gm,'');(lightgray);(red);(0,0,3);(160,180,'Yearly project');(60000);(20000);(0,0,1);(300,210,'Студент Бусыгина Нина, гр.Н202');(300,223,'Преподователь Лазарева Т.И.’);

delay(60000);(60000);;;.

Модуль count cодержит процедуры для выполнения основного задания - вычисления значения функции у(х), заданной таблично при помощи полинома Лагранжа и построения

Похожие работы