| ← Июнь 2022 → | ||||||
|
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
|
30
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
Pascal / Delphi / Lazarus
Здравствуйте! У меня возникли сложности с таким вопросом: Вычислить определённый интеграл в Pascal по блок-схеме и с циклом Repeat-Until
Дата отправки: 22.06.2022, 16:51 Консультирует Megaloman (Мастер-Эксперт): Вашими блок-схемами не пользовался. Файлы прилагаю. txt-файлы переименуйте, чтобы осталось только расширение exe, pas. Код Const
a: Double = 1;
b: Double = 4;
epsMax: Real = 0.000001;
Var
h3, ba, ban, S1, S2, Fab, Simp0, Simp : Double;
n, i : Integer;
eps : Real;
Function Func(x : Double) : Double;
Begin
Func := 4 * Sqr(x) - Ln(0.5 * x);
End;
Begin
ba := b - a;
h3 := ba / 3;
Fab := Func(a) + Func(b);
Simp0 := h3 * Fab;
n := 1;
S2 := 0;
Repeat
n := 2 * n;
S1 := 0;
ban := ba / n;
i := 1;
Repeat
S1 := S1 + Func(a + i * ban);
i := i + 2;
Until (i > n);
Simp := h3 / n * (Fab + 4 * S1 + 2 * S2);
eps := Abs((Simp - Simp0) / Simp);
Simp0 := Simp;
S2 := S2 + S1;
writeln(n:3, Simp:15:7, eps:12:8);
Until (eps <= epsMax);
End.
Ответ отредактирован модератором Megaloman (Мастер-Эксперт) 23.06.2022, 15:35
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
