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

Перевести программу с языка Паскаль в язык С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Проверить, имеется ли в одномерном числовом массиве A из n элементов, хотя бы одна пара взаимно обратных чисел. http://www.cyberforum.ru/cpp-beginners/thread380181.html
Проверить, имеется ли в одномерном числовом массиве A из n элементов, хотя бы одна пара взаимно обратных чисел. перенес в С++
C++ Многопутевая сортировка добрый вечер) имеется код программы по многопутевой сортировке...кто-нибудь может сказать почему она работает не правильно??? #include <iostream> #include <sstream> #include <vector>... http://www.cyberforum.ru/cpp-beginners/thread380180.html
Массивы, подсчёт, перестановка элементов. C++
1)найти кол-во элементов массива больших С 2)найти произведение элементов массива,расположенных после максимального по модулю элемента 3)преобразовать массив таким образом,чтобы сначала...
C++ Одномерный массив. Записать элементы массива x, удовлетворяющие условию xi Э [1;2]...
Простите за возможный повтор но в поиске по форуму я так и не нашел решение этой задачи. Записать элементы массива x=(x1,x2,...,xn), удовлетворяющие условию xi Э подряд в массив y=(y1,y2,...,yn)....
C++ Метод не хочет возвращать объект типа класса которому он принадлежит http://www.cyberforum.ru/cpp-beginners/thread380175.html
Есть класс matrix и один из методов этого класса plus который возвращает объект типа matrix Но корректно этого делать не хочет Ошибка возникает на строчке самого возвращения Сначала пробовал...
C++ одномерный массив помогие пожалуйста с написанием программки на Си, вроде не сложная, но прошу помощи здесь, вот условие задачи: Преобразовать одномерный массив таким образом, чтобы в первой его половине... подробнее

Показать сообщение отдельно
kameliya
2 / 2 / 1
Регистрация: 23.05.2011
Сообщений: 27

Перевести программу с языка Паскаль в язык С++ - C++

09.11.2011, 00:01. Просмотров 1099. Ответов 4
Метки (Все метки)

Имееться задача на Pascale:
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
{Метод Ньютона решения нелинейного уравнения}
program Newton;
uses crt; {модуль управления экраном}
 
function f(x:real):real; {Исходная функция}
begin
 f:=sqr(sqr(x))-5*sqr(x)-x+1;
end;
 
function f1(x:real):real; {Первая производная функции}
begin
 f1:=4*x*sqr(x)-10*x-1;
end;
 
var a,b,x,e,en:real;
    i:integer;
 
begin
 clrscr; {очистить экран}
 writeln ('Решение нелинейного уравнения методом Ньютона');
 writeln ('Уравнение x^4+5x^2-x+1=0');
 write ('Введите левую и правую границы интервала:');
 read (a,b);
 write ('Введите требуемую точность решения:');
 read (e);
 writeln ('Решение:');
 writeln ('Номер шага Значение X');
 en:=abs(a-b);
 x:=b;
 i:=1;
 while (abs(en)>e) do begin {Пока не достигнута точность}
  x:=x-f(x)/f1(x); {выполнить шаг метода}
  writeln (i:10,x:20:14); {вывести значение X с шага}
  en:=abs(x-b); {Новая точность}
  b:=x; {Значение границы для следующего шага}
  i:=i+1; {Номер шага}
 end;
end.
 Комментарий модератора 
Используйте теги форматирования кода!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru