Складемо програми на цикл повторення з параметром

4.1. Учора, переглядаючи фільм про пригоди Гаррі Поттера, Тарасик спробував порахувати, скільки запрошень на навчання до школи Гогвортс відіслав хлопцю професор Дамблдор. Але це виявилося досить складно, оскільки вже через кілька днів від початку листування запрошення надходили без зупинки. Напишіть програму, яка визначатиме кількість листів, що надійшли до Гаррі.

Першого дня професор Дамблдор відправив із совою одного листа та одного листа поклав до поштової скриньки будинку, де мешкав майбутній маг. Далі щодня він відправляв із совами в х разів більше запрошень, ніж у попередній день. Крім того, до поштової скриньки Дамблдор вкладав на y листів більше, ніж у попередній день. Допоможіть визначити, скільки всього листів отримав Гаррі Поттер за n днів листування із школою Гогвортс.

Приведемо програму:

program potter;

var i,x,y,n,s,s1,s2,n1,n2:integer;

begin

readln(x);

readln(y);

readln(n);

s:=0;s1:=0;s2:=0;n1:=1;n2:=1;

for i:=1 to n do begin

s1:=s1+n1;s2:=s2+n2;

s:=s1+s2;

n1:=n1*x;n2:=n2+y;

end;

writeln(s);

readln;

end.

4.2. Мандруючи Амазонкою, Петрик багато уваги приділяв вивченню рослин. Особливо він зацікавився молочними деревами. Так вони називаються тому, що мають сік, що нагадує смачне молоко. Маленький паросток молочного деревами висотою h м виростає на х см за перший тиждень, а кожного наступного тижня швидкість його росту збільшується на y% від швидкості попереднього тижня. На початку спостережень діаметр ствола дерева дорівнював d см . Кожного тижня його діаметр збільшувався на a см. Визначте, якої висоти буде молочне дерево через n тижнів спостережень. Чи змогла родина бобрів перегризти стовбур цієї рослини, якщо працюючи разом, вони можуть перегризти дерева діаметром до с см?

Приведемо програму:

program tree;

var n,i,c:integer;h,x,y,d,a:real;

begin

readln(h);readln(x);readln(y);readln(n);readln(d);readln(a);readln(c);

h:=100*h;

for i:=1 to n do begin

h:=h+x; x:=x+x*y*0.01;

d:=d+a*0.1;end;

writeln(d:6:1);

if d>c then writeln('не перегризуть') else writeln('перегризуть дерево');

writeln(h:6:2);

end.

4.3. В кінотеатрі, який облаштував Головний Комп’ютер у Музеї обчислювальної техніки, зал кінотеатру побудували таким чином, щоб у першому ряду поставили лише 2 крісла, у другому – 6, у третьому – 12, у четвертому – 20, і т. далі. Загалом, виходить така числова послідовність: 2; 6; 12; 20; 30; 42; 56…Скільки всього місць для глядачів є у цьому кінотеатрі, якщо Головний Комп’ютер облаштував за таким законом n рядів?

Приведемо програму:

program komputer;

var n,s,i:integer;

begin

s:=0;

readln(n);

for i:=1 to n do begin

s:=s+n*(n+1);end;

writeln(s:4);

readln;end.