Перевести Программу С Языка Паскаль В Язык С++

  • Автор темы kameliya
  • Дата начала
K

kameliya

#1
Метод Ньютона решения нелинейного уравнения

Код:
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.
 
G

Guest

#3
Предыдущий коментарий был более точен к данной теме:)
А по теме... Раз у вас есть "эталонный текст из паскаля", то вы возьмите "словарь" ( книжку по С++, мягко говоря) и заменяйте закоменченные функции паскаля на функции C++ ( в паскале { comment} вместо сишных // , как я понял )
А если я правильно понял контингент данного форума - ваша постановка задачи требует оплаты ( "накодят заденюжку" )
 

lazybiz

Well-known member
03.11.2010
1 339
0
#6
)))))))))))))))))))))))))))))))))
Я не знаю, учитывается ли регистр в Паскале.. Просто он (Pascal) меня никогда не интересовал)
Но автору поста не это надо. Ему надо перевести программу с одного языка на другой.
 
G

Guest

#7
Насколько я понял, в оригинальной проге ошибка, объявлена "в"- маленькая, а "В" используется В - большая.
А насколько понял я - создатель темы, скорее всего девушка, "загуглила" свое задание, данное на учебе. А выдалась программа не в С++, а в паскале.
И, решив затратить минимум усилий и выжать максимум из найденного - появилась данная тема :facepalm:
и кстати вообще - тема актуальна? Просто увидел Очень срочно надо!!!!! :)