Нужна помощь в создании программы на while и repeat

[Nikolai17]

Циклические программы
Цель работы: освоить приемы программирования циклических алгоритмических структур while… do и repeat …until.

Задание 1.
Реализовать два варианта программы: с использованием цикла while и с использованием цикла repeat;

Собсно сама задача

Составить программу вычисления суммы n первых членов арифметической прогрессии, если а1=1, d=3.

program Exes;
uses crt;
var x,n:integer;
begin
clrcsr;
writeln('Enter (n) ');
readln('n');
while

Не могу понять как тут писобачить while


вот еще формула

s = (2 * a + d * (n - 1)) / 2 * n

[Олвин]

Хех, тут логичнее for использовать. Но если они просят while... Берем, инициализируем i нулем. Ставим условие i<=n, в цикле сначала увеличиваем i на 1, затем s:=s+(формула для вычисления i-го члена прогрессии). Все. Что это за формула там дана можно было пояснить; для чего изучать циклы можно было не писать. А в repeat условие нужно поменять на i<n. Почему - читайте определения циклов.

[ОДИНОЧЕСТВО В СЕТИ]

s:=0
i:=1;
d:=3;
k:=1;
while k<=n do
begin
s:=s+i;
inc(i,d);
inc(k);
end;
writeln(s);

s:=0
i:=1;
d:=3;
k:=1;
repeat 
s:=s+i;
inc(i,d);
inc(k)
until k>n;
writeln(s);

[Nikolai17]

Огромное спасибо парни а то я мудился

program Exes;
uses crt;
var s,a,d,n,i:integer;
begin
clrscr;
a:= 1;
d:= 3;
i:= 1;
s:=0;
writeln('Enter (n) ');
readln(n);
while i <= n
do begin
s:= (2 * a + d * (n - 1)) / 2 * n

writeln(s)

end.

[ОДИНОЧЕСТВО В СЕТИ]

Огромное спасибо парни а то я мудился

вот так вот вся слава мужикам!!!
тока у меня 2 вопроса:
1 для чего в вашей проге while?
2 зачем вы выводите n a не s

[Nikolai17]

только что с другом заметили.....я мудак

[webs77]

Помогите пожалуйста с решением задачи:
Составить программу вычисления произведения нечетных чисел, меньших 16.C использованием цикла while и с использованием цикла repeat

[Nikolai17]

а что такое inc

[ОДИНОЧЕСТВО В СЕТИ]

inc(k) это k:=k+1;
inc(i,d) это i:=i+d;

2 webs77

p:=1
i:=1;
while i<16 do
begin
p:=p*i;
inc(i,2);
end;
writeln(p);

p:=1
i:=1;
repeat 
p:=p*i;
inc(i,2);
until i>16;
writeln(p);

[Nikolai17]

все ....разобрался

program ef;
uses crt;
var 
a,d,k,s,n:real;
begin
textcolor(black);
textbackground(white);
clrscr;
writeln('Enter n');
readln(n);
a:=1;
d:=3;
k:=1;
while k<=n do
begin
s:= (n*(2 * a + d * (n - 1))) / 2 ;
k:=k+1;
end;
writeln('Summa ravna = ' ,s:4:2);
readkey;
end.