6. рядом с вами находятся две корзины. первая наполнена
яблоками разных размеров, вторая — пустая.
шаг 1. вы берёте любое яблоко из первой корзины и кладёте его на стол перед собой.
шаг 2. вы достаёте следующее яблоко из первой корзины и
выполняете сравнение:
если яблоко в руках больше, чем яблоко на столе, то вы
опускаете яблоко, которое у вас в руках, во вторую корзину;
— если яблоко в руках меньше яблока на столе, вы кладёте
яблоко на стол, аяблоко, которое лежало на столе, перекладываете во вторую корзину.
вы повторяете шаг 2 до тех пор, пока первая корзина не
опустеет.
какое яблоко окажется на столе в самом конце?
попытайтесь сформулировать, что является инвариантом цикла в алгоритме. сформулируйте условие с использованием терминологии, рассмотренной в этом
параграфе.
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
Const width = 10
Sub Ìàêðîñ1()
Dim Sum(heigth - 1, width - 1)
Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1
For j = 0 To width - 1
Sum(i, j) = i + j
Product(i, j) = i * j
Next j
Next i
Call Show(Sum, 0, 0)
Call Show(Product, 0, 12)
End Sub
Sub Show(ByRef m, dx, dy)
For i = 0 To heigth - 1
For j = 0 To width - 1
ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
Next j
Next i
End Sub