Практична робота №8.3

Тема. Реалізація алгоритмів з вкладеними повтореннями у вигляді програм

Мета. Навчитися складати та записувати мовою програмування алгоритми з вкладеним повторенням

Приклад 1

Вивести в текстове поле таблицю

1         2         3         4         5         6         7         8         9

Розв’язання.

Для текстового поля  у яке ви виводитимете результуючу таблицю установіть полю Font.Name значення "Courier New".

Це моноширинний шрифт, у якого кожен символ має одинакову ширину.

Мовою Pascal:

procedure TForm1.Button1Click(Sender: TObject);
var r,c:integer;
begin
  For r := 1 To 9 do
  begin
    For c := 1 To 9 do
    begin
        If c = r Then
            Memo1.Text :=Memo1.Text + IntToStr(r)
        Else
            Memo1.Text :=Memo1.Text + ' ';
    end;
   Memo1.Text :=Memo1.Text +#13#10 ;
  end;
end;

Прикдад 2

Обчислити:

Розв’язання

Мовою Pascal

procedure TForm1.Button2Click(Sender: TObject);
var s,k,m,d,n:integer;
begin
      n:=StrToInt(Edit1.Text);
      s:=0;
      For k := 1 To n do
      begin
          d := 1;
          For m := 1 To k do
          begin
               d :=d * ( k + m);
          end;
          s := s + d;
      end;
      Edit2.Text := IntToStr(s);
end;