|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Интегральная показательная вещественная функция E1(x)
Вот набросок для паскаля =)
Код:
program veschestvennaya_integralnaya_pokazatelnaya_funciya; uses sysutils; var x,a1,a2,a3,a4,b1,b2,b3,b4,c1,c2,c3,c4,c5,c6,e1,e2:real; begin a1:=0.2677737343; a2:=8.6347608925; a3:=18.0590169730; a4:=8.5733287491; b1:=3.9584969228; b2:=21.0996530827; b3:=25.6329561486; b4:=9.5733223454; c1:=0.57721566; c2:=0.99999193; c3:=-0.24991055; c4:=0.05519968; c5:=-0.0097004; c6:=0.00107857; writeln("veschestvennaya integralnaya pokazatelnaya funciya E1(x)"); writeln("x="); read(x); e2:=(((x+a4)*x+a3)*x+a2)*x+a1; if 0>x then writeln("ERROR - X can no be < 0"); if (0<x) and (x<1) then e1:=-log(x)-c1+((((c6*x-c5)x+c4)*x-c3)*x+c2)*x else e1:=exp(-x)*e2/x/((((x+b4)*x+b3)*x+b2)*x+b1) end; writeln("E(x)=";e1); end. Изначально это мне нужно подшить на форму в дельфи для курсового проекта. Если не в лом, то подшейте к форме и скиньте на мыло - Patrickblez@gmail.com =)))) СпС =))) Если скинете, то допишу курсак и выдам в свободную скачку. Вот вам курсак на другую тему: http://depositfiles.com/files/n5nbvwfzs как гарант того что не просто розвожу на курсовую =) |
#2
|
|||
|
|||
И в чем проблема?
Создаем форму. На нее кидаем TEdit и TButton. Далее двойной щелчек по TButton и делаем так: Код:
procedure TForm1.Button1Click(Sender : TObject); var x,a1,a2,a3,a4,b1,b2,b3,b4,c1,c2,c3,c4,c5,c6,e1,e2:real; begin a1:=0.2677737343; a2:=8.6347608925; a3:=18.0590169730; a4:=8.5733287491; b1:=3.9584969228; b2:=21.0996530827; b3:=25.6329561486; b4:=9.5733223454; c1:=0.57721566; c2:=0.99999193; c3:=-0.24991055; c4:=0.05519968; c5:=-0.0097004; c6:=0.00107857; x := StrToFloat(Edit1.Text); If (x < 0) Then Begin ShowMessage('x should be greater than 0!') Exit; End; e2:=(((x+a4)*x+a3)*x+a2)*x+a1; If (x<1) Then e1:=-log(x)-c1+((((c6*x-c5)x+c4)*x-c3)*x+c2)*x Else e1:=exp(-x)*e2/x/((((x+b4)*x+b3)*x+b2)*x+b1) ShowMessage('E(x)=' + FloatToStr(e1)); end. ЗЫ. Формулы все твои. ЗЗЫ. Ну немножко оптимизировал на условиях. |