- •Введение
- •1.Предварительный анализ
- •1.1 Дифференцирование на основе формулы Лагранжа
- •1.2 Дифференцирование на основе формулы Ньютона
- •1.3 Сравнительный анализ методов
- •2.4. Словестное описание алгоритма
- •2.5 Выбор способа организации входных и выходных данных
- •2.6. Интерфейс пользователя
- •2.7. Тестирование
- •2.8. Общая характеристика программы
- •2.9. Обзор подобных программ Обучающая программа по алгебре "Решалка"
- •Программа для решения задач и уровнений по высшей математике "Solver"
- •3. Организационный раздел
- •3.1. Организация рабочего места пользователя
- •3.1.1 Организация света на рабочем месте
- •3.1.2 Площадь одного рабочего места
- •3.1.3. Общие требования к организации рабочих мест
- •3.1.4 Требования к уровням шума и вибрации на рабочих местах
- •3.1.5 Организация режима труда и отдыха при работе с пк
- •Заключение
- •Список использованных источников
- •Приложения
- •Руководство пользователя
- •Общие сведения о программном продукте
- •Краткое описание программного продукта
- •3. Возможные области применения
- •Описание запуска
- •Инструкция по работе с программным продуктом
- •Листинг программного кода
- •Interface
- •Implementation
- •I:integer;
- •I,h,j,l,k,elem,n,m:integer;
- •If(nextS)then
- •If(not isPm(Preo[1]))then
- •If isPm(Preo[j]) then
- •If ((not isPmur(BigElenent[j][h])) and (not isNumber(BigElenent[j][h])))then
- •If (hb)then
- •If(not isPmur(Temp[1]))then
- •Insert(Res, s, I);
- •If(isPm(s[I-1]))then
- •If(go)then
- •I,h,j,l,k,elem,n,m:integer;
- •If(nextS)then
- •If(not isPm(Preo[1]))then
- •If isPm(Preo[j]) then
- •If ((not isPmur(BigElenent[j][h])) and (not isNumber(BigElenent[j][h])))then
- •If (hb)then
- •If isSc(s[I-1]) then
- •If(New)then
- •I,j,l,k,Step,Error,Num1,SavePoint:integer;
- •If(isUr(s[I]))then
- •If(isPmur(s[j]))then
- •If(isUr(Numeric[1]))then
- •If(bl)then
- •If not isPm(s1[1]) then
- •If(bl)then
- •If not isPm(s2[1]) then
- •If isPm(s1[j]) then
- •If isPm(s2[j]) then
- •If(New)then
- •I,j,l,k,Step,Error:integer;
- •Insert('-1*', s, I);
- •If(New)then
- •If (b) then
- •If(New)then
- •If (isPm(s[j]))then
- •If (b) then
- •If(New)then
- •If (isPm(s[j]))then
- •If (b) then
- •If(New)then
- •I,a,k,t:Integer;
I,j,l,k,Step,Error:integer;
BackStr, Block, FirstP, SecondP : string;
New,b,plm:Boolean;
begin
New := True;
{while(New) do
begin
New:=false;
if ((S[1]='(')and(S[Length(S)]=')')) then
begin
Delete(S, 1, 1);
Delete(S, Length(S), 1);
New:=True;
end;
end; }
while(New) do
begin
New:=false;
for i:=1 to Length(S)-1 do
begin
l:=0;
k:=0;
Step:=0;
j:=0;
BackStr:='';
Block:='';
if ((S[i]='-')and(S[i+1]='(')) then
begin
Delete(S, i, 1);
Insert('-1*', s, I);
New:=True;
end;
If(New)then
Break;
end;
end;
New := True;
while(New) do
begin
New:=false;
for i:=1 to Length(S)-1 do
begin
l:=0;
k:=0;
Step:=0;
j:=0;
BackStr:='';
Block:='';
b:=False;
if ((S[i]='(')and(S[i+1]='(')) then
begin
for j:=i+2 to Length(s)-1 do
begin
if S[j]='(' then
Break;
if ((S[j]=')')and(S[j+1]=')'))then
begin
b:=True;
Break;
end;
end;
If (b) then
begin
New:=True;
Delete(S, i, 1);
Delete(S, j, 1);
Break;
end;
//Insert('-1*', S, i);
//New:=True;
end;
If(New)then
Break;
end;
end;
New := True;
while(New) do
begin
New:=false;
for i:=1 to Length(S)-1 do
begin
l:=0;
k:=0;
Step:=0;
j:=0;
BackStr:='';
Block:='';
b:=False;
plm:=false;
if ((S[i]='(')and(S[i+1]='(')) then
begin
for j:=i+2 to Length(s)-1 do
begin
if S[j]='(' then
Break;
If (isPm(s[j]))then
begin
plm:=true
end;
if ((S[j]=')')and(isPM(S[j+1])))then
begin
b:=True;
Break;
end;
if ((plm <> true)and(isPMUR(S[j+1]))and(S[j]=')'))then
begin
b:=True;
Break;
end;
end;
If (b) then
begin
New:=True;
Delete(S, i, 1);
Delete(S, j-1, 1);
Break;
end;
//Insert('-1*', S, i);
//New:=True;
end;
If(New)then
Break;
end;
end;
New := True;
while(New) do //(2+(2x+2))
begin
New:=false;
for i:=Length(S) downto 2 do
begin
l:=0;
k:=0;
Step:=0;
j:=0;
BackStr:='';
Block:='';
b:=False;
plm:=false;
if ((S[i]=')')and(S[i-1]=')')) then
begin
//mmo2.Lines.Add(IntToStr(i));
for j:=i-2 downto 2 do
begin
if S[j]=')' then
Break;
If (isPm(s[j]))then
begin
plm:=true
end;
if ((S[j]='(')and((isPM(S[j-1]))))then
begin
b:=True;
Break;
end;
if ((plm <> true)and(isPMUR(S[j-1]))and(S[j]='('))then
begin
b:=True;
Break;
end;
end;