While

[Наталья111]

Даны действительные числа а1,..., а24.
Получить последовательность в1,..., в10, где

в1=а1+а2+...а24,

в2=а1^2+а2^2+...+а24^2, ...

в10=а1^10+а2^10+...+а24^10

Помогите пожалуйста переделать задачку с циклом for на цикл while.
Заранее СПАСИБО!

[Наталья111]

Люди ну помогите ПЛИЗ!!!

[Тупой]

for i:=1 to 10 do
begin
 for j=1 to 24 do 
  begin
   b[i] = b[i] + pow(a[j],i);
  end
end;

писал в блокноте, если накосячил, извиняйте

[Наталья111]

спасибо огромное! а через while можешь написать? плиз!

[Тупой]

а самой? проблема то в чем?

[Наталья111]

не получается. помоги пожалуйста.

[KORN]

если не секрет, вы на кого учитесь, и какой курс7 назовите конкретную проблему, что именно не получается и тогда я помогу... думаю мало кто здесь одобряет, что бы мы все задачи за кого то делали

[Terran]

Помогите пожалуйста переделать задачку с циклом for на цикл while.

Переписал:

var
  A: array[1..24] of Real;
  B: array[1..10] of Real;
function Stepen(Val: Real; St: Integer): Real;
var
  i : Integer;
begin
  Result := 1;
  i := 1;
  While i<=St Do
  begin
  Result := Result * Val;
  I:=i+1;
  end;
end;
procedure TForm1.ButtonAClick(Sender: TObject);
var
  i : Integer;
begin
  Randomize;
  i := 1;
  While i<=24 Do
  begin
  A[i] := Random * 100.0; // Random(100) дает целые числа
  MemoA.Lines.Add('A[' + IntToStr(i) + '] = ' + FloatToStr(A[i]));
  I:=i+1;
  end;
  ButtonB.Enabled := True;
end;
procedure TForm1.ButtonBClick(Sender: TObject);
var
  i, n : Integer;
begin
 i := 1;
While i<=10 Do
  begin
  B[i] := 0;
  n := 1;
  While n<=24 Do
  begin
  n:=n+1;
  B[i] := B[i] + Stepen(A[n], i);
  end;
  MemoB.Lines.Add('B[' + IntToStr(i) + '] = ' + FloatToStr(B[i]));
  i:=i+1;
  end;
end;

[Наталья111]

Terran ОГРОМНОЕ СПАСИБО! :-)

[Тупой]

Terran, а чему равны A[1] и B[1] в Вашем коде?
ПС: зачем делать чужую работу...