Question

Срочно!!!! 9 класс Паскаль. Функции. (integer)Написать программу используя функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 3 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.

Answer 1

Количество зёрен на клетке будет равно 2^(N-1)

Тут сказано использовать переменную типа integer, при этом надо помнить, что максимальный номер клетки, который можно задавать равен 31 (для номеров выше будет либо ошибка, либо неверный ответ).

Чтобы считать зерно вплоть до последней, 64-ой клетки шахматной доски- надо менять тип на uint64 либо BigInteger (но, они не везде доступны да и программу надо будет править).

Вариант с циклом loop (в нём задаётся число повторов)

function Zern2(a: integer): integer;

begin

Result := 1;

loop a-1 do

Result := Result * 2;

end;

begin

var n,m: integer;

write('Введите номер клетки: ');

Read(n);

m:=Zern2(n);

write('Зёрен на этой клетке: ',m,' шт.');

end.

Вариант с циклом while:

function Zern2(a: integer): integer;

begin

Result := 1;

while a>1 do

begin

Result := Result * 2;

a := a - 1;

end;

end;

begin

var n,m: integer;

write('Введите номер клетки: ');

Read(n);

m:=Zern2(n);

write('Зёрен на этой клетке: ',m,' шт.');

end.

Вариант без цикла:

function Zern2(a: integer): integer;

begin

Result := Trunc(power(2,a-1));

end;

begin

var n,m: integer;

write('Введите номер клетки: ');

Read(n);

m:=Zern2(n);

write('Зёрен на этой клетке: ',m,' шт.');

end.

Answer 2

Для решения данной задачи вам потребуется написать программу на языке Паскаль, используя функцию. Эта функция будет определять, сколько зерен попросил положить изобретатель шахмат на N-ую клетку.

Вот пример программы на языке Паскаль, которая решает данную задачу:

program ChessGrains;

function CalculateGrains(cellNumber: integer): integer;
var
  grains: integer;
  i: integer;
begin
  grains := 0;
  for i := 1 to cellNumber do
  begin
    grains := grains + i;
  end;
  CalculateGrains := grains;
end;

var
  cellNumber: integer;
  totalGrains: integer;
begin
  writeln('Введите номер клетки:');
  readln(cellNumber);
  
  totalGrains := CalculateGrains(cellNumber);
  
  writeln('На ', cellNumber, '-ой клетке ', totalGrains, ' зерен.');
end.

В этой программе мы объявляем функцию `CalculateGrains`, которая принимает номер клетки в качестве аргумента и возвращает общее количество зерен на этой клетке. Затем мы считываем номер клетки с помощью `readln` и вызываем функцию `CalculateGrains`, передавая ей номер клетки. Результат сохраняется в переменной `totalGrains`, которая выводится на экран с помощью `writeln`.

Например, если вы введете номер клетки 28, программа выведет следующий результат: "На 28-ой клетке 134217728 зерен."

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