ПрограмматАУраспознаватель арифметических выражений
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
in
op1:=memo2.Lines[strtoint(st[2])];
delete(st,1,4);
end
else
begin
op1:=copy(st,1,pos(' ',st));
delete(st,1,pos(' ',st));
end;
if (st[1]='"') then
begin
op2:=st[2]; memo2.Lines[strtoint(st[2])];
edit2.text:=op2;
end
else
begin
op2:=st;
end;
memo2.Lines[i]:=floattostr(strtofloat(op1)*strtofloat(op2));
end;
'+':begin
delete(st,1,2);
if (st[1]='"') then
begin
op1:=memo2.Lines[strtoint(st[2])];
delete(st,1,4);
end
else
begin
op1:=copy(st,1,pos(' ',st));
delete(st,1,pos(' ',st));
end;
if (st[1]='"') then
begin
op2:=memo2.Lines[strtoint(st[2])]; memo2.Lines[strtoint(st[2])];
end
else
begin
op2:=st;
end;
memo2.Lines[i]:=floattostr(strtofloat(op1)+strtofloat(op2));
end;
end;
edit2.text:=memo2.Lines[memo2.Lines.count-1];;
;
TForm1.Button2Click(Sender: TObject);.Text:='';.Text:='';.Lines.Clear;.Lines.Clear;
end;
.
Copyright © 2008-2014 geum.ru рубрикатор по предметам рубрикатор по типам работ пользовательское соглашение