![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Вычислить значение функции sin 2x на отрезке [-1;1] c шагом 0.25.
Помогите сделать пожалуйста... |
#2
|
|||
|
|||
![]() Ну пусть будет так:
Код:
function GetValues : TStringList; var x, v : Double; begin Result := TStringList.Create; x := -1; While x < 1 Do Begin v := sin(2*x); Reslutl.Items.Add(Format('x=%.4f, sin(2x)=%.4f',[x,v])); x := x + 0.25; End; end; Результат можно показать через сообщеие Код:
ShowMessage(GetValues.Items.Text); Код:
Memo1.Lines.Assign(GetValues); |