Дан массив A размера N. Сформировать новый массив B того же размера по следующему правилу

@Дарьюшка · Регистрация: 03.02.2012

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

помогите пожалуйста с объяснением задачи:
Дан массив A размера N. Сформировать новый массив B того же размера по следующему правилу: элемент BK равен среднему арифметическому элементов массива A с номерами от 1 до K.

Pascal

var a: array [1..100] of integer;
    b: array [1..100] of real;
    n,i,j,sum: integer;
begin
write('n=');                 
readln(n);
for i:=1 to n do                       
    begin
    a[i]:=random(50);                 
    write(a[i]:6);                      
    end;
writeln;
for i:=1 to n do                       
    begin
    sum:=0;                           
    for j:=i to n do        /////////// почему мы берем j:=i to n to....    ? не понимаю этот момент.      
        inc(sum,a[j]);                
    b[i]:=sum/(n-i+1);                 
    write(b[i]:6:1);                     
    end;
readln;
end.

@Puporev · 04.03.2014, 16:22

Pascal

for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to i do       
        inc(sum,a[j]);
    b[i]:=sum/i;
    write(b[i]:5:1);
    end;

@bormant · 04.03.2014, 16:22

Все намного проще:

Pascal

const
  LIM=50; W=6; D=1;
var
  a, b: array [1..100] of real;
  s: real;
  n, i: integer;
begin
  Randomize;
  Write('Введите n [1..100]: '); ReadLn(n);
  WriteLn('A =');
  for i:=1 to n do begin
    a[i]:=LIM*Random; Write(a[i]:W:D);
  end; WriteLn;
  WriteLn('B =');
  s:=0;
  for i:=1 to n do begin
    s:=s+a[i];
    b[i]:=s/i;
    Write(b[i]:W:D);
  end; WriteLn;
  ReadLn;
end.

@Дарьюшка · 04.03.2014, 16:50 **[ТС]**

Но я не понимаю,что значит j и как его объяснить ?

@bormant · 04.03.2014, 16:57

Дарьюшка, кто-то решал неоптимальным способом несколько иную задачу, в которой элемент BK равен среднему арифметическому элементов массива A с номерами от K до N. А в цикле считал сумму элементов от текущего до последнего.

@Дарьюшка · 04.03.2014, 17:09 **[ТС]**

Мне сказали что там все нормально, но единственное что спросили это про j, а я не знаю что это

@bormant · 04.03.2014, 17:32

Сообщение от Дарьюшка

сказали что там все нормально

Вас обманули. Код решает несколько другую задачу:

Дан массив A размера N. Сформировать новый массив B того же размера по следующему правилу: элемент BK равен среднему арифметическому элементов массива A с номерами от K до N.

j -- это целая переменная (тип integer), использована в качестве счетчика цикла, принимает значения от текущего элемента до n, внутри этого цикла считается сумма элементов A от текущего (i-го) до последнего (n-го).

Добавлено через 2 минуты
Кстати, эта другая задачка решается тоже без вложенного цикла:

Pascal

const
  LIM=50; W=6; D=1;
var
  a, b: array [1..100] of real;
  s: real;
  n, i: integer;
begin
  Randomize;
  Write('Введите n [1..100]: '); ReadLn(n);
  WriteLn('A =');
  for i:=1 to n do begin
    a[i]:=LIM*Random; Write(a[i]:W:D);
  end; WriteLn;
  s:=0;
  for i:=n downto 1 do begin
    s:=s+a[i];
    b[i]:=s/(n-i+1);
  end;
  WriteLn('B =');
  for i:=1 to n do Write(b[i]:W:D); WriteLn;
  ReadLn;
end.

@Дарьюшка · 04.03.2014, 17:40 **[ТС]**

спасибо, но мне бы как-нибудь попроще.

@markiza-inc · 04.03.2014, 18:28

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

for i:=n downto 1 do begin
s:=s+a[i];
b[i]:=s/(n-i+1);
end;

Непонятно почему переделано по сравнению с предыдущей версией, где от 1 до n
И зачем второй цикл?
Да и вывод сползает.

Сообщение от Дарьюшка

мне бы как-нибудь попроще

"Не из любой песни слова можно выкинуть"
Вы уж, видимо, хотите программы из одного - двух слов ???
Можно один цикл сократить, но зато добавится выравнивание при печати.
Еще можно компактнее написать: объединить несколько строк текста в одну строку - тупизм: ненаглядно, но выглядит компактнее.

Pascal

const
  LIM=50; W=6; D=1;
var
  a, b: array [1..100] of real;
  s   : real;
  n, i: integer;
begin
  Randomize;
  Write('Введите n [1..100]: '); ReadLn(n); WriteLn('A =');s:=0;
  for i:=1 to n do
   begin
     a[i]:=LIM*Random; Write(a[i]:W:D);
     s:=s+a[i];b[i]:=s/i; if i mod 10 = 0 then writeln;
   end; WriteLn; WriteLn('B =');
  for i:=1 to n do
    begin Write(b[i]:W:D); if i mod 10 = 0 then writeln;end;
  WriteLn;ReadLn;
end.

Хотя, вообще-то, можно одним циклом обойтись, но добавятся переменные.

@bormant · 04.03.2014, 18:42

Сообщение от markiza-inc

почему переделано по сравнению с предыдущей версией, где от 1 до n

это решение второй задачи, где B_k равно среднему арифметическому элементов A от k до N. Просматривая массив с конца, от n до 1, на каждом шаге цикла по i в s получается сумма элементов от i до n; их количество равно (n-i+1), а среднее арифметическое, соответственно, s/(n-i+1).

Добавлено через 3 минуты
Чтобы не сползал вывод, можно, пользуясь тем, что стандартная ширина экрана 80 символов, взять W равным делителю 80, например, 8, тогда заворачивание строчек на экране получим "без-воз-мезд-но, то есть даром" (q) Сова.

@Дарьюшка 0 / 0 / 0 Регистрация: 03.02.2012 Сообщений: 56
	04.03.2014, 16:50 [ТС]	4
	Но я не понимаю,что значит j и как его объяснить ? 0

@bormant Модератор 7655 / 4494 / 2811 Регистрация: 22.11.2013 Сообщений: 12,833 Записей в блоге: 1
	04.03.2014, 16:57	5
	Дарьюшка, кто-то решал неоптимальным способом несколько иную задачу, в которой элемент BK равен среднему арифметическому элементов массива A с номерами от K до N. А в цикле считал сумму элементов от текущего до последнего. 1

@Дарьюшка 0 / 0 / 0 Регистрация: 03.02.2012 Сообщений: 56
	04.03.2014, 17:09 [ТС]	6
	Мне сказали что там все нормально, но единственное что спросили это про j, а я не знаю что это 0

@Дарьюшка 0 / 0 / 0 Регистрация: 03.02.2012 Сообщений: 56
	04.03.2014, 17:40 [ТС]	8
	спасибо, но мне бы как-нибудь попроще. 0

@bormant Модератор 7655 / 4494 / 2811 Регистрация: 22.11.2013 Сообщений: 12,833 Записей в блоге: 1
	04.03.2014, 18:42	10
	Сообщение от markiza-inc почему переделано по сравнению с предыдущей версией, где от 1 до n это решение второй задачи, где B_k равно среднему арифметическому элементов A от k до N. Просматривая массив с конца, от n до 1, на каждом шаге цикла по i в s получается сумма элементов от i до n; их количество равно (n-i+1), а среднее арифметическое, соответственно, s/(n-i+1). Добавлено через 3 минуты Чтобы не сползал вывод, можно, пользуясь тем, что стандартная ширина экрана 80 символов, взять W равным делителю 80, например, 8, тогда заворачивание строчек на экране получим "без-воз-мезд-но, то есть даром" (q) Сова. 1

Опции темы