Помогите пожалуста не получается решить пример:
Для каждого 0.116≤b1≤1.185 с шагом ∆b=0.225 вычислить по 6 значений функции c=lnb1+xlnb2 , где начальное значение b2=2.146 , а шаг ∆b2=2.146 .
Помогите пожалуйста народ В паскале 1 задачу решить
Что такое xln?
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ну и в чем проблема?
внешний цикл
b1:=0.116;
repeat
.....
b1:=b1+0.225
until b1>=1.185,
во внутреннем for i:=1 to 6 do b2:=1.246*i
И вычислять формулу
внешний цикл
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.
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.
-
- Сообщения: 14
- Зарегистрирован: 31 мар 2009, 20:16
- Откуда: Кубинка
- Контактная информация:
Определить max элемент среди элементов квадратичной матрицы размера 5x5, лежащих выше главной диагонали, и min элемент среди элементов, лежащих ниже главной диагонали. Поменять их местами.