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

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

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

Delphi.int.ru Expert

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

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

#   

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


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

Подробнее »



Вопрос # 1 232

/ вопрос открыт /

Приветствую, уважаемые эксперты! Хотел бы от вас получить частичку помощи. Написал программу а блок-схему сделать не получается. Если вас не затруднит её бы и хотел получить.

Приложение:
  1. var a,b,c:real;
  2. Procedure Root(a,b,c:real; var R:boolean; var x1,x2:real);
  3.  
  4. begin
  5. R:=True;
  6. D:=Sqr(b)-4*a*c;
  7. if D>=0 then begin
  8. x1:=(-b-Sqrt(D))/(2*a);
  9. x2:=(-b+Sqrt(D))/(2*a);
  10. end
  11. else begin
  12. R:=False;
  13. end;
  14. end;
  15. procedure TForm1.Button1Click(Sender: TObject);
  16. var h,x1,x2:real;
  17. R:boolean;
  18. begin
  19. h:=StrToFloat(Edit1.Text);
  20. a:=Sqrt((abs(sin(8*h))+17)/(1-sin(4*h)*cos(Sqr(Sqr(h)+18))));
  21. b:=1-Sqrt(3/(3+abs(tan(a*Sqr(h))-sin(a*h))));
  22. c:=a*Sqr(h)*sin(b*h)+b*h*h*h*cos(a*h);
  23.  
  24. Root(a,b,c,R,x1,x2);
  25. if not (R) then begin
  26.  
  27. end
  28. else begin
  29. Edit2.Text:=FloatToStr(x1);
  30. Edit3.Text:=FloatToStr(x2);
  31.  
  32. end;
  33.  
  34. end;
  35.  
  36. end.


mamont Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: mamont (статус: Посетитель)
Вопрос отправлен: 26 декабря 2007, 19:58
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

C наступающим! Учись писать схемы сам. Твой пример прикрепляю к ответу.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 27 декабря 2007, 08:41


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

Мини-форум пуст.

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 октября 2017, 11:41
Выполнено за 0.1 сек.
Рейтинг@Mail.ru