Question

Напишите на паскаль программу расчет произведения введённых с клавиатуры N произвольных чисел с применением цикла с условием окончания работы Заранее спасибо

Answer 1

Программа:

Pascal:

var

 N: integer;

 proiz, num: real;

begin

 proiz := 1;  num := 1;

 

 write('N = ');  readln(N);

 while N <> 0 do begin

   write('Введите ', N, ' число: ');  readln(num);

   proiz *= num;

   N -= 1;

 end;

 writeln('Произведение чисел: ', proiz);

end.

Объяснение:

В начале регистрируются три переменные, которые будут использоваться в основном коде. Переменной proiz присваивается единица, чтобы в будущем не умножать на ноль. Далее вводится N с клавиатуры, как сказано по условию. Применяется цикл, который также необходим по условию (подойдёт while). И выполняется следующее тело: запрашивается N число с клавиатуры, значение переменной proiz умножается на введённое число, значение N уменьшается на единицу. В конце - вывод произведения этих N чисел.

Результат:

N = 10

Введите 10 число: 10

Введите 9 число: 20

Введите 8 число: 30

Введите 7 число: 40

Введите 6 число: 50

Введите 5 число: 60

Введите 4 число: 70

Введите 3 число: 80

Введите 2 число: 90

Введите 1 число: 100

Произведение чисел: 3.6288E+16

Answer 2

Конечно, вот пример программы на языке Pascal, которая рассчитывает произведение N произвольных чисел, введенных с клавиатуры, используя цикл с условием окончания работы:

pascalCopy code
program CalculateProduct;
var
  N, i: integer;
  product, num: real;

begin
  product := 1.0; // Инициализация произведения

  writeln('Введите количество чисел для умножения (N): ');
  readln(N);

  // Проверка на неотрицательное N
  if N < 0 then
  begin
    writeln('Количество чисел должно быть неотрицательным.');
    exit;
  end;

  writeln('Введите ', N, ' чисел: ');

  // Цикл для умножения N чисел
  for i := 1 to N do
  begin
    write('Введите число ', i, ': ');
    readln(num);
    product := product * num; // Умножаем текущее число на произведение
  end;

  // Вывод произведения
  writeln('Произведение введенных чисел: ', product);

  // Ждем нажатия клавиши перед завершением программы
  readln;
end.

Эта программа запрашивает у пользователя количество чисел N, которые он хочет умножить, а затем просит пользователя ввести эти N чисел. Она использует цикл для умножения введенных чисел и выводит произведение.