Операторы цикла и блок-схема к нему

@iRun · Регистрация: 09.06.2014

Помогите решить. Буду безмерно благодарен

@APALoff · 09.06.2014, 16:32

Pascal

Function Rd(n : Longint) : Real;
Begin
  If n>=1 then Rd:=1/(n*(n+2)) else Rd:=0;
end;
 
Begin
  Writeln(Rd(15):25);
end.

@volvo · 09.06.2014, 16:37

APALoff, а рекурсию кто вызывать будет?

Pascal

1
2
3

// ...
  If n>=1 then Rd:=1/(n*(n+2)) + Rd(n - 2) else Rd:=0;
// ...

Хотя этот вариант ТС-а не устроит. У него задание по циклам...

@APALoff · 09.06.2014, 18:11

Не по теме:

ай-ай, забыл - торопился )

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

Сообщение от UI

У него задание по циклам...

Pascal

i:=1; Sum:=0;
While i<=15 do
Begin
  Sum:=Sum+1/(i*(i+2));
  Inc(i,2);
end;
Writeln(Sum);

@iRun · 09.06.2014, 21:17 **[ТС]**

APALoff, Спасибо, но что такое inc ?? Паскаль выводит ошибку на этом месте. Можно ли его убрать или заменить?

@APALoff · 09.06.2014, 22:56

Inc это тоже самое что i:=i+2;

Добавлено через 1 минуту
а ошибку у Вас может выдавать, потому что i не целочисленная переменная.

Решение

@iRun 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 13
		1
	Операторы цикла и блок-схема к нему 09.06.2014, 15:50. Показов 1293. Ответов 5 Метки нет (Все метки) Помогите решить. Буду безмерно благодарен Миниатюры 0

@iRun 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 13
	09.06.2014, 21:17 [ТС]	5
	APALoff, Спасибо, но что такое inc ?? Паскаль выводит ошибку на этом месте. Можно ли его убрать или заменить? 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	09.06.2014, 22:56	6
	Inc это тоже самое что i:=i+2; Добавлено через 1 минуту а ошибку у Вас может выдавать, потому что i не целочисленная переменная. 1

Опции темы