Нужно переписать эту программу с паскаля на Си , Паскаль я не понимаю, помогите пожалуйста , плачу хорошо
program simp1;
{ integration by Simpson's method }
const tol = 1.0E-6;
var sum,upper,lower : real;
function fx(x: real): real;
begin
fx:=exp(-x/2)
end; { function fx }
function dfx(x: real): real;
begin
dfx:=-(exp(-x/2))/2
end; { function fx }
procedure simps(lower,upper,tol : real; var sum : real);
{ numerical integration by Simpson's rule }
{ function is fx, limits are lower and upper }
{ with number of regions equal to pieces }
{ partition is delta_x, answer is sum }
var i : integer;
x,delta_x,even_sum, odd_sum,end_sum, end_cor,sum1 : real;
pieces : integer;
begin
pieces:=2;
delta_x:=(upper-lower)/pieces;
odd_sum:=fx(lower+delta_x);
even_sum:=0.0;
end_sum:=fx(lower)+fx(upper);
end_cor:=dfx(lower)-dfx(upper);
sum:=(end_sum+4.0*odd_sum)*delta_x/3.0;
repeat
pieces:=pieces*2;
sum1:=sum;
delta_x:=(upper-lower)/pieces;
even_sum:=even_sum+odd_sum;
odd_sum:=0.0;
for i:=1 to pieces div 2 do
begin
x:=lower+delta_x*(2.0*i-1.0);
odd_sum:=odd_sum+fx(x)
end;
sum:=(7.0*end_sum+14.0*even_sum+16.00*odd_sum
+end_cor*delta_x)*delta_x/15.0;
until (sum
end; { simps }
begin { main program }
lower:=1.0;
upper:=9.0;
simps(lower,upper,tol,sum);
writeln;
writeln(chr(7),'area= ',sum)
end.
Необходимо разработать технологию по созданию многопоточного приложения на Delphi XE8, с возможностью работы с 1000ю потоками и более (под многопроцессорные платформы с большим объёмом ОЗУ): приложение должно "генерировать" подпроцессы, каждый из которых будет работать на ...
Ищем специалиста/ов для реализации технической части по проекту массовой рассылки сообщений через Вайбер. НЕ предлагать готовый софт/кликеры/и т.д. Готовы рассмотреть заявки от программистов с опытом в данной сфере (знание сильных и слабых сторон Viber-support) и ...
Здравствуйте,уважаемые исполнители. Необходимо реализовать задачу целочисленного линейного программирования методом ветвей и границ на языке программирования C++,а также объяснить в виде пошагового алгоритма принцип решения. Если у Вас получится без программы подвести меня к ...
Здравствуйте, кто может установить DataparkSearch Engine 4.54.
Привет всем! Нужно на С# под MS VISUAL STUDIO написать одну функцию, которая полностью заблокирует клавиатуру и мышь. Чтобы нельзя было ничего сделать. Чтобы ни одна системная комбинация клавиш не работала. ...
Для 3D печати нужно из http://www.thingiverse.com/thing:932606 сделать емкость, чтобы открывалась по резьбе крышка сверху. От вас жду цену в рублях.
Нужна небольшая консультация по языку Python не знаю как запустить скрипт (
Описание работы: - Разработка и улучшение скриптов/кода (как правило менее 500 строк), добавление функционала. Интеграция с другими скриптами и популярными утилитами. - Доводка базового (quick-and-dirty) кода до необходимого для production систем уровня: корректное ...
Добрый день, необходимо помочь, составить несколько простых алгебраических функций в C++ http://clip2net.com/s/3tH9x3G
Необходимо в режиме оналайн решить и подробно объяснить ряд задач с собеседований на вакансию программиста. Темы: Операции со списками, массивами, структурой данных.Подходы, алгоритмы, минимизация действий. Примеры в файле. Подробности ответившим
