Программа 1 Создаётся обработка нажатия кнопки Объявляется переменная A и S типа int A присваивается значение 2 строки 2 столбца из таблицы Excel S и i приравниваются к нулю Цикл до тех пор, пока S не будет больше A, в котором выполняется прибавление единицы к S и i Также в цикле происходит заполнение i + 1 строки 1 столбца.Программа 2Создаётся обработка нажатия кнопкиОбъявляется R2, R3, R1beg, R2End, dR1, R12, R13, R23 типа float R2 парсит значение из ячейки 3 строки 1 столбца (Val(), скорее всего, примерная аналогия к TryParse()) R3 парсит значение 3 строки 2 столбца R1beg 3 строки 3 столбцаR1End 3 строки 4 столбцаdR1 3 строки 5 столбца Значению NumRow присваивается 6Создаётся цикл: R1 = R1beg с условием, пока R1 не будет меньше или равен R1End, при этом каждую итерацию происходит добавление dR1 к R1 В этом цикле R12 присваивается значение R1 + R2 + (R1 * R2 / (double)R3), причём R3 явно приводится к типу doubleТак же происходит и с R13, которому присваивается R1 + R3 + (R1 * R3 / (double)R2)Так же происходит и с R23, которому присваивается R2 + R3 + (R2 * R3 / (double)R1)Поочередно в ячейки NumRow строки 1-4 (с первого по четвёртый) столбца заносятся приведённые к строке значения R1, R12, R13, R23, после чего к NumRow добавляется единица.Программа 3Создаётся цикл, где i = 1 с условием i меньше или равно 5, i с каждой итерацией прибавляет к себе единицуБерётся значение ячейки 3 строки i столбца и приравнивается к пустой строке ("")Создаётся цикл, где j = 6 с условием j меньше или равно 16, j с каждой итерацией прибавляет к себе единицуБерётся значение ячейки j строки 1 столбца и приравнивается к пустой строке ("")Создаётся цикл, где k = 6 с условием k меньше или равно 16, k с каждой итерацией прибавляет к себе единицуБерётся значение ячейки k строки 2 столбца и приравнивается к пустой строке ("")Создаётся цикл, где A = 6 с условием A меньше или равно 16, A с каждой итерацией прибавляет к себе единицуБерётся значение ячейки A строки 3 столбца и приравнивается к пустой строке ("")Создаётся цикл, где b = 6 с условием b меньше или равно 16, b с каждой итерацией прибавляет к себе единицуБерётся значение ячейки b строки 4 столбца и приравнивается к пустой строке ("")
uses Drawman;
begin
field(20,17);
PenUp;
ToPoint(0,0);
PenDown;
ToPoint(20,0);
ToPoint(20,10);
ToPoint(19,10);
ToPoint(19,1);
ToPoint(1,1);
ToPoint(1,16);
ToPoint(19,16);
ToPoint(19,13);
ToPoint(20,13);
PenUp;
ToPoint(1,3);
PenDown;
ToPoint(7,3); ToPoint(7,1);
ToPoint(9,1);
ToPoint(9,4);
ToPoint(17,4);
ToPoint(17,1);
ToPoint(17,9);
ToPoint(19,9);
PenUp; ToPoint(19,13); PenDown;
ToPoint(14,13);
ToPoint(14,16);
ToPoint(14,14);
ToPoint(9,14);
ToPoint(9,16);
ToPoint(9,13);
ToPoint(4,13);
ToPoint(4,16);
end.