Кто сможет исправить программу в ПАСКАЛЕ АВС ???
не правильно определены элементы стека, они должны быть числа, а не строки
КАК ЭТО ИСПРАВИТЬ ?
program ghf;
uses crt;
type
pnode=^node;
node=record;
s:string;
p:pnode;
end;
var
top,top1:pnode;
el:string;
i,ror,code,max:integer;
n:byte;
o:longint;
function push(top:pnode; el:string):pnode;
var p:pnode;
begin
new(p);
p^.s:=el;
p^.p:=top;
push:=p;
end;
function pop(top:pnode; var el:string):pnode;
var
p:pnode;
begin
el:=top^.s;
pop:=top^.p;
dispose(top);
end;
begin
top:=nil; top1:=nil;
write('Vsego elementov steka: ');
readln(n);
randomize;
for i:=1 to n do
begin
ror:=random(256)-128;
str(ror,el);
top:=Push(top,el);
if ror>max then max:=ror;
end;
writeln('Ishodnyj stek: ');
for i:=1 to n do if top<>nil then
begin
top:=pop(top,el);
writeln(el);
val(el,o,code);
if o<>max then top1:=Push(top1,el);
end
else break;
writeln('kon stek: ');
for i:=1 to n do if top1<>nil then
begin
top1:=pop(top1,el);
writeln(el);
end
else break;
end.
http://pastebin.ru/N3beHWMF