Правила форума
Прочтите прежде чем задавать вопрос!
Проблемы:
1)некоректная работа процедуры сложения
2)процедура произведения отказывается работать
3) не понимаю как писать процедуру деления
Код
program mnog;
const n=50;
type tmas=^mas;
mas=array[1..n] of real;
var KL:integer;
function podc(sc:string):integer;{podschet razmera massiva mnogochlena}
var k,m,kol,i:integer;
begin
k:=length(sc);
m:=0;
for i:=1 to k do
if sc[i]='+' then inc(m);
kol:=m+1;
podc:=2*kol;
end;
procedure readp(s:string; var a:tmas);{formatniy vvod}
const lim=['*','+','x','^'];
var i,j,k,code:integer; v:real; m:string;
begin
k:=length(s);
m:='';
j:=1;
i := 1;
while i <= k do begin
while (i <= k) and not(s[i] in lim) do begin
m:=m+s[i];
inc(i);
end;
if m <> '' then begin
val(m,v,code);
a^[j]:=v;
inc(j); m:='';
end;
inc(i);
end;
kl:=podc(s);
end;
procedure formv(vh:tmas; var v:string);{formatnii vivod}
var i:integer; s:string;
begin
str(vh^[1],s);
v:=s+'*x^';
str(vh^[2],s);
v:=v+s;
for i:=3 to kl do
begin
str(vh^[i],s);
v:=v+'+'+s+'*x^';
str(vh^[i+1],s);
v:=v+s;
i:=i+1;
end;
end;
procedure sum(sl1,sl2:tmas;kc1,kc2:integer; var summ:string);{summa}
var i,j,h,h1:integer; summa:tmas;
begin
if kc1>kc2 then h:=kc2 else h:=kc1;
if kc1=kc2 then h:=kc1;
for i:=1 to h do begin
if sl1^[i+1]=sl2^[i+1] then begin
summa^[i]:=sl1^[i]+sl2^[i];
summa^[i+1]:=sl1^[i+1];
i:=i+1;
end else begin
summa^[i]:=sl1^[i];
summa^[i+1]:=sl1^[i+1];
summa^[i+2]:=sl2^[i];
summa^[i+3]:=sl2^[i+1];
i:=i+3;
end;
end;
if kc1>kc2 then h1:=kc1 else h1:=kc2;
for i:=h to h1 do begin
if h1=kc1 then
summa^[i]:=sl1^[i]
else
summa^[i]:=sl2^[i];
end;
formv(summa,summ);
end;
procedure mult(mn1,mn2:tmas; kmn1,kmn2:integer; mul:string);{proizvedenie}
var i,j,k:integer; multi:tmas;
begin
k:=1;
for i:=1 to kmn1 do
for j:=1 to kmn2 do begin
multi^[k]:=mn1^[i]*mn2^[j];
multi^[k+1]:=mn1^[i+1]+mn2^[j+1];
inc(j);
k:=k+2;
end;
formv(multi,mul);
end;
procedure razbna2(cel:tmas; var koef,st:tmas);{razbienie na masivi koeficien i step}
var i,m:integer;
begin
for i:=1 to kl do begin
koef^[i]:=cel^[i];
inc(i);
st^[i]:=cel^[i];
end;
end;
var ss,sk,sl1,sl2,sl3,sl4,kk1,kk2:string;
ob,mn1,mn2,mn3,mn4:tmas;
i,kl1,kl2,kl3,kl4:integer;
begin
writeln('Vvedi mnogochlen ');
readln(ss);
readp(ss,ob);
writeln('Vid');
writeln;
for i:=1 to kl do
write(ob^[i],' ');
writeln;
writeln;
formv(ob,sk);
writeln(sk);
writeln;
writeln('Vvedite mnogoch dlya summirovaniya ');
writeln('Vvedite 1 ');
readln(sl1);
readp(sl1, mn1);
kl1:=kl;
writeln('Vvedite 2 ');
readln(sl2);
readp(sl2, mn2);
kl2:=kl;
sum(mn1,mn2,kl1,kl2,kk1);
writeln;
writeln(kk1);
writeln;
writeln('Vvedite mnogoch dlya umnozh ');
writeln('Vvedite 1 ');
readln(sl3);
readp(sl3, mn3);
kl3:=kl;
writeln('Vvedite 2 ');
readln(sl4);
readp(sl4, mn4);
kl4:=kl;
mult(mn3,mn4,kl3,kl4,kk2);
writeln;
writeln(kk2);
readln;
end.
