Вычислить сумму ряда, используя цикл с параметром, используя цикл с предусловием

@ПРК · Регистрация: 08.03.2012

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

решить задачу двумя способами 1. используя цикл с параметром. 2 используя цикл с предусловием.

@klast · 18.04.2012, 17:26

Сообщение от ПРК

2 используя цикл с предусловием.

Pascal

var
  x, i, j, k, fact, l: integer;
  s: real;
 
begin
  read(x);
  i := 1;
  fact := 1;
  k := 1;
  while i <= 13 do
  begin
    for j := 1 to i do begin k := k * x; fact := fact * j; end;
    if l mod 2 = 0 then s := s + k / fact
    else s := s - k / fact;
    i := i + 2;
    fact := 1;
    k := 1;
    inc(l);
  end;
  writeln(s);
end.

Добавлено через 1 минуту
было бы идеально, если бы у тебя были тесты

@ПРК · 18.04.2012, 17:27 **[ТС]**

какие тесты?

@klast · 18.04.2012, 17:28

Сообщение от ПРК

1. используя цикл с параметром.

Pascal

var
  x, i, j, k, fact, l: integer;
  s: real;
 
begin
  read(x);
  i := 1;
  fact := 1;
  k := 1;
  for i:=1 to 13 do
  if i mod 2<>0 then
  begin
    for j := 1 to i do begin k := k * x; fact := fact * j; end;
    if l mod 2 = 0 then s := s + k / fact
    else s := s - k / fact;
    fact := 1;
    k := 1;
    inc(l);
  end;
  writeln(s);
end.

@ПРК · 18.04.2012, 17:28 **[ТС]**

благодарю...

@ПРК 0 / 0 / 0 Регистрация: 08.03.2012 Сообщений: 54
		1
	Вычислить сумму ряда, используя цикл с параметром, используя цикл с предусловием 18.04.2012, 16:50. Показов 2302. Ответов 4 Метки нет (Все метки) решить задачу двумя способами 1. используя цикл с параметром. 2 используя цикл с предусловием. Миниатюры 0

@ПРК 0 / 0 / 0 Регистрация: 08.03.2012 Сообщений: 54
	18.04.2012, 17:27 [ТС]	3
	какие тесты? 0

@ПРК 0 / 0 / 0 Регистрация: 08.03.2012 Сообщений: 54
	18.04.2012, 17:28 [ТС]	5
	благодарю... 0

Опции темы