Трижды определить значение суммы

@masha_msf_app21 · Регистрация: 17.11.2012

трижды определить значение суммы, используя три различных цикла
4
s=∑ (n=x/sqr(n+1))
n=1

@ermolay · 17.11.2012, 23:57

Pascal

const
  n=4;
var
  x,s: real;
  i: byte;
begin
  write('Введите x: ');
  readln(x);
  s:=0;
  for i:=1 to n do
    s:=s+x/(sqr(i+1));
  writeln('Цикл "for..to..do"   s=',s);
 
  s:=0;
  i:=0;
  while i<n do
  begin
    inc(i);
    s:=s+x/(sqr(i+1));
  end;
  writeln('Цикл "while"   s=',s);
 
  s:=0;
  i:=0;
  repeat
    inc(i);
    s:=s+x/(sqr(i+1));
  until i>=n;
  writeln('Цикл "repeat..until"   s=',s);
end.

@masha_msf_app21 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 15
		1
	Трижды определить значение суммы 17.11.2012, 23:11. Показов 4040. Ответов 1 Метки нет (Все метки) трижды определить значение суммы, используя три различных цикла 4 s=∑ (n=x/sqr(n+1)) n=1 0

Опции темы

Трижды определить значение суммы

Решение