Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
kionlife
0 / 0 / 0
Регистрация: 07.05.2014
Сообщений: 42
1

Задача про зерна на шахматной доске

10.10.2014, 23:36. Просмотров 754. Ответов 4
Метки нет (Все метки)

Задача про зерна на шахматной доске.
Задача о зёрнах на шахматной доске — математическая задача, в которой вычисляется, сколько будет зёрен на шахматной доске, если класть на каждую следующую клетку доски вдвое больше зёрен, чем на предыдущую, начиная с одного.
Все выходит, но дело в том, что число большое и вывести не может.

Ответ должен быть: 18 446 744 073 709 551 615.
Как вариант пробовал перевести число в строку, но не удалось.

Наброски:

Кликните здесь для просмотра всего текста
1 вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program pr3;
uses crt;
var k, sum, a: extended;
begin
clrscr;
sum:=0; k:=1; a:=1;
while k<=64 do
begin
sum:= sum+a;
a:=a*2;
k:=k+1;
end;
writeln('sum=', sum:25:0);
readln;
end.
2 вариант:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program Zerno; 
uses crt;
Var   s,k:extended;
i:byte;
Const   n=64;
Begin   s:=1;
clrscr;
 for i:=1 to n-1 do
 Begin     k:=exp(i*ln(2));
 s:=s+k;
 End;
 Writeln('Zerna: ',s:25:0,' shtuk');
 Readln; 
 End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2014, 23:36
Ответы с готовыми решениями:

Положение фигуры на шахматной доске
Положение фигуры на шахматной доске (8 х 8) описывается двумя числами –...

Местоположение слона на шахматной доске
Задача: даны координаты n фигур на шахматной доске и координаты слона....

Расставить на шахматной доске 8 ферзей.
люди помогите решить пожалуйста курсовик срочно нужно(((( Расставить на...

Расположить на шахматной доске восемь ладей
Восемь ладей. Расположить на шахматной доске восемь ладей так, чтобы при этом...

Как нарисовать на шахматной доске фигуры шашки
Скажите как нарисовать на шахматной доске фигуры шашки, впринцыпе алгоритм...

4
Joy
Эксперт Pascal/Delphi
2163 / 1194 / 1434
Регистрация: 29.08.2014
Сообщений: 4,373
11.10.2014, 05:34 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=19;
var
  s:array[0..n] of integer;
  i:integer;
procedure gprogr2(var a:array of integer);
var
  i:integer;
begin
   for i:=n-1 downto 0 do begin
     a[i]:=a[i]*2;
     if a[i]>9 then a[i+1]:=a[i+1]+a[i] div 10;a[i]:=a[i] mod 10;
   end;
end;
begin
  for i:=0 to n do s[i]:=0;
  writeln('Seta');
  s[0]:=1;
  for i:=1 to 64 do gprogr2(s);s[0]:=s[0]-1;
  for i:=n downto 0 do write(s[i]);
  readln;
end.
так хватает
1
kionlife
0 / 0 / 0
Регистрация: 07.05.2014
Сообщений: 42
11.10.2014, 08:14  [ТС] 3
Спасибо большое. А объяснить можете? А то что-то с масивами туговато, не вникну..
0
Joy
Эксперт Pascal/Delphi
2163 / 1194 / 1434
Регистрация: 29.08.2014
Сообщений: 4,373
11.10.2014, 08:29 4
это умножение в столбик на 2. число представлено как массив где младшие разряды числа начинаются с 0-го элемента. фактически считается ряд 1+2+4+8...64 представленный формулой http://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=0}^{63} {2}^{i} = {2}^{64}-1
0
Puporev
Модератор
54698 / 42112 / 29076
Регистрация: 18.05.2008
Сообщений: 99,386
11.10.2014, 09:04 5
Если это задача из источника, где должен использоваться Free Pascal, то посмотрите последние посты в этой теме
Задача о зёрнах на шахматной доске
0
11.10.2014, 09:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2014, 09:04

Расположите наименьшее число слонов на шахматной доске
Помогите пожалуйста. Незащищенные слоны. Расположите наименьшее число слонов...

Расставить на шахматной доске максимальное количество суперферзей
В общем надо расставить на шахматной доске максимальное количество супер...

Задача о Шахматной доске
Шахиншах на каждую шахматную клетку кладет вдвое больше зерен, чем на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru