Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/17: Рейтинг темы: голосов - 17, средняя оценка - 4.76
texni
0 / 0 / 1
Регистрация: 13.06.2016
#1

Отделение корней

28.03.2011, 20:27. Просмотров 3125. Ответов 1
Метки нет (Все метки)

Вот программа отделяющая корни трансцендентных и алгебраических уравнений, но на Паскале... Народ помогите мне перевести ее на С++. Нужно срочно программа для отделения корней на курсач.
Код
program C_and_C;
uses win CRT;
var 
a,b,x1,x2,y1,y2,h,y:real;
n,k:integer;
function f(x:real):real;
begin
f:=cos(x)-0.1*x;
end;

begin
  clrscr;
  writeln ('Введите a,b,h'); read(a,b,h);
  k:=0; x1:=a; x2:=x1+h; y1:=f(x1);
  while x2<b do
     begin y2:=f(x2);
       if y1*y<0 then
          begin inc (k);
            writeln(k,'-й корень[',x1:4:1,';',x2:4:1,']')
         end;
     x1:=x2; x2:=x1+h; y1:=y2;
   end;
 repeat until keypressed
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2011, 20:27
Ответы с готовыми решениями:

Отделение корней уравнения графическим способом.
Помогите составить программу отделяющую корни уравнения 2*x2-5=2x графическим...

Объединить 2 задачи в одну. Отделение корней и метод половинного деления
Нужно объединить две задачи в одну. Первая задача Отделение корней, а вторая...

Отделение и уточнение корней нелинейных уравнений
Сделал вроде все правильно. Но программа решения не находит. Или дело в том,...

надо решить задачу: a*b=x,надо вывести х, а когда a и b равны 0, то написать что корней множество, а когда a или b равен 0, то вывести что корней нет
Здравствуйте господа... У меня вот такая проблема, на завтра надо решить...

Счётчик корней
Помогите составить программу, для вычисления следующего выражения на фото....

1
texni
0 / 0 / 1
Регистрация: 13.06.2016
29.03.2011, 21:15 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Єта программа отделяет корни методом подбора, но опять же перевидите ее в С++. Я ее скинул в надежде что ее будет легче переделать в С++, я бі и сам но в С++ я полній ноль. Народ помогите пожалуйста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program;
const h=;
var a, b, x: real; i:integer;
function f(x:real):real;
 begin
  f:=………………….;
 end;
begin
writeln(‘введите a и b);
readln(a, b);
x:=a;
i:=0;
    while x<=b do
     begin
      if f(x)*f(x+h)<=0 then
       begin
         i:=i+1;
         writeln(i,’корень на промежутке(,x:3:2,x+h:3:2,));
       end;
      x:=x+h;
     end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.03.2011, 21:15

Нахождение корней уравнения
помогите пожалуйста написать программу. дана функция f(x)=lnx-0.5/х2 в...

Найти сумму корней
Найти сумму корней квадратных уравнений ax2 + bx +c=0 и dy2 + py +k=0....

Нахождение корней уравнений
Найти корень уравнения: X-3cos2 X используя метод Ньютона-Рафсона (метод...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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