17/19.02.2021, 8 класс

Цикл с предусловием

Команда цикла с предусловием в языке программирования Object Pascal выглядит следующим образом:

Задача

Сколько необходимо взять слагаемых, первое из которых равно заданному целому числу, а каждое следующее на 3 больше предыдущего, чтобы их сумма не превышала 100.

procedure TForm1.Button1Click(Sender: TObject);

var

    a,s,n: integer;

begin

  a:=StrToInt(Edit1.Text);  //первое слагаемое

  s:=a;     // переменная для хранения суммы

  n:=1;     // переменная для хранения количества взятых слагаемых,

            //присваеваем ей 1, потому что в сумме уже учтено первое слагаемое

  While s<=100 do

    begin

      a:=a+3; //прибавляем к слагаемому 3

      s:=s+a; //прибавляем у сумме следующее слагаемое

             if s<=100 then // проверяем условие еще раз

              n:=n+1; // увеличиваем количество слагаемых

    end;

  Label1.Caption:=IntToStr(n);

end;

end.   

Домашнее задание: читать учебник с. 217-218.
Выполнить №7 с.220. Готовый проект отправить учителю через googleclass, для тех у кого нет возможности работать в среде Lazarus составить блок-схему, написать обработку события в тетради и отправить учителю через googleclass