Курсовая работа: Ссылочные типы. Динамические переменные

begin

if T= nil then T1:= nil

else

begin

new( T1 );

T1^.Elem:= T^.Elem;

CopyTree( T^.Left, T1^.Left );

CopyTree( T^.Right, T1^.Right )

end

end;

Глава II. Практическая часть

1-Задача 1. Программа «Калькулятор»

Постановка задачи. Составить программу калькулятор.

Листинг программы

program Kalkulator;

var

M:array[1..50] of string;

j,i,n:integer;

s,s1,s2,s3:string;

x,y:real;

begin

writeln('BBeDi OPeRAciy');

readln(s);

n:=length(s);

for i:=0 to n-1 do

begin

M[i]:=copy(s,i,1);

if (m[i]='+')or(m[i]='-')or(m[i]='*')or(m[i]='/') then j:=i;

end;