Pascal ABCNET. Найти сколько зёрен поместится на шахматной доске и их вес

[a_clarke]

Шахматы были изобретены в Индии. Индусский царь Ше-рам решил наградить изобретателя шахмат, вызвал его к себе и сказал,что исполнит любую его просьбу. Изобретатель удивил царя беспримерной скромностью просьбы:
-Прикажи выдать мне за первую клетку шахматной доски 1 пшеничное зерно, за вторую 2, за каждую следующую в два раза больше, чем за предыдущую. Сколько килограммов зерен было выдано изобретателю, если 1 зерно весит 0.05 г.

[Аватар]

А как на бумаге решить знаешь?

[a_clarke]

да,знаю. а с кодом не получается

[Dvoishnik]

zern:=0;
zernKl:=1;
for i:=1 to 64 do 
 begin
      zernKl:=zernKl*2; // зерен в клетке 
      zern:=zern+ zernKl; //всего зерен. 
 end;

так??

[Аватар]

Та ладно, там длинная арифметика нужна - 2^64 - 1 = 18446744073709551615

[Dvoishnik]

Сообщение от Аватар

Та ладно, там длинная арифметика нужна - 2^64 - 1 = 18446744073709551615

http://www.borlpasc.narod.ru/refer/2/tip.htm

2*10^63-1 должно хватить

[Аватар]

Это про int64 или его аналог? Ну так подставь в свой код, облом получишь
И кг будет 922337203685477,58075

[Dvoishnik]

а так ?? если честно не уверен что скомпилируется даже..

type 
mas = array[1..8] of Integer;
 
var 
zern,
zernKl:mas;
i:byte;

procedure umnog(Mnog:integer; a1:mas;); // умножение
var
	prom:integer;
 begin
	prom:=0;	
	for n:=8 downto 1 do 
	 begin
		a1[n]:=(a1[n]*Mnog)+prom ;
		if a1[n] > 999 then 
		 begin
			prom:=(a1[n] div 1000) ;
			a1[n]:=(a1[n] mod 1000);  
		 end;
	 end;
 for i:=1 to 8 do  
	zernKl[i]:=a1[i];
 end;

procedure summ(a1:mas;a2:mas;);  // сумирование
var
	prom:integer;
 Begin 
	prom:=0;	
	for n:=8 downto 1 do 
	 begin
		a1[n]:=(a1[n]+a2[n])+prom ;
		if a1[n] > 999 then 
		 begin
			prom:=(a1[n] div 1000) ;
			a1[n]:=(a1[n] mod 1000);  
		 end;
	 end;
 for i:=1 to 8 do  
	zern[i]:=a1[i];
 end;

Begin
zernKl[8]:=1;
zern[8]:=0;
 for i:=1 to 64 do 
  begin
    umnog(2,zernKl);// зерен в клетке 
	summ (zern,zernKl);//всего зерен.  
  end;
..................
end.

[Serge_Bliznykov]

взяв код для длинной арифметики любезно предоставленный Mad_Cat в этом сообщении - (ссылка)
можно получить такой (рабочий код):

function CharToByte(c: char): byte;
begin
  CharToByte := ord(c) - ord('0');
end;

function BytetoChar(c: byte): char;
begin
  BytetoChar := chr(c + ord('0'));
end;

function Summa(x, y: string): string;
var i: integer;
  summ: byte;
  res: string;
begin
  res := '';
  while length(x) < length(y) do
    x := '0' + x;
  while length(y) < length(x) do
    y := '0' + y;
  for i := 1 to length(x) do
    res := res + '0';
  for i := length(x) downto 2 do
  begin
    summ := CharToByte(x[i]) + CharToByte(y[i]) + CharToByte(res[i]);
    res[i] := bytetochar(summ mod 10);
    res[i - 1] := bytetochar(summ div 10);
  end;
  summ := CharToByte(x[1]) + CharToByte(y[1]) + CharToByte(res[1]);
  if summ <= 9 then
    res[1] := bytetochar(summ)
  else begin
    res[1] := bytetochar(summ mod 10);
    res := bytetochar(summ div 10) + res;
  end;
  summa := res;
end;

function MultDigit(x, y: string): string;
var i: integer;
  Mult: byte;
  res: string;
begin
  res := '';
  for i := 1 to length(x) do
    res := res + '0';
  for i := length(x) downto 2 do
  begin
    Mult := CharToByte(x[i]) * CharToByte(y[1]) + CharToByte(res[i]);
    res[i] := bytetochar(Mult mod 10);
    res[i - 1] := bytetochar(Mult div 10);
  end;
  mult := CharToByte(x[1]) * CharToByte(y[1]) + CharToByte(res[1]);
  if mult <= 9 then
    res[1] := bytetochar(mult)
  else begin
    res[1] := bytetochar(mult mod 10);
    res := bytetochar(mult div 10) + res;
  end;
  MultDigit := res;
end;

function MultNumb(x, y: string): string;
var i: integer;
  Mult: byte;
  res: string;
  buf: string;
  tmp: string;
begin
  res := '';
  buf := '';
  for i := length(y) downto 1 do
  begin
    tmp := Multdigit(x, y[i]) + buf;
    res := summa(res, tmp);
    buf := buf + '0';
  end;
  MultNumb := res;
end;

var zernKl: uint64;
 i:integer;
 AllZeren, allVes : string;
 sZernKl  : string;
begin
 AllZeren:='1';
 zernKl:=1; // учли уже первую клетку
 for i:=2 to 64 do 
 begin
    zernKl:=zernKl*2; // зерен в клетке 
    str(zernKl, sZernKl);
    AllZeren:=Summa(AllZeren, sZernKl); //всего зерен. 
    // WriteLn('2^',i,'=',zernKl, ' i2s = ',sZernKl,' сумма равна ',AllZeren );
 end;
 // '5' вес зерен будем считать в целых числах, 0.05 гр. - это 5 сотых грамма }
 WriteLn('Всего зерен  =', AllZeren  );
 allVes := MultNumb(AllZeren, '5');
 WriteLn('Вес зерен в сотых грамма =', allVes  );
 Insert('.', allVes, Length(allVes)+1-5); // разделим на 100000 (поставим запятую на пять знаков правее)
 WriteLn('Вес зерен в кг =  ', allVes); 
end.