Интерпретатор, нужно сделать прогу на паскале Опции

[chessman]

Нужна прога на паскале-"Интерпретатор".
Может у кого -нибудь уже есть такая прога.
Или помогите советом.

[volvo]

chessman, кстати эту программу можно немного упростить для понимания, если использовать процедурные типы. Ну, например, вот так:
вместо того, чтобы явно перечислять все функции (и их параметры), как сделано здесь

if ss='sin' then s:=copy (s,1,k)+stt(sin (stt_(s_)))+copy (s,i+1,l);
if ss='cos' then s:=copy (s,1,k)+stt(cos (stt_(s_)))+copy (s,i+1,l);
if ss='tg' then s:=copy (s,1,k)+stt(sin (stt_(s_))/cos (stt_(s_)))+copy (s,i+1,l);
if ss='atctg' then s:=copy (s,1,k)+stt(arctan (stt_(s_)))+copy (s,i+1,l);
if ss='ln' then s:=copy (s,1,k)+stt(ln (stt_(s_)))+copy (s,i+1,l);
if ss='abs' then s:=copy (s,1,k)+stt(abs (stt_(s_)))+copy (s,i+1,l);
if ss='rnd' then s:=copy (s,1,k)+stt(random (round(stt_(s_))))+copy (s,i+1,l);
if ss='exp' then s:=copy (s,1,k)+stt(exp (stt_(s_)))+copy (s,i+1,l);

будет лучше предварительно определить нужные функции и...

type
  f_type = function(e: extended): extended;
const
  size_func = 8;
  cf: array[1 .. size_func] of record
    name: string;
    func: f_type;
  end = (
    (name:  'sin'; func: f_sin),
    (name:  'cos'; func: f_cos),
    (name:   'tg'; func:  f_tg),
    (name:'atctg'; func:f_atan),
    (name:   'ln'; func:  f_ln),
    (name:  'abs'; func: f_abs),
    (name:  'rnd'; func: f_rnd),
    (name:  'exp'; func: f_exp)
  );
...
{ внутри CALC делать так: }
for ii := 1 to size_func do
  if ss = cf[ii].name then
    s := copy (s,1,k)+stt(cf[ii].func(stt_(s_)))+copy (s,i+1,l);

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