Решение уравнения, ошибка 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.
Объяснение кода листинга программы
- Объявляются переменные l, lx, r1, r2, a, c, x, n.
- Выводится запрос на ввод значений переменных l, r1, n.
- Значение переменной l считывается из ввода.
- Значение переменной r1 считывается из ввода.
- Значение переменной n считывается из ввода.
- Переменная x инициализируется нулем.
- Запускается цикл while, который выполняется до тех пор, пока abs(l - lx) превышает 1.
- Внутри цикла переменная x увеличивается на 0.001.
- Переменная r2 увеличивается на x, что дает искомый радиус R2.
- Переменная 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).
- Выводится значение переменной lx.
- Значение переменной r1 увеличивается на x, что дает искомый радиус R2.
- Выводится значение переменной R2.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д