Циклы While и Repeat в Delphi 7.0(Задач)

[n01R]

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

2.
Целое число, предствленое в двоичной системе счисления, модуль которого непревышает двоичного числа 1111111, вводиться в вещественную переменную. Необходимо вывести на экран значение этого числа в 10-й системе счисления как значение целочисленной переменной. Предусмотреть проверку правильности ввода информации

Первое задание нужно решить с помощью цикла While
Второе - Repeat
Пожалуста срочно нужно помогите!!!
Хотя бы одно задание

[n01R]

Ну кто нибудь помогите

[Makarov]

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

В цикле сделайте одну переменную, которая будет считать общую сумму, а в WHILE сделайте условие этой переменной равно 120. А другой переменной в цикле считать номер, т.е. каждый раз увеличивать на единицу при прохождении цикла!

[Sibedir]

Задача №1
Суммировать до 120.zip

Задача №2

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Byte;
  r: Real;
begin
  // Проверяем правильность -----------------------------------------------------------
  if Length (Edit1.Text) > 7 then begin
    ShowMessage ('Слишком много ввели. Не более 7 символов');
    Exit;
  end;
  if Edit1.Text = '' then begin
    ShowMessage ('Введите хоть что-нибудь');
    Exit;
  end;
  i := 0;
  repeat
    Inc (i);
    if (Edit1.Text [i] <> '0') and (Edit1.Text [i] <> '1') then begin
      ShowMessage ('Вводить нужно "0" или "1"');
      Exit;
    end;
  until i = Length (Edit1.Text);

  // Преобразование -------------------------------------------------------------------
  r := 0;
  i := 0;
  repeat
    Inc (i);
    j := StrToInt (Edit1.Text [i]);
    r := r*2 + j;
  until i = Length (Edit1.Text);
  Edit2.Text := FloatToStr (r);
end;

[n01R]

Спасибо всем уже не нужно

[Sibedir]

Всмысле не нужно.

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

Ну кто нибудь помогите

Кто это писал? Что издеваешся что-ли?

[n01R]

у меня просто зачет был половину задач вы помогли решить половину своими силами сделал и все теперь.зачет!!