| ← Январь 2022 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
|
17
|
19
|
20
|
21
|
22
|
23
|
|
|
24
|
25
|
26
|
27
|
28
|
29
|
30
|
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/issues/8/19/228
Открыта:
17-04-2009
Статистика
0 за неделю
RFpro.ru: Консультации по информатике
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
Информатика
Консультация # 37513: Помогите пожалуйста решить такую задачу: Как определить объем и площадь граней многогранника в трехмерном пространстве, если известны координаты его вершин. Заранее СПАСИБО. ... Консультация # 178272: Здравствуйте, уважаемые эксперты! Мне необходимо написать программу в qbasic, интегрирование ОДУ методом Рунге-Кутты, по данным алгоритмам. http://rfpro.ru/upload/2294 http://rfpro.ru/upload/2295 Индивидуально задание: дифференциальное уравнение y’=y (y=y(x)), интервал [0,1], начальные условия x0 = 0, y0 = 1, шаг интегрирования h0 = 0,1... Уважаемые эксперты. Убедительно прошу помочь мне решить эти задачи:
Дата отправки: 10.05.2008, 02:27 Консультирует Даниил Цветков: Здравствуйте, Александр Бетин! Приложение:
Помогите пожалуйста решить такую задачу:
Дата отправки: 14.03.2006, 18:22 Консультирует Ayl: Здравствуйте, Koval!
Консультирует Полховский Александр Владимиро: Здравствуйте, Koval!
Здравствуйте, уважаемые эксперты! Код DECLARE FUNCTION r! (x() AS SINGLE, y() AS SINGLE, h AS SINGLE, m AS SINGLE) DECLARE FUNCTION f! (x AS SINGLE, y AS SINGLE) DIM n AS INTEGER DIM x0 AS SINGLE, y0 AS SINGLE, h AS SINGLE, m AS SINGLE, b AS SINGLE CLS INPUT "Nachalnoe uslovie x0:"; x0 INPUT "Nachalnoe uslovie y0:"; y0 INPUT "Pogreshnost:"; E INPUT "Shag pechati:"; h0 INPUT "Konec otrezka integrirovaniya [x0;b]:"; b PRINT n = FIX((b - x0) / h0) + 1 PRINT "Nachalnoe uslovie x0:"; x0 PRINT "Nachalnoe uslovie y0:"; y0 PRINT "Shag pechati:"; h0 FOR i = 1 TO n h = h0 m = 1 y = r(x(), y(), h, m) DO UNTIL ABS(y - y1) < E y1 = y h = h / 2 x = x0 y = y0 m = 2 * m y = r(x, y, h, m) LOOP x0 = x0 + h0 y0 = y PRINT "x0 ="; x0,"y0 ="; y0, "h0 ="; h0, "m ="; m NEXT i END FUNCTION f (x AS SINGLE, y AS SINGLE) f = y(x) END FUNCTION FUNCTION r! (x() AS SINGLE, y() AS SINGLE, h AS SINGLE, m AS SINGLE) FOR j = 1 TO m k1 = f(x(j), y(j)) k2 = f(x(j) + h / 2, y(j) + h * k1 / 2) k3 = f(x(j) + h / 2, y(j) + h * k2 / 2) k4 = f(x(j) + h, y(j) + h * k3) y(j + 1) = y(j) + h / 6 * (k1 + 2 * k2 + 2 * k3 + k4) x = x + h NEXT j r = y(j + 1) END FUNCTION Программа выдает ошибку, связанную с переменной X. Видимо я что-то не поняла с процедурами-функциями. Помогите, пожалуйста, исправить программу. В результате должны получиться значения x и y(x) из приведенной таблицы. http://rfpro.ru/upload/2296 Заранее спасибо!
Дата отправки: 07.05.2010, 20:23 Консультирует lamed (Академик): Здравствуйте, Ushastik1985. Ответ в приложении. QBasic Приложение:
Консультирует Лиджи-Гаряев Владимир: Здравствуйте, Ushastik1985. Код DECLARE FUNCTION r! (x AS SINGLE, y AS SINGLE, h AS SINGLE, m AS SINGLE) DECLARE FUNCTION f! (x AS SINGLE, y AS SINGLE) CLS INPUT "Nachalnoe uslovie x0:"; x0 INPUT "Nachalnoe uslovie y0:"; y0 INPUT "Pogreshnost:"; E INPUT "Shag pechati:"; h0 INPUT "Konec otrezka integrirovaniya [x0;b]:"; b PRINT n = FIX((b - x0) / h0) + 1 PRINT "Nachalnoe uslovie x0:"; x0 PRINT "Nachalnoe uslovie y0:"; y0 PRINT "Shag pechati:"; h0 y1 = y0 FOR i = 1 TO n h = h0 m = 1 y = r(x, y, h, m) DO UNTIL ABS(y - y1) < E y1 = y h = h / 2 x = x0 y = y0 m = 2 * m y = r(x, y, h, m) LOOP x0 = x0 + h0 y0 = y PRINT "x ="; x0, "y ="; y0, "h ="; h0, "m ="; m NEXT i END FUNCTION f (x, y) f = y END FUNCTION FUNCTION r! (x, y, h, m) FOR j = 1 TO m k1 = f(x, y) k2 = f(x + h / 2, y + h * k1 / 2) k3 = f(x + h / 2, y + h * k2 / 2) k4 = f(x + h, y + h * k3) y = y + h * (k1 + 2 * k2 + 2 * k3 + k4) / 6 x = x + h NEXT j r = y END FUNCTION
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
