ПОМОГИТЕ С ПАСКАЛЕМ, СПАСИТЕ. НУЖНО НАПИСАТЬ ПРОГРАММУ.. очень прошу помогите написать....

Question

ПОМОГИТЕ С ПАСКАЛЕМ, СПАСИТЕ. НУЖНО НАПИСАТЬ ПРОГРАММУ.. очень прошу помогите написать. задание на картинке

---

Comments

Ой спасибо вам огромное, вы так выручили

---

Только я не уверен, что это правильно. Т.к. на последнем шаге a = 1.25, а не 1,3.

---

А никак не получается 1,3?

---

Да нет, оно в конце так и получается, дело не в этом

---

Есть цикл:For n:= 0 to 5 doBeginS:=S+Exp(n*Ln(a+n));a:=a+0.05;End;В нём a принимает значения от 1 до 1.25Если в нём переставить действия:For n:= 0 to 5 doBegina:=a+0.05;S:=S+Exp(n*Ln(a+n));End;То а будет принимать значения от 1.05 до 1.3

---

Как правильно?

---

Последний, который до 1.3

---

Ладно))

---

Теперь все так в программе?

---

Спасибо большое, выручили

Answer 1

// PascalABC.NET 3.2, сборка 1404 от 16.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var k:=Trunc((1.3-1)/0.05)+1;
  for var i:=1 to k do begin
    var a:=1+0.05*(i-1);
    var f:=a+2.0;
    for var n:=2 to 5 do f+=power((a+n),n);
    Writeln(a:4:2,f:18:9)
    end
end.

Результат
1.00    8477.000000000
1.05    8834.605319063
1.10    9204.114110000
1.15    9585.819144688
1.20    9980.017920000
1.25   10387.012695313
1.30   10807.110530000

Comments

извините меня. но помогите, пожалуйста очень вас прошу. во free Pascal и когда возводить в степень, не использовать Power, а через exp ln. и там получается 1) программа с предусловием

---

2) программа с постусловием

---

это для другого задания уже. можно будет кинуть вам?

---

https://znanija.com/task/23601966

---

пожалуйста, помогите написать. просто единственная надежда на вас

---

очень сильно выручите