Методом трапеций найти значение интеграла функции x-Cos(x) в пределах от 0 до 2.
а) открыть новый файл и набрать текст программы:
PROGRAM P10;
FUNCTION FUN(X:REAL):REAL;
BEGIN
FUN:=X-COS(X);
END;
VAR H,X,Y,A,B:REAL; I,N:INTEGER;
BEGIN
WRITELN(’Ввести данные A(0),B(2),N(1000) = ’);
READ(A,B,N);
X:=0; Y:=0; H:=(B-A)/N;
FOR I:=1 TO N-1 DO BEGIN X:=X+H;
Y:=Y+FUN(X);
END;
Y:=H/2*(FUN(A)+FUN(B)+2*Y);
WRITELN(’Результат= ’,Y);
END.
б) выполнить программу щелчком по соответствующей кнопке меню или клавишей F9;
Документ Microsoft Office Word.docx
Методом трапеций найти значение интеграла функции xCos(x) в
ЗАДАНИЕ 10
пределах от 0 до 2.
а) открыть новый файл и набрать текст программы:
PROGRAM P10;
FUNCTION FUN(X:REAL):REAL;
BEGIN
FUN:=XCOS(X);
END;
VAR H,X,Y,A,B:REAL; I,N:INTEGER;
BEGIN
WRITELN(’Ввести данные A(0),B(2),N(1000) = ’);
READ(A,B,N);
X:=0; Y:=0; H:=(BA)/N;
FOR I:=1 TO N1 DO BEGIN X:=X+H;
Y:=Y+FUN(X);
END;
Y:=H/2*(FUN(A)+FUN(B)+2*Y);
WRITELN(’Результат= ’,Y);
END.
б) выполнить программу щелчком по соответствующей кнопке меню или
клавишей F9; в) ввести через клавишу Enter в строку ввода три числа и наблюдать
результат.
Методом трапеций найти значение интеграла функции
Методом трапеций найти значение интеграла функции
Материалы на данной страницы взяты из открытых истончиков либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
10.05.2017
Посмотрите также:
© ООО «Знанио»
С вами с 2009 года.
О портале
