Вычисление производной функции с repeat и while

@gamer365 · Регистрация: 15.08.2013

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

Добрый вечер. Есть данная функция y=11x¹⁰+10x⁹+9x⁸+…+2x+1
Нужно вычислить её значение с помощью двух операторов repeat и while.
С repeat сделал это, но думаю, что преподаватель забракует этот код:

Кликните здесь для просмотра всего текста

Pascal

var
i, x, y, j:real;
begin
    writeln('x=');
    readln(x);
    y:=0;
    i:=1;
    j:=10;
    
    
    repeat
    repeat
    
    y:=y+i*1.5*exp(ln(j/5)*x);
    i:= i+1;
    j:= j-1;
    until i=11;
    until j=0;
    Write(y:0:1);
end.

Со вторым оператором как-то не задалось.

@Puporev · 09.10.2015, 08:33

Pascal

const n=11;
var x,y,s:real;
    i:integer;
begin
write('x=');
readln(x);
//значение функции
//с repeat
y:=1;
i:=1;
s:=1;
repeat
i:=i+1;
y:=y*x;
s:=s+y*i;
until i=n;
writeln('S=',s:0:1);
//с while
y:=1;
i:=1;
s:=1;
while i<n do
 begin
  i:=i+1;
  y:=y*x;
  s:=s+y*i;
 end;
writeln('S=',s:0:1);
//значение производной
//с repeat
y:=1;
i:=1;
s:=2;
repeat
i:=i+1;
y:=y*x;
s:=s+y*i*(i+1);
until i=n;
writeln('S=',s:0:1);
//с while
y:=1;
i:=1;
s:=2;
while i<n do
 begin
  i:=i+1;
  y:=y*x;
  s:=s+y*i*(i+1);
 end;
writeln('S=',s:0:1);
end.

@gamer365 · 09.10.2015, 14:34 **[ТС]**

Спасибо большое

@gamer365 0 / 0 / 0 Регистрация: 15.08.2013 Сообщений: 10
	09.10.2015, 14:34 [ТС]	3
	Спасибо большое 0