Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 20, средняя оценка - 4.70
texni
0 / 0 / 0
Регистрация: 13.06.2016
#1

Отделение корней - Turbo Pascal

28.03.2011, 20:27. Просмотров 3039. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2011, 20:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Отделение корней (Turbo Pascal):

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

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

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

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

Счётчик корней - Turbo Pascal
Помогите составить программу, для вычисления следующего выражения на фото. Нужно сделать цикл цикл for...do. Только нужно посчитать не...

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

1
texni
0 / 0 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

Нахождение корней уравнения - Turbo Pascal
Дано: a, b, c. Если а≠0, выяснить, имеет ли уравнение ax2+bx+c=0 корни. Если да – найти их и напечатать с соответствующим комментарием...

Метод квадратных корней - Turbo Pascal
Ребята, помогите пожалуйста решить СЛАУ методом квадратных корней с точностью 0.001 на Turbo Pascal. Вот система из трех уравнений: ...

Найти сумму корней - Pascal
Найти сумму корней квадратных уравнений ax2 + bx +c=0 и dy2 + py +k=0. (Процедуры, функции)

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


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

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

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