en Q ^ .Next:=U else BeginUz:=U;:=n + 1; (MCh, n + 1); [n]:=@ U ^ .Rez; (s, t, k-t + 1 ); (inttostr (n), s, t) ;; (pos ( + raquo ;, s) lt; gt; 0) or (pos ( - raquo ;, s) lt; gt; 0) do :=U;:=2; not (s [i] in [ + raquo ;, - ]) do i:=i + 1;:=0; s [i]= + raquo ; then NOper:=high (a) +1 elses [i]= - then NOper:=high (a) +2;:=i - 2; s [k - 1] lt; gt; lt; do k:=k - 1;//(k - 1) - поз. lt; :=strtoint (copy (s, k, ik - 1));:=k;:=i + 2; s [k + 1] lt; gt; gt; do k:=k + 1;//(k + 1) - поз. gt; (Mch [m], Mch [strtoint (copy (s, i + 2, ki - 1))], NOper, U); Q lt; gt; nil then Q ^ .Next:=U else BeginUz:=U;:=n + 1; (MCh, n + 1); [n]:=@ U ^ .Rez; (s, t, k-t + 1 ); (inttostr (n), s, t) ;;:=s ;; Skb (str: string; var U: ElemSh); i, k, g: integer ;, sc: string ;: ElemSh;:=str ; pos ( ( raquo ;, s) lt; gt; 0 do:=pos () raquo ;, s);:=i - 4; s [k] lt; gt; ( do k:=k - 1; s [k - 1] in [ 0 .. 9 ] then:=Fbs (copy (s, k + 1, ik - 1)) ;:=U;:=k - 1; s [g - 1] lt; gt; f do g:=g - 1; (MCh [strtoint (copy (sc, 2, length (sc) - 2 ))], nil, strtoint (copy (s, g, kg)), U); Q lt; gt; nil then Q ^ .Next:=U else BeginUz:=U;:=n + 1; (MCh, n + 1); [n]:=@ U ^ .Rez; (s, g - 1, i-g + 2); ( lt; + inttostr (n) + gt; raquo ;, s, g - 1); else (k - 1=0) or (s [k - 1] in [ + raquo ;, - raquo ;, * raquo ;, / raquo ;, laquo ; ^ raquo ;, (]) then:=Fbs (copy (s, k + 1, ik - 1)); (s, k, i-k + 1); (sc, s, k) ;; end;:=Fbs (s); U lt; gt; nil then if BeginUz lt; gt; U then U ^ .Next:=BeginUz ;; CompileUz (var U: ElemSh); U ^ .fn of
: U ^ .Rez:=arcsin (U ^ .L ^);
: U ^ .Rez:=arccos (U ^ .L ^);
: U ^ .Rez:=arctan (U ^ .L ^);
: U ^ .Rez:=sin (U ^ .L ^);
: U ^ .Rez:=cos (U ^ .L ^);
: U ^ .Rez:=sin (U ^ .L ^)/cos (U ^ .L ^);
: U ^ .Rez:=cos (U ^ .L ^)/sin (U ^ .L ^);
: U ^ .Rez:=ln (U ^ .L ^);
: U ^ .Rez:=exp (U ^ .L ^);
: U ^ .Rez:=abs (U ^ .L ^);
: U ^ .Rez:=U ^ .L ^ + U ^ .R ^;
: U ^ .Rez:=U ^ .L ^ -U ^ .R ^;
: U ^ .Rez:=U ^ .L ^ * U ^ .R ^;
: U ^ .Rez:=U ^ .L ^/U ^ .R ^;
: if U ^ .L ^=0 then U ^ .Rez:=0 else U ^ .Rez:=exp (U ^ .R ^ * ln (U ^ .L ^)); ;; CreateSh; (strtologstr (FStroka), U);:=- 1; (MCh, nn + 1) ;; DeleteSh; Q: ElemSh ;: integer;:=BeginUz; U lt; gt; nil then if U ^ .Next=nil then Dispose (U) else:=U;:=U ^ .Next; (Q); U ^ .Next=BeginUz; (U) ;;:=nil; i:=low (Mch) to nn do if Mch [i] lt; gt; FX Then dispose (Mch [i]); (MCh, 0);:=nil ;; F (X: extended): extended;:=X;:=BeginUz; U=nil then F:=Mch [0] ^ elseU ^ .Next=nil then CompileUz (U) else (U);:=U ^ .Next; U ^ .Next=BeginUz; (U) ;;:=U ^ .Rez ;;;:=- 1;.
Висновок
На закінчення хотілося б відзначити, що методи структурного програмування дозволяють більш мобільно і якісно проводити роботу з модернізації програмного забезпечення. Так досить удосконалити окремий модуль відкомпілювати його і головний модуль, для досягнення, бажаного результату. Більше того, текст головної програми понад читаємо, і займає менше місця. Наявні напрацювання в окремих модулях можна використовувати в інших програмах, не замислюючись про їх працездатність. Чітко накреслені структура дозволяє чіткіше уявити цілі і завдання стоять перед програмістом. Не потрібно весь час переміщатися по тексту взад і вперед. У будь-який проміжок часу роботи над дуже великою програмною з'являється можливість сконцентруватися на окремому модулі. Відкривається можливість спільної роботи кількох людей над однією громіздкою програмної. Вдало розроблений модуль одного програміста ставати, доступний іншим.
Список літератури
1. Культін Н.П. Delphi в задачах і прімерах.- БХВ-Петербург, 2010. - 288 с
. Амосов А. А., Дубинський Ю.А., Копченова Н.В. Обчислювальні методи для інженеров.- М .: Вища школа, 2008. - 544 с
. Хомосенко А.А, Гофман В.А., Мещеряков Є.В., Нікіфоров І.П. Delphi 7. Найбільш повне руководство.- БХВ - Петербург, 2009. - 355 с.
1.
