Delphi-Help

Задача 869

Оцените материал
(1 Голосовать)


Задача 869

Найти минимальное количество слагаемых в сумме членов ряда, при котором эта сумма станет больше 120. Кроме этого вывести на экран значение последнего слагаемого и его номер 1*1+1*2*2+1*2*3*3+1*2*3*4*4+...

procedure TForm1.Button1Click(Sender: TObject);
var
  max, i, j, r, slog: Integer;
begin
  max := StrToInt (Edit1.Text);
  r := 0;
  i := 0;
  slog := 0;
 
  while r <= max do begin
    Inc (i);
    slog := i;
    j := 0;
    while j < i do begin
      Inc (j);
      slog := slog * j;
    end;
    r := r + slog;
  end;
 
  if i = 0 then begin
    Edit2.Text := '';
  end
  else begin
    Edit2.Text := '1';
    j := 1;
    while j < i do begin
      Inc (j);
      Edit2.Text := Edit2.Text + ' * ' + IntToStr (j);
    end;
    Edit2.Text := Edit2.Text + ' * ' + IntToStr (i);
  end;
  Edit3.Text := IntToStr (slog);
  Edit4.Text := IntToStr (i);
end;
Прочитано 4832 раз
Другие материалы в этой категории: « Задача 583 на Pascal

Авторизация



Счетчики