длинная арифметика, написал задачу, вродеправильно..а она не правильно работает( Опции

[Dr. Froze]

!

Теги !

посмотрите пожалуйста
вобщем найти (n*(n+1)*(2*n+1))/6

program gg;
var z,j,x,y,n,k,p,i,a1,b1,c1:integer;
a,b,c,r,g,l:string;



  procedure sum(a,b:string; n,k,i,a1,b1,c1,p:byte;var c:string);
   begin
    delete(c,1,255);
    p:=0;
    n:=length(a);
    k:=length(b);
    if n>k
     then
       for i:=k+1 to n do
       b:='0'+b
     else
      begin
       for i:=n+1 to k do
        a:='0'+a;
        n:=k;
      end;
    for i:=n downto 1 do
     begin
      a1:=ord(a[i])-ord('0');
      b1:=ord(b[i])-ord('0');
      c1:=(a1+b1+p)mod(10);
      p:=(a1+b1+p)div(10);
      c:=chr(c1+ord('0'))+c;
     end;
    if p>0
     then
       c:=chr(p+ord('0'))+c;
   end;



  procedure mul(a,b:string;
   z,j,x,y,n,k,p,i:integer; var c:string);
   begin
    delete(c,1,255);
    z:=0;
    x:=0;
    y:=0;
    p:=0;
    n:=length(a);
    k:=length(b);
     for i:=1 to n+k do
       c:=c+'0';
     for i:=k downto 1 do
      begin
       p:=0;
       y:=ord(b[i])-ord('0');
       for j:=n downto 1 do
        begin
         x:=ord(a[j])-ord('0');
         z:=x*y+p+ord(c[i+j])-ord('0');
         p:=(z)div(10);
         c[i+j]:=chr((z mod 10)+ord('0'));
        end;
      end;
     if c[1]='0' then delete(c,1,1);
   end;



  procedure del(a:string; n,i,p:integer; var c:string);
   begin
    delete(c,1,255);
    p:=0;
    n:=length(a);
    for i:=1 to n do
     begin
      c:=c+chr( (ord(a[i])-ord('0')+10*p) div(6)+ord('0'));
      p:=(ord(a[i])-ord('0'))mod(6);
     end;
    if c[1]='0' then delete(c,1,1);
   end;



begin
assign(input,'input.pas');
reset(input);
assign(output,'output.pas');
rewrite(output);
readln®;
readln(g);
a:=r;
b:=g;
sum(a,b,n,k,i,a1,b1,c1,p,c);
a:=c;
b:=r;
mul(a,b,z,j,x,y,n,k,p,i,c);
l:=c;
a:=r;
b:=r;
sum(a,b,n,k,i,a1,b1,c1,p,c);
a:=c;
b:=g;
sum(a,b,n,k,i,a1,b1,c1,p,c);
a:=c;
b:=l;
mul(a,b,z,j,x,y,n,k,p,i,c);
del(a,n,i,p,c);
writeln©;
close(input);
close(output);

end.

ввести надо:
r=20000;
g=1;
мож у меня паскаль левый...?

Сообщение отредактировано: klem4 - 19.05.2007 20:56

[compiler]

както не стыкуется

вобщем найти (n*(n+1)*(2*n+1))/6

и

ввести надо:
r=20000;
g=1;

по заданию так..

var n:comp;
begin 
	readln(n);
	n:=(n*(n+1)*(2*n+1)) / 6;
	writeln(n);
	readln;
	read;
end.

мож у меня паскаль левый...?

этого тут не кто не знает

Сообщение отредактировано: compiler - 19.05.2007 21:16