Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Дано длинное целое число, содержащее не более 100 цифр Определить, есть ли в этом числе заданная цифра https://www.cyberforum.ru/ pascalabc/ thread1288172.html
Помогите решить 4. Дано длинное целое число, содержащее не более 100 цифр. Рассматривать цифры числа, как массив символов. Определить есть ли в этом числе данная цифра.
Есть ли среди элементов массива символы, которые встречаются только один раз Pascal ABC
Помогите решить 3. Дан одномерный массив, который содержит не более 60 символов. Ответить на вопрос, есть ли среди них символы, которые встречаются только один раз.
Pascal ABC Найти максимальный среди тех элементов массива, которые стоят на нечетных местах
Помогите решить 2. Дан одномерный массив, который содержит не более 40 целых положительных и отрицательных чисел. Найти максимальный среди тех, которые стоят на нечетных местах.
Pascal ABC Найти среднее арифметическое тех элементов, которые расположены за наибольшим элементом массива Помогите решить 1. Дан одномерный массив, который содержит не более 50 целых чисел. Найти среднее арифметическое тех элементов, которые расположены за наибольшим элементом массива. https://www.cyberforum.ru/ pascalabc/ thread1288169.html
Pascal ABC Составить программу вида суммы https://www.cyberforum.ru/ pascalabc/ thread1288154.html
нужно решить ряд y=1!+2!+3!+...+n!, n>1
Pascal ABC Составить программу вычисления числового ряда для известного числа членов ряда N
Составить программу вычисления числового ряда для известного числа членов ряда N. Перед программированием следует выявить и написать аналитические соотношения описывающие все имеющиеся зависимости....
Pascal ABC Составить программу вычисления суммы вида
Помогите решить 1+1/2^3+1/3^3+1/4^3+1/5^3+...+1/50^3
Pascal ABC Составить блок-схему Program ex1; Var n,i,k,z:integer; y,l:real; Begin Writeln('Ведите N'); Readln(n); y:=1; z:=2; k:=-1; l:=81; For i:=1 to n do Begin y:=y*(z+k/l); https://www.cyberforum.ru/ pascalabc/ thread1288127.html
Pascal ABC Найти два максимальных числа последовательности https://www.cyberforum.ru/ pascalabc/ thread1288120.html
Ввести с клавиатуры последовательность из n целых чисел. Найти два максимальных числа этой последовательности. Самое что интересноt массив применять нельзя, только через цикл for\while\repeat
Pascal ABC Нужно найти строки файла, в которых содержаться координаты Помогите написать программу. Дан текстовый файл содержащий в себе строки. Нужно найти строки в которых содержаться координаты (ПРИМЕР:<!-- Белгородская область --> <div id="bgd"><area href="#"... https://www.cyberforum.ru/ pascalabc/ thread1288112.html
FaZeR94
0

Решить уравнение методом касательных

30.10.2014, 11:43. Просмотров 1157. Ответов 2
Метки (Все метки)


Надо решить уравнение https://www.cyberforum.ru/cgi-bin/latex.cgi?f(x)=e^{x}-x^{3}+3x^{2}-2x-3 методом касательных. оно имеет 2 решения:1)-0,5926 2)1,0738.
Моя программ находит только второе значение,независимо от заданного интервала.
Вот сама программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program Metod_kasatelnblx;
const e=2.71828;
Eps=0.0001;
var
k:integer;
x,x1,x0,a,b,fx,f1x,f2x,ff:real;
begin
writeln('Уравнение');
writeln('fx=e^x-x^3+3x^2-2x-3.');
writeln('Первая производная');
writeln('f1x=e^x-3x^2+6x-2.');
writeln('Вторая производная');
writeln('f2x=e^x-6x+6.');
writeln('Введите границу отрезка a');
write('a=');read(a);
writeln('Введите границу отрезка b');
write('b=');read(b);
  begin
  ff:=(Exp(b)-(b*b*b)+(3*b*b)-(2*b)-3)*(Exp(b)-(6*b)+6);
  if ff>0 then
  ff:=(Exp(b)-(b*b*b)+(3*b*b)-(2*b)-3)*(Exp(b)-(6*b)+6)
  else
  ff:=(Exp(a)-(a*a*a)+(3*a*a)-(2*a)-3)*(Exp(a)-(6*a)+6);
  writeln('  ff=',ff:2:3);
  end;
     Repeat
     inc(k);
     if k <> 1 then
     x0:=x1;
     begin
     x:=x0-(Exp(x0)-(x0*x0*x0)+(3*x0*x0)-(2*x0)-3)/(Exp(x0)-(3*x0*x0)+(6*x0));
     end;
     x1:=x;
     writeln('k=',k:3);
     writeln('   x= ',x:2:3);
     Until  abs(x-x0) < Eps;
writeln('Корни системы:');
write('  x=',x:2:3);
end.
P.S. програмирование освайваю недавно,так что не ругайтесь за такую прогу=)

Вернуться к обсуждению:
Решить уравнение методом касательных
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2014, 11:43
Готовые ответы и решения:

Решить уравнение методом Ньютона (касательных)
ребят, где я ошибся? задача была уравнение √x+x2-3 решить методом ньютона(касательных) uses crt;...

Решить уравнение методом Ньютона (касательных)
X^3-2x-13 методом Ньютона (касательных). Помогите пожалуйста..

Решить уравнение методом хорда
Помогите решить уравнение методом хорда : X^3 + 4X^2 - 6 = 0 .

Решить уравнение графическим методом
Помогите нужно решить уравнение графическим методом x^3+x^2-3=0

2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.