Помогите дописать программку с циклами

[павля]

Помогите дописать программку с циклами

вычислить использую вложенные циклы....
исходные данные: m=15, x(начальное)=0, x(конечное)=3, n=25, x - вычислить...

 

[павля]

вота формула..

 

[Vladimir_S]

вычислить использую вложенные циклы....
исходные данные: m=15, x(начальное)=0, x(конечное)=3, n=25, x - вычислить...

Во-первых, если "дописать" - то где начало, а во-вторых, что известно про параметр l (эль)?

 

[павля]

в том то и дело что ничего не известно...наверно любое...

 

[AlexZir]

Мда, формула явно неполная

Владимир, полагаю, что ТС просто перепутала слова

 

[Vladimir_S]

Павля, задачка ровно того же типа, что эта. Так что давайте-ка сами. А мы поможем, если что.

 

[павля]

вота....НАПИСАЛА)))....проверте...кажетсь...там всё же чегот не так(

program..;
uses crt;
var
m,j,k,l:integer;
Nx,Kx,x,y,SH,s1,s2:real;

begin
clrscr;
write('Ввод количества шагов M: ');
readln(m);
write('Ввод начального значения X: ');
readln(Nx);
write('Ввод конечного значения X: ');
readln(Kx);
write('Ввод переменной L: ');
readln(L);
SH:=(Kx-Nx)/m;
x:=Nx;
for k:=1 to m do
begin
for j:=l to m do
s1:=s1+sqr(j+x);
s2:=s2+s1+(k-l/k);
x:=x+SH;
end;
y:=l+20*x+s2;
writeln('y = ',y:2:3);
readln;
end.



благодарю за помощ)):tehnari_ru_077::tehnari_ru_159::tehnari_ru_102:

 

[павля]

большой результат какой-то кажется

 

[Vladimir_S]

большой результат какой-то кажется

Еще бы - если Вы вместо раздельного подсчета двух сумм взяли да вложили один цикл в другой. Таким образом, сумма по j у Вас считается не один раз, а m раз, т.е. при каждом значении k. И всё это идёт "в общий котёл".
Кроме того:
1. Перепутаны циклы по х и по k,j. К первому число m не имеет никакого отношения, интервал по х разбивается на n=25 частей.
2. Нужно вывести не одно значение у, а таблицу у(х).
3. Величина (k-l/k), как и (j+x), под знаком суммы идёт в квадрате, а не в первой степени, как у Вас.
Сейчас исправлю.

program..;
uses crt;
var
 m,j,k,l,[COLOR=Red]n,i[/COLOR]:integer;
 Nx,Kx,x,y,SH,s1,s2:real;

begin
 clrscr;
 write('Ввод количества шагов по k,j (M): ');
 readln(m);
 write('Ввод количества шагов по x (N): ');
 readln(n);
 write('Ввод начального значения X: ');
 readln(Nx);
 write('Ввод конечного значения X: ');
 readln(Kx);
 write('Ввод переменной L: ');
 readln(L);
 SH:=(Kx-Nx)/[COLOR=Red]n[/COLOR];
 [COLOR=Red]S1:=0;
[/COLOR] [COLOR=Red]for k:=1 to m do
   S1:=S1+SQR(k-L/k);
 [/COLOR][COLOR=Red]for i:=0 to n do
  begin
   x:=Nx+i*SH;
   [/COLOR][COLOR=Red]S2:=0;[/COLOR][COLOR=Red]
   for j:=L to m do
    S2:=S2+SQR(j+x);
   y:=L+x*20+S1+S2;
   Writeln(x:5:3,y:20:5);
  end;
 [/COLOR]readln;
end.

 

[павля]

хиии...спасибо Вам большое...за всё...СПАСИБО