![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 05.01.2010
Сообщений: 150
|
![]()
Странное что-то с cos(k*PI/4)
и Ваще результаты не правильные ![]() {********************************** ******************} Код вычислений procedure TForm1.Button4Click(Sender: TObject); var x1, x2, x, h, a, s, y : extended; N, k, c : integer; begin x1 := StrToFloat(Edit1.Text); Memo1.Lines.Add('x1 = ' + Edit1.Text); x2 := StrToFloat(Edit2.Text); Memo1.Lines.Add('x2 = ' + Edit2.Text); N := StrToInt(Edit3.Text); Memo1.Lines.Add('N = ' + Edit3.Text); h := StrToFloat(Edit4.Text); Memo1.Lines.Add('H = ' + Edit4.Text); x := x1; Repeat s := 0; for k :=0 to N do begin s := s + cos(k*PI/4)/fact(k)*power(x,k) ; end; Memo1.Lines.Add('npи x = ' + FloatToStrF(x, ffFixed, 6, 2) + #9 + ' S(x) = ' + FloatToStrF(s, ffFixed, 14, 8)+#9 + ' Y(x) = ' + FloatToStrF(exp( x*cos(PI/4)*cos(x*sin(PI/4) )), ffFixed, 14, 8) ); x := x+h; until x>x2; Memo1.Lines.Add('Выполнено в:' + TimeToStr(time)); Memo1.Lines.Add('(***************** ********)'); end; {********************************** ********************} скриншот : (сюда почемуто не заливаецца) http://freespace.by/download/c4646ad7bf |
![]() |
![]() |
![]() |
#2 | ||
Старожил
Регистрация: 15.02.2010
Сообщений: 15,726
|
![]() Цитата:
Цитата:
|
||
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вычисление сумм элементов матрицы А размера n x n, лежащих выше, ниже и на главной диагонали | Tomoa | Microsoft Office Word | 8 | 04.04.2010 20:18 |
вычисление конечных сумм в Паскале. | lammy | Помощь студентам | 8 | 10.03.2010 13:48 |
Вычисление конечных сумм. паскаль. | lammy | Помощь студентам | 2 | 05.03.2010 13:49 |
Задача в С++ про вычисление сумм | Many man | Помощь студентам | 2 | 14.12.2008 01:19 |