|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
11.12.2012, 16:41 | #1 |
Регистрация: 08.12.2012
Сообщений: 3
|
Как исправить
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtnrs, math; type TForm1 = class(TForm) Button1: TButton; OleContainer1: TOleContainer; Edit1: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var x,p,s,z:real; j,k:integer; begin s:=0; p:=1; z:=1.341; x:=-0.675; for k:=1 to 4 do s:= s+(exp(z/2*j)-exp(z/2*k)*sin((2*pi/k)+x))/ power(1+(1/(2*abs(x)*(j*j+k*k))),1/3); for j:=3 to 7 do p:= p*(((exp(-j/z*z+z)+power(abs(x+x*x*x),1/3))/ sqrt(1+sqr(z-x)+j*j))+s); edit1.Text:=floattostr(p); end; end. В строке { procedure FormCreate(Sender: TObject);} выдает ошибку( |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дата записана как текст - как програмно исправить? | riko_ltd | Microsoft Office Excel | 1 | 26.11.2012 08:01 |
Как исправить ? | kiryxa(cyc) | Помощь студентам | 0 | 17.05.2012 09:49 |
Как исправить............. | trash1205 | Microsoft Office Word | 2 | 21.03.2012 12:56 |
как исправить! | lexinvest | Операционные системы общие вопросы | 1 | 08.05.2011 18:03 |
Как исправить??? | BlackMamba | Microsoft Office Word | 1 | 03.08.2008 12:23 |