Решить ДУ методом Адамса

@qqw · Регистрация: 14.03.2011

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

Всем привет!
ребят помогите плиз)
нужна программа:
вводишь диф. уравнение
и она решает его методом Адамса

@LeDep · 14.03.2011, 15:49

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
PROGRAM Ad_2;
USES
CRT;
LABEL
MET;
CONST
a = 1;
b = 2;
e = 0.01;
VAR
h : Real;
i,u : Integer;
Y1,Y2,Y3,X : Array [1..30] of Real;
BEGIN
clrscr;
h:=0.05;
Y1[1]:=1;
Y2[1]:=1;
Y3[1]:=1;
repeat
u:=0;
MET: for i:=1 to 2 do
begin
Y1[i+1]:=Y1[i]+h*(Y1[i]+h/2*(3*Y2[i]-2*Y3[i]));
Y2[i+1]:=Y2[i]+h*(Y2[i]+h/2*(-Y3[i]-3*Y1[i]));
Y3[i+1]:=Y3[i]+h*(Y3[i]+h/2*(2*Y1[i]-Y2[i]));
end;
if u=0
then
begin
h:=h/2;
u:=1;
goto MET
end;
until ((abs(Y1[2])-Y1[3])<=(3*e)) and ((abs(Y2[2])-Y2[3])<=(3*e))
and ((abs(Y3[2])-Y3[3])<=(3*e));
h:=h*2;
for i:=2 to (round((b-a)/h)+1) do
begin
Y1[i+1]:=Y1[i]+h/2*(3*(3*Y2[i]-2*Y3[i])-(3*Y2[i-1]-2*Y3[i-1]));
Y2[i+1]:=Y2[i]+h/2*(3*(-Y3[i]-3*Y1[i])-(-Y3[i-1]-3*Y1[i-1]));
Y3[i+1]:=Y3[i]+h/2*(3*(2*Y1[i]-Y2[i])-(2*Y1[i-1]-Y2[i-1]))
end;
writeln (' X Y1 Y2 Y3');
writeln ('-------------------------------------------');
for i:=1 to (round((b-a)/h)+1) do
begin
X[i]:=a+h*(i-1);
writeln (X[i]:7:4, Y1[i]:12:4, Y2[i]:12:4, Y3[i]:12:4);
end;
writeln;
write (' ':5,'Шаг интегрирования: ',h:4:4);
readkey
END.

@qqw · 14.03.2011, 18:41 **[ТС]**

это не то, тут не вводишь уравнение, тут он сам че то решает, и я даже понять не могу что

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@qqw 0 / 0 / 0 Регистрация: 14.03.2011 Сообщений: 4

	Решить ДУ методом Адамса 14.03.2011, 14:24. Показов 2019. Ответов 2 Метки нет (Все метки) Всем привет! ребят помогите плиз) нужна программа: вводишь диф. уравнение и она решает его методом Адамса 0

@qqw 0 / 0 / 0 Регистрация: 14.03.2011 Сообщений: 4
	14.03.2011, 18:41 [ТС]
	это не то, тут не вводишь уравнение, тут он сам че то решает, и я даже понять не могу что 0

Решить ДУ методом Адамса

Решение