Вычисление интеграла: вставить данные из текстового файла

18.07.2012, 19:52. **Показов** 992. **Ответов** 2

Author24 — интернет-сервис помощи студентам

вот собственно само условие:

а вот и программа, которую я сам написал для вычисления интеграла, если значения писать от руки, но я не могу понять, как мне вставлять данные из txt

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
program Simpson;
uses crt;
var
x,a,b,h,s:real;
n:integer;
 
function Y(t:real):real;
begin
Y:=(1+2*t+3*t*t+4*t*t*t+5*t*t*t*t+6*t*t*t*t*t+7*t*t*t*t*t*t);
end;
begin
clrscr;
write('otrezok integrirovanijaя [a,b] ?');
read(a,b);
write('na skolko chastej nyzhno razdelit otrezok n=');
read(n);
h:=(b-a)/n;
s:=0; x:=a+h;
while x<b do
begin
s:=s+4*Y(x);
x:=x+h;
s:=s+2*Y(x);
x:=x+h;
end;
s:=h/3*(s+Y(a)-Y(b));
writeln;
writeln('integral = ',s);
readkey;
end.

помогите доделать. или если не правильно, даже это, то объясните где, и покажите как правильно

@BumerangSP · 18.07.2012, 23:36

pavsha1915, какие именно данные? Если только пределы интегрирования и отрезок - то вполне возможно. Для введения интеграла нужно уже полноценный распознаватель писать.

Добавлено через 5 минут

Не по теме:

Сообщение от pavsha1915

а вот и программа, которую я сам написал

А эту Вы тоже сами написали? Или все же скопипастить и вставить свой пример интеграла - это нынче называется "самому написать"?
http://pyatnitsev.ru/2011/12/0... integrals/

@CodeR · 19.07.2012, 07:41

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
program Simpson;
uses crt;
var
x,a,b,h,s:real;
n:integer;
f:text;
function Y(t:real):real;
begin
Y:=(1+2*t+3*t*t+4*t*t*t+5*t*t*t*t+6*t*t*t*t*t+7*t*t*t*t*t*t);
end;
begin
clrscr;
Assign(f,'C:\in.txt');Reset(f);{Открываем файл для чтения}
readln(f,a);readln(f,b);{Считываем из файла in.txt отрезок интегрирования}
readln(f,n);{Считываем из файла in.txt на сколько частей разделить}
Close(f);{Закрываем файл}
h:=(b-a)/n;
s:=0; x:=a+h;
while x<b do
begin
s:=s+4*Y(x);
x:=x+h;
s:=s+2*Y(x);
x:=x+h;
end;
s:=h/3*(s+Y(a)-Y(b));
writeln;
writeln('integral = ',s);
readkey;
end.

Файл in.txt скачай и закинь в корень диска C:\, и если менять данные будешь первая строка это a вторая b третья n

Новые блоги и статьи Все статьи Все блоги /
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .

@BumerangSP 4311 / 1422 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	18.07.2012, 23:36
	pavsha1915, какие именно данные? Если только пределы интегрирования и отрезок - то вполне возможно. Для введения интеграла нужно уже полноценный распознаватель писать. Добавлено через 5 минут Не по теме: Сообщение от pavsha1915 а вот и программа, которую я сам написал А эту Вы тоже сами написали? Или все же скопипастить и вставить свой пример интеграла - это нынче называется "самому написать"? http://pyatnitsev.ru/2011/12/0... integrals/ 0

Опции темы