Переделать программу написанную на Pascal в С++

@Sophi · Регистрация: 04.01.2014

Задание
Вариант 1
Вычислить определенный интеграл от функции f(x) на промежутке [a, b] методом прямоугольников.
f(x) = 2sin x cos x + sin x, a = 0, b = 1,
число разбиений n = 10; 40; 160; 640.
F(x) = sin2x –cosx.

Программа на Pascal в общем виде:

Pascal

{
Метод центральных прямоугольников для вычисления определенного интеграла.
a, b – границы интервала интегрирования,
n – число разбиений,
s – результат (значение определенного интеграла),
f – подынтегральная функция (должна быть определена выше).
}
procedurerect(a, b: real; n: integer; vars: real);
var
h, x: real; {h  шаг интегрирования, 
    x  текущее значение переменной интегрирования}
    i: integer:
begin
    s:= 0; 
h:= (b - a)/n; {определение шага интегрирования}
x := a+h/2;
    fori:= 1 to n do begin
        s:= s + f(x);
        x:= x + h;
    end;
    s:= s*h;
end;

Вот что я пыталась сделать:

C++

// matan_integr.cpp: определяет точку входа для консольного приложения.
//
 
#include "stdafx.h"
#include <stdio.h>
#include <iostream>
#include <math.h>
 
using namespace std;
double f(double x)
{double z=sin(x);
    double r=pow(z,2)+cos(x);
return r;}
 
 
int _tmain(int argc, _TCHAR* argv[])
{
    int n=10;
    //cout<<"vvedite 4islo razbienii"<<endl;
    //cin>>n;
    double a=0;
    double b=1;
    double s=0;
    double h=(b-a)/2;
    double x=a+h/2;
    double s1;
    for(int i=1; i<n;)
    {s1=s+f(x);
    double X=x+h;}
    double s2=s1*h;
        cout<<"ploschad' ravna:"<<s2<<endl;
    system("pause");
    return 0;
}

Ошибок никаких не выдает, но и программа не работает

Tulosba · 23.05.2014, 11:45

C++

1	for(int i=0; i<n; ++i) //27 строка

26 строку убрать. s1 заменить на s.

C++

1	x=x+h;} // 29 строка

@Sophi · 23.05.2014, 15:53 **[ТС]**

Спасибо, программа работает, но как оказалось неправильно...

@Sophi 0 / 0 / 0 Регистрация: 04.01.2014 Сообщений: 4
	23.05.2014, 15:53 [ТС]	3
	Спасибо, программа работает, но как оказалось неправильно... 0

Опции темы