Степенная функция в Паскале

21.10.2013, 20:04. **Показов** 4713. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Помогите разобраться с задачей.
Написать программу, вычисляющую следующую степенную функцию: f=(...(((a1)a2)a3)a4)...an
Входной файл:
- в первой строке файла содержится число n (1 < n < 10);
- во второй строке файла содержатся n целых чисел a1, a2, …, an, расположенных по порядку и разделенных пробелами (1 ≤ a1, a2, …, an < 10).
Выходной файл
Выходной файл содержит одно число – искомое значение степенной функции.

Примеры stepen.in stepen.out
Пример 1 3
2 3 4 4096
Пример 2 5
2 3 4 3 2 4722366482869645213696

Вот моя программа

Pascal

Program v;
var n, i: integer;
s: real;
a: array [1..10] of integer;
 
begin
assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  read(n);
  for i:=1 to n do readln(a[i]);
  for i:=1 to n do
s:=exp(ln(a[i]) * a[i+1])); 
write(s);
end.

Знаю, что не правильно, но не пойму как связать с s предыдущей? Или может, я вообще не правильно рассуждаю?

@Cyborg Drone · 22.10.2013, 16:52

Если так

$https://www.cyberforum.ru/cgi-bin/latex.cgi?f = (...{({({({(a_1)}^{a_2})}^{a_3})}^{a_4})}^{...a_n}$

, то вот так, например. Массив ни к чему здесь.

Pascal

Program v;
 
var n, i: integer;
    s, p: real;
    f: text;
 
begin
  assign(f, 'input.txt');
  reset(f);
  readln(f, n);
  read(f, s)
  for i:=2 to n do
    begin
      read(f, p);
      s := exp(p * ln(s))
    end;
  close(f); 
  assign(f, 'output.txt');
  rewrite(f);
  writeln(f, s);
  close(f)
end.

Не по теме:

Просьба: не ленитесь при необходимости пользоваться встроенным в форум редактором формул.

	22.10.2013, 16:52