Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 333

/ вопрос решён /

Приветствую, уважаемые эксперты!
помогите составить блок-схему по данному коду

Приложение:
  1. using System;
  2. class eyler
  3. {
  4. static double f(double a, double b)
  5. {
  6. return ((b*b/Math.Log(a)-1)/a/b);
  7. }
  8. static void Main()
  9. {
  10. int i=0,j=0;
  11. double x, y, h, YY, interval, eps = 0.0001, x0, xk;
  12. x0 = Math.Exp(1);
  13. interval = 3*Math.Exp(1)/2;
  14. h = interval/100;
  15. xk = x0+interval;
  16. y=2;
  17. x = x0;
  18. while (x < xk)
  19. {
  20. YY=y+h/2*f(x,y);
  21. YY=y+h*f(x,YY);
  22. x=x+h;
  23. if (Math.Abs(y - YY) > eps)
  24. {
  25. h=h/2;
  26. }
  27. }
  28. y=2;
  29. x = x0;
  30. while (x < xk)
  31. {
  32. i++;
  33. YY = y + h / 2 * f(x, y);
  34. y = y + h * f(x, YY);
  35. x = x + h;
  36. if (i == 100)
  37. {
  38. System.Console.Write("x={0:f6}; ", x);
  39. System.Console.Write("y={0:f6}", y);
  40. System.Console.WriteLine("");
  41. i = 0;
  42. j++;
  43. }
  44. }
  45. Console.ReadKey();
  46. }
  47. }
  48.  


Примечание #1 (14 декабря 2012, 16:26):
задание такое:Численно решить задачу Коши с точностью &#949;=10-4 , х0 = е, у0=2, интервал 3е/2

ИЕС Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задала: ИЕС (статус: Посетитель)
Вопрос отправлен: 14 декабря 2012, 15:58
Состояние вопроса: решён, ответов: 0.


Мини-форум вопроса

Всего сообщений: 6; последнее сообщение — 18 декабря 2012, 11:12; участников в обсуждении: 3.

14 декабря 2012, 16:00: Вопрос перемещён из тематического раздела C++ в раздел Лабораторный практикум » C++ модератором DNK

min@y™

min@y™ (статус: Доктор наук), 17 декабря 2012, 09:10 [#1]:

Цитата (ИЕС):

помогите составить блок-схему по данному коду

Чем конкретно помочь? Что не получается?
Или под словом "помочь" подразумевается "сделать целиком"?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
ИЕС

ИЕС (статус: Посетитель), 17 декабря 2012, 16:05 [#2]:

там получается 2 цикла, в каждом из которых есть условия.И вот когда (допустим первое условие)рисуем логический блок условия , и пишем, ДА: h=h/2, а вот когда НЕТ: там ничего не нужно писать?
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 17 декабря 2012, 21:32 [#3]:

Цитата (ИЕС):

там ничего не нужно писать?

как это не нужно? Рисуется стрелочка в обход прямоугольника с действием, которое выполняется по условию (h=h/2 на приведенном примере). Над этой стрелочкой пишется НЕТ :-)
ИЕС

ИЕС (статус: Посетитель), 17 декабря 2012, 23:59 [#4]:

так это я знаю, я имею ввиду действие никакое не выполняется
min@y™

min@y™ (статус: Доктор наук), 18 декабря 2012, 08:12 [#5]:

Цитата (ИЕС):

так это я знаю, я имею ввиду действие никакое не выполняется

Ну, дык, стрелка на начало цикла.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
ИЕС

ИЕС (статус: Посетитель), 18 декабря 2012, 11:12 [#6]:

понятно, спасибо

6 февраля 2013, 17:23: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 16:48
Выполнено за 0.02 сек.