183508 (629853), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

end; Ysk:= False;

j_sk:=0;

Repeat

Begin

if Sk_massiv[0+j_sk] <> '#' then Begin

// Запись в гл. массив значение скобки

Gl_massiv[100-z]:= Sk_massiv[0+j_sk];

Ysk:= true; end

else j_sk:=j_sk+1;

end;

Until Ysk = true;

end;

end;

{----- Вычиление значения в скобках закончено -----}

//showmessage(Gl_massiv[0]);

Vivod:= Gl_massiv[0];

end; // Конец процедуры

{--------------------------------------------------------}

procedure TForm1.Button_ItogoClick(Sender: TObject);

Var

a,b,h:real; //Отрезок а, b и шаг h

Fx,Fa,Fb:Real; //Результат и суммы значений F(xi)

My_vivod:string;//Значение F(xi)

mas,z,j:integer; //Номер ячейки массива

i:integer; //Номер символа в строке формул

s,st,ch:string; //Символ

// Булевый тип (ложь) или (Истина) для выхода из цикла подсчета цифр

Bool:Boolean;

//Массив символов формулы

My_massiv:Array [0..100] of string;

begin

//Присвоение к переменным значений отрезка а,b и шага h

a:= StrToFloat(Edit_A.Text);

b:= StrToFloat(Edit_B.Text);

h:=StrToFloat(Edit_Int.Text);

z:=0;

// Вычисление значений Xi на отрезке a,b с шагом h

Repeat

Begin //Начало цикла

//Вывод в массив значения Xi

SS.Cells[0,z]:= FloatToStr(a);

z:=z+1; //Переход на ячейку ниже

a:=a+h; //Шаг

end;

Until a > b; //Продолжение цикла до конца отрезка а,b

mas:=0;

//Вывод всех значений F(xi) в массив

Repeat

begin

i:=1; j:=1;

Repeat

//Вычисление F(xi) и вывод в массив

Begin

s:= Copy(Edit_F.text,i,1); //Копировать i-й символ в строке формул

//Проверка на значение натурального логарифма

if s='l' then Begin

s:='ln'; i:= i+1; end;

//Проверка на значение косинуса

if s='c' then Begin

s:='cos'; i:= i+2; end;

//Проверка на значение синуса или корня

if s='s' then Begin

i:= i+1; st:= Copy(Edit_F.text,i,1);

if st='i' then begin

s:='sin'; i:=i+1; end

else begin s:='sqrt'; i:=i+2; end; end;

//Проверка на значение цифры

if (s='0') or (s='1') or (s='2')or (s='3')or (s='4')

or (s='5')or (s='6')or (s='7')or (s='8')or (s='9') then

Begin

ch:=s; Bool:=False;

Repeat

Begin

i:=i+1; // Перемещение к след. символу

s:= Copy(Edit_F.text,i,1); //Копировать i-й символ в строке формул

//Проверка на значение цифры

if (s='0') or (s='1') or (s='2')or (s='3')or (s='4')

or (s='5')or (s='6')or (s='7')or (s='8')or (s='9')or (s=',') then

Begin //Если Да

//Обьединение нескольких цифр подрят

ch:= ch+s;

end

else Bool:=True; //Если нет Bool - Истина

end;

Until Bool=True; //Выход, если Bool - Истина

My_massiv[j]:= ch; j:=j+1 //Запись значений цифр в массив

//Если значение не цифра - запись в массив текущего символа

end else Begin My_massiv[j]:=s; j:=j+1; i:=i+1; end;

end;

//Продолжение цикла до конца количества символов в строке формул

Until i > Length(Edit_F.Text);

// Взять формулу в массиве в скобки

My_massiv[0]:='(';

My_massiv[Length(Edit_F.Text)+1]:=')';

// Присвоение значению х - значения xi в массиве

For i:= 0 to 100 do begin

if My_massiv[i]= 'x' then

My_massiv[i]:= SS.Cells[0,mas];

end;

Formula(My_vivod,My_massiv[0]);

SS.Cells[1,mas]:= My_vivod; //Вывод F(xi) в массив

mas:=mas+1; //Перемешение в массиве на строку ниже

end;

//Продолжение цикла до последнего значения xi

Until mas>z-1;

Fa:=0; i:=0; //Обнуление переменных

//Суммирование значений F(x2,x4..xn-1)

Repeat

Begin

Fa:=Fa+StrtoFloat(SS.Cells[1,i]);

i:=i+2;

end;

Until i>=z;

i:=0;

//Суммирование значений F(x1,x3..xn)

Repeat

Begin

Fb:=Fb+StrtoFloat(SS.Cells[1,i+1]);

i:=i+2;

end;

Until i>=z-1;

//Вычисление значения F(x)

Fx:=(h/3)*(StrToFloat(SS.Cells[1,0])+(4*Fb)+(2*Fa));

//Вывод результата

Label3.Caption:= FloatToStr(h)+'/3 * ('+SS.Cells[1,0]+

' * 4*('+FloattoStr(Fb)+')+ 2*('+FloattoStr(Fa)+') = ';

Label13.Caption:=FloatToStr(Fx);

end;

procedure TForm1.Label5Click(Sender: TObject);

begin

Form2.showmodal;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form_help.ShowModal;

end;

end.

Характеристики

Список файлов курсовой работы