Решение уравнения, ошибка 207 - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Добрый день! Нужно написать программу решения уравнения (задание и само уравнение вложено картинкой). Не знаю как выразить x, и в подарок ошибка "207 Ошибочная операция с плавающей запятой". Это все, на что я способен :
где N - число витков, a = (R1 + R2) / 2, c = R2 - R1, R1 и R2 - внутренний и внешний радиусы. Все размеры в формулах указаны в миллиметрах. Дано: R1 = 1.5; N = 6; L = 250 Найдите радиус R2, удовлетворяющий требуемому значению индуктивности L.

Решение задачи: «Решение уравнения, ошибка 207»

textual
Листинг программы
program kursach;
var
l,lx:real; {Значение нужной нам индуктивности.}
r1,r2:real; { Известный радиус R1.}
a,c:real;
x:real; {Искомый радиус R2.}
n:real; { Число витков N.}
begin
   Writeln('Vvedite znachenie L: '); read(l);
   Writeln('Vvedite znachenie R1: '); read(r1);
   Writeln('Vvedite znachenie N: '); read(n);
   x:=0;
   while abs(l-lx)>1 do
     begin
     x:=x+0.001;
     r2:=r1+x;
     a:=(r1+r2)/2;
     c:=r2-r1;
     lx:=0.4*pi*n*n*a*(ln(8*a/c)+c*c/a/24*(ln(8*a/c)+3.583)-0.5);
     writeln('Lx:=',lx);
     end;
     writeln('R2:=',r1+x);
   end.

Объяснение кода листинга программы

  1. Объявляются переменные l, lx, r1, r2, a, c, x, n.
  2. Выводится запрос на ввод значений переменных l, r1, n.
  3. Значение переменной l считывается из ввода.
  4. Значение переменной r1 считывается из ввода.
  5. Значение переменной n считывается из ввода.
  6. Переменная x инициализируется нулем.
  7. Запускается цикл while, который выполняется до тех пор, пока abs(l - lx) превышает 1.
  8. Внутри цикла переменная x увеличивается на 0.001.
  9. Переменная r2 увеличивается на x, что дает искомый радиус R2.
  10. Переменная a вычисляется как (r1 + r2) / 2.
  11. Переменная c вычисляется как r2 - r1.
  12. Переменная lx вычисляется как 0.4 pi n n a (ln(8 a / c) + c c / a / 24 (ln(8 * a / c) + 3.583) - 0.5).
  13. Выводится значение переменной lx.
  14. Значение переменной r1 увеличивается на x, что дает искомый радиус R2.
  15. Выводится значение переменной R2.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы