Developing.ru

Помогите пожалуста не получается решить пример:
Для каждого 0.116≤b1≤1.185 с шагом ∆b=0.225 вычислить по 6 значений функции c=lnb1+xlnb2 , где начальное значение b2=2.146 , а шаг ∆b2=2.146 .

Что такое xln?

полагаю, что x*ln(b2)

Ну и в чем проблема?
внешний цикл
b1:=0.116;
repeat
.....
b1:=b1+0.225
until b1>=1.185,
во внутреннем for i:=1 to 6 do b2:=1.246*i
И вычислять формулу

Спасибо большое кто откликнулся но я нашел решение
Program lr3_2;
Uses crt;
Var x,b1,b2,c,db1,db2:real;
Begin clrscr;
Write (‘x=’);
db1:=0.225;
db2:=-0.231;
b1:=0.116;
while b1<=1.185 do begin
b2:=2.146;
while b2>=(2.146+6*(-0.231)) do begin
c:=ln(b1)+x*ln(b2);
writeln(‘b1=’,b1:8:4,’b2=’,b2:8:4,’c=’,c:8:4);
b2:=b2+db2;
end;
b1:=b1+db1;
end:
readkey;
End.

Определить max элемент среди элементов квадратичной матрицы размера 5x5, лежащих выше главной диагонали, и min элемент среди элементов, лежащих ниже главной диагонали. Поменять их местами.