Опять паскаль... Задана арифметическая прогрессия 2; 2,8; … . Сколько членов прогрессии...

Question

Опять паскаль...
Задана арифметическая прогрессия 2; 2,8; … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >20.

Comments

Это и без Паскаля можно решить, зная формулу суммы членов арифметической прогрессии ))

---

задана прогрессия именно "2; 2,8" или может быть другая прогрессия задана?

---

именно эта

Answer 1

A := 2.0;
i := 1;
while (a < 20) do
begin
a := a + a + 0.8;
inc(i);
end;
writeln(i);

Comments

Увы, но вы проверяете сами значения прогрессии... А нужно сумму членов прогрессии. Не сходится с условиями задачи.

Answer 2

Ну наверно так: 
program qq;
 var i:integer; sum,num:real;
Begin
 num=2;
 sum:=2;
 i:=1;
 while(sum<=20)<br> Begin
  i:=i+1;
  num:=num+0.8;
  sum:=sum+(sum+num);
 End;
 Writeln('Количество членов прогрессии: ', i);
End.

Comments

Тогда всё прекрасно работает. Забыл убрать, так как сначала с одной переменной сделать хотел. :)

---

Ну и несколько ошибок, таких как num:=2 и while(sum<=20)do

---

извините, для меня это сложно, а вообще можно как то попроще сделать?

---

program qq;
var i:integer; sum,num:real;
Begin
num=2;
sum:=2;
i:=1;
while(sum<=20)<br> Begin
i:=i+1;
num:=num+0.8;
sum:=sum+(sum+num);
End;
Writeln('Количество членов прогрессии: ', i);
End.

---

program qq;
var i:integer; sum:real;
Begin
sum:=2;
i:=0;
while(sum<=20)do<br> Begin
i:=i+1;
sum:=sum+(2+i*0.8);
End;
Writeln('Количество членов прогрессии: ', i+1);
End.

---

чувствую себя полной дурой, а можно чтобы программа сама рассчитала шаг прогрессии?)

---

шаг же 0.8

---

2.8-2=0.8 это и есть шаг прогрессии.по условию же

---

хорошо, можно еще одну программу Вам скину?

---

Протабулировать функцию y= cos x2+sin x2 на интервале [-п/2,п/2] с шагом п/10.