Форум программистов, компьютерный форум, киберфорум
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
72 / 72 / 64
Регистрация: 30.04.2014
Сообщений: 214
31.10.2014, 15:47 0

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

31.10.2014, 15:47. Просмотров 1157. Ответов 2
Метки (Все метки)

Ответ


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
Var x,a,b,e:real;
    k:integer;
Function f1(x:real):real;
 begin
  f1:=exp(x)-x*x*x+3*x*x-2*x-3;
 end;
Function f2(x:real):real;
 begin
  f2:=exp(x)-2*x*x+6*x-2;
 end;
Procedure Kasat(a,b,e:real);
 begin
 k:=0;
  if f1(a)*f2(a)>0 then x:=a else x:=b;
  while abs(f1(x))>=e do
   begin
    x:=x-f1(x)/f2(x);
    k:=k+1;
    Writeln('Iteraciya N',k,' x0=', x:6:4,' f(x0)=',f1(x):6:4);
   end;
 Writeln('Konechniy rezultat:');
 Writeln('x0=',x:6:4,' Iteratsiy: ',k);
 end;
begin
Writeln('Vvedite A');
Readln(a);
Writeln('Vvedite B');
Readln(b);
Writeln('Vvedite tochnost E');
Readln(e);
Kasat(a,b,e);
readln;
end.
Добавлено через 2 минуты
Запустите программу 2 раза.
1 раз введете -1 и 0
2 раз 0.5 и 1.5

Вернуться к обсуждению:
Решить уравнение методом касательных
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.10.2014, 15:47

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Методом деления отрезка пополам решить уравнение
Задание на курсовую работу по информатике Вариант 8 Задание: Методом деления отрезка пополам...

Решить уравнение методом деления отрезка пополам
Решить уравнение методом деления отрезка пополам. Каждый этап решения выводить в файл: sin(1-x)=x...

Решить уравнение методом деления отрезка пополам
уравнение arcsin(x)+x-1=0, с погрешностью Е=10^(-6) по математической части знаю, графическим...

Численные методы. Решить нелинейное уравнение методом половинного деления
решение нелинейных уравнений. метод половинного деления. 2^x-3x-2=0 Добавлено через 5 часов 13...

Найти нуль функции методом касательных
uses crt; function f(x: real): real; begin f := x + ln(x); // данная нам функция end; var...

Найти корень уравнения методом хорд и касательных
найдите корень уравнения x^4 - 26x^3 + 131x^2-226x+120 = 0 c точностью до 10:-4 в интервале...

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