Вычислить n первых членов последовательности

@pugavka18 · Регистрация: 09.03.2016

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

Решить по этапам следующие задачи. Должны быть составлены две программы:
Первая - с использованием цикла for, вторая - либо с циклом repeat, либо с циклом while.
Вычислить n первых членов последовательности по формуле Ak=k-1/(k+1)^2, (k=1,*2,*…,*n)

@Peoples · 09.03.2016, 20:40

Через for

Pascal

program pr;
var
n,i:integer;
a:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do 
begin
a:=(i-1)/((i+1)*(i+1));
writeln('',i,' член последовательности: ',a);
end;
end.

Добавлено через 5 минут
Через while

Pascal

program pr;
var
n,i:integer;
a:real;
begin
writeln('Введите n');
readln(n);
i:=0;
while i<n do begin
i:=i+1;
a:=(i-1)/((i+1)*(i+1));
writeln('',i,' член последовательности: ',a);
end;
end.

Добавлено через 1 минуту
Через repeat

Pascal

program pr;
var
n,i:integer;
a:real;
begin
writeln('Введите n');
readln(n);
i:=0;
repeat
i:=i+1;
a:=(i-1)/((i+1)*(i+1));
writeln('',i,' член последовательности: ',a);
until i=n;
end.

@pugavka18 0 / 0 / 0 Регистрация: 09.03.2016 Сообщений: 45
		1
	Вычислить n первых членов последовательности 09.03.2016, 16:57. Показов 6705. Ответов 1 Метки нет (Все метки) Решить по этапам следующие задачи. Должны быть составлены две программы: Первая - с использованием цикла for, вторая - либо с циклом repeat, либо с циклом while. Вычислить n первых членов последовательности по формуле Ak=k-1/(k+1)^2, (k=1,2,…,*n) 0

	09.03.2016, 20:40

Вычислить n первых членов последовательности

Решение