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

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

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

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

#   

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


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

Подробнее »

Вопрос # 6 426

Раздел: Лабораторный практикум » Delphi
/ вопрос решён /

Доброго времени суток, уважаемые эксперты!
Помогите пожалуйста, я знаю задача не очень сложная, но я плохо разбираюсь в этом, а решение уже срочно нужно... Delphi

Задача. Составит программу, используя оператор цикла с предусловием. Вычислить сумму отрицательных значений cos(ф) на интервале [a, b]
с заданным шагом.

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

Вопрос задал: F1eRce (статус: Посетитель)
Вопрос отправлен: 13 мая 2013, 17:38
Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: DNK

Здравствуйте, F1eRce!
Решение для Delphi 7. Создай проект, сохрани его, закрой Delphi. Затем замени содержание файлов из приложения, снова открой проект и запускай.

Приложение:
  1.  
  2.  
  3. unit Unit1;
  4.  
  5. interface
  6.  
  7. uses
  8. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  9. Dialogs, StdCtrls, Spin;
  10.  
  11. type
  12. TForm1 = class(TForm)
  13. seBegin: TSpinEdit;
  14. seEnd: TSpinEdit;
  15. seInterval: TSpinEdit;
  16. lblBegin: TLabel;
  17. lblEnd: TLabel;
  18. lblInterval: TLabel;
  19. lblResult: TLabel;
  20. procedure seChange(Sender: TObject);
  21. private
  22. { Private declarations }
  23. public
  24. { Public declarations }
  25. end;
  26.  
  27. var
  28. Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. {$R *.dfm}
  33.  
  34. procedure TForm1.seChange(Sender: TObject);
  35. var
  36. curValue: Integer;
  37. resValue, cosValue: Extended;
  38. begin
  39. curValue := seBegin.Value;
  40. resValue := 0;
  41. while curValue < seEnd.Value do begin
  42. cosValue := Cos(curValue);
  43. if cosValue < 0 then
  44. resValue := resValue + cosValue;
  45. Inc(curValue, seInterval.Value);
  46. end;
  47.  
  48. end;
  49.  
  50. end.
  51.  
  52.  
  53.  
  54.  
  55. object Form1: TForm1
  56. Left = 414
  57. Top = 319
  58. Width = 303
  59. Height = 212
  60. Caption = 'Form1'
  61. Color = clBtnFace
  62. Font.Charset = DEFAULT_CHARSET
  63. Font.Color = clWindowText
  64. Font.Height = -11
  65. Font.Name = 'MS Sans Serif'
  66. Font.Style = []
  67. OldCreateOrder = False
  68. OnCreate = seChange
  69. PixelsPerInch = 96
  70. TextHeight = 13
  71. object lblBegin: TLabel
  72. Left = 16
  73. Top = 8
  74. Width = 105
  75. Height = 13
  76.  
  77. end
  78. object lblEnd: TLabel
  79. Left = 16
  80. Top = 48
  81. Width = 98
  82. Height = 13
  83.  
  84. end
  85. object lblInterval: TLabel
  86. Left = 16
  87. Top = 88
  88. Width = 99
  89. Height = 13
  90.  
  91. end
  92. object lblResult: TLabel
  93. Left = 16
  94. Top = 136
  95. Width = 40
  96. Height = 13
  97. Caption = 'lblResult'
  98. end
  99. object seBegin: TSpinEdit
  100. Left = 16
  101. Top = 24
  102. Width = 121
  103. Height = 22
  104. MaxValue = 0
  105. MinValue = 0
  106. TabOrder = 0
  107. Value = 0
  108. OnChange = seChange
  109. end
  110. object seEnd: TSpinEdit
  111. Left = 16
  112. Top = 64
  113. Width = 121
  114. Height = 22
  115. MaxValue = 0
  116. MinValue = 0
  117. TabOrder = 1
  118. Value = 360
  119. OnChange = seChange
  120. end
  121. object seInterval: TSpinEdit
  122. Left = 16
  123. Top = 104
  124. Width = 121
  125. Height = 22
  126. MaxValue = 2147483647
  127. MinValue = 0
  128. TabOrder = 2
  129. Value = 5
  130. OnChange = seChange
  131. end
  132. end


Ответ отправил: DNK (статус: Студент)
Время отправки: 13 мая 2013, 18:05
Оценка за ответ: 5


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

Всего сообщений: 0.

13 мая 2013, 17:42: Вопрос перемещён из тематического раздела Delphi » Прочее в раздел Лабораторный практикум » Delphi модератором DNK

18 июня 2013, 08:57: Статус вопроса изменён на решённый (изменил модератор DNK)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:50
Выполнено за 0.03 сек.