|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.07.2010, 16:22 | #1 |
Регистрация: 16.01.2010
Сообщений: 7
|
Ошибка при компиляции
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, TeEngine, Series, TeeProcs, Chart, XPMan,Math; type TForm1 = class(TForm) GroupBox1: TGroupBox; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit3: TEdit; Button1: TButton; Button2: TButton; BitBtn1: TBitBtn; Button3: TButton; Button4: TButton; Button5: TButton; GroupBox2: TGroupBox; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Label4: TLabel; Label5: TLabel; Label8: TLabel; GroupBox3: TGroupBox; Edit7: TEdit; Button6: TButton; Chart1: TChart; Chart4: TChart; Series1: TLineSeries; Series4: TLineSeries; Series5: TLineSeries; Series6: TLineSeries; Button7: TButton; XPManifest1: TXPManifest; Label6: TLabel; Label7: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); private { Private declarations } public { Public declarations } t:real; p:real; s:real; nule:real; pt:real; pp:real; ps:real; j0:real; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var a,b:real; n,i:integer; h,sum:real; function f(x:real):real; begin f:=sin(x)*ln(tan(x)); end; begin a:=strtoint(form1.edit1.text); b:=strtofloat(form1.edit2.Text); n:=strtoint(form1.Edit3.Text); h:=(b-a)/n; sum:=0; for i:=1 to (n-1) do sum:=sum+f(a+i*h); t:=(h/2)*(2*sum+f(a)+f(b)); form1.edit4.text:=floattostr(t); end; procedure TForm1.Button2Click(Sender: TObject); begin form1.Edit1.Text:=''; form1.Edit2.Text:=''; form1.Edit3.Text:=''; form1.Edit4.Text:=''; form1.Edit5.Text:=''; form1.Edit6.Text:=''; form1.Edit7.Text:=''; end; function f(x:real):real; begin f:=sin(x)*ln(tan(x)); end; procedure TForm1.Button3Click(Sender: TObject); var a,b:real; n,i:integer; h,sum,p:real; begin a:=strtoint(form1.edit1.text); b:=strtofloat(form1.edit2.Text); n:=strtoint(form1.Edit3.Text); h:=(b-a)/n; sum:=0; for i:=1 to n do sum:=sum+f(a+i*h); p:=h*sum; form1.edit5.text:=floattostr(p); end; procedure TForm1.Button4Click(Sender: TObject); var a,b,s:real; n,i:integer; h,sum1,sum2:real; begin a:=strtoint(form1.edit1.text); b:=strtofloat(form1.edit2.Text); n:=strtoint(form1.Edit3.Text); sum1:=0; sum2:=0; h:=(b-a)/(2*n); for i:=1 to n do sum1:=f(a+(2*i-1)*h)+sum1; for i:=1 to (n-1) do sum2:=f(a+2*i*h)+sum2; s:=h/3*(4*sum1+2*sum2+f(b)+f(a)); form1.Edit6.Text:=floattostr(s); end; procedure TForm1.Button5Click(Sender: TObject); var i:integer; begin i:=0; repeat i:=i+1; series1.AddXY(i,(i/(i*i*i*i+3*i*i+2))); until not (i<10); end; function i0(x:real):real; begin i0:=ln(tan(x/2))-cos(x)*ln(tan(x)); end; procedure TForm1.Button6Click(Sender: TObject); var a,b,i1,i2,j0:real; begin a:=strtoint(form1.edit1.text); b:=strtofloat(form1.edit2.Text); i1:=i0(b); i2:=i0(a); j0:=i1-i2; form1.Edit7.Text:=floattostr(j0); end; procedure TForm1.Button7Click(Sender: TObject); var h,sumt,sump,t,p:real; a,b,sum1s,sum2s,hs,s:real; k,n,i:integer; begin a:=strtoint(form1.edit1.text); b:=strtofloat(form1.edit2.Text); k:=0; repeat k:=k+1; n:=trunc(exp(k*ln(2))); h:=(b-a)/n; sumt:=0; for i:=1 to (n-1) do sumt:=sumt+f(a+i*h); t:=(h/2)*(2*sumt+f(a)+f(b)); series4.AddXY(n,(abs((t-j0)/j0))); sump:=0; for i:=1 to n do sump:=sump+f(a+i*h); p:=h*sump; series5.AddXY(n,(abs((p-j0)/j0))); sum1s:=0; sum2s:=0; hs:=(b-a)/(2*n); for i:=1 to n do sum1s:=f(a+(2*i-1)*hs)+sum1s; for i:=1 to (n-1) do sum2s:=f(a+2*i*hs)+sum2s; s:=hs/3*(4*sum1s+2*sum2s+f(b)+f(a)); series6.AddXY(n,(abs((s-j0)/j0))); until not(k<4); pt:=Abs(j0-t); pp:=Abs((j0)-(p)); ps:=Abs((j0)-(s)); if pt>pp and pt>ps then label7.caption:='Самый неточный метод Трапцеии'; if pp>pt and pp>ps then label7.caption:='Самый неточный метод Прямоугольника'; if ps>pt and ps>pp then label7.caption:='Самый неточный метод Симпсона'; if pt<pp and pt<ps then label8.caption:='Самый точный метод Трапцеии'; if pp<pt and pp<ps then label8.caption:='Самый точный метод Прямоугольника'; if ps<pt and ps<pp then label8.caption:='Самый точный метод Симпсона'; end; end. Выдаёт ошибку на всех последних строках с if Operator not applicable for this operand type почему не понимаю ведь они все типа real До строки pt:=Abs(j0-t); программа работала как часы потом заставили кое что добавить и начались проблемы Последний раз редактировалось Stripped; 21.07.2010 в 16:45. |
21.07.2010, 16:53 | #2 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Вот так запиши (в том числе и для всех остальных операторов)
Код:
Перемешивай дело с бездельем и не сойдешь с ума...
|
21.07.2010, 17:05 | #3 |
Регистрация: 16.01.2010
Сообщений: 7
|
Хахахах)
Ну и ошибка всю ночь вчера думал что же за фигня программа идеально работала думал гдето не совместимость переменных где то что то упускаю) а тут такая фигня спасибо видимо я зациклился просто
|
21.07.2010, 17:18 | #4 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Спасибо не булькает...
Перемешивай дело с бездельем и не сойдешь с ума...
|
21.07.2010, 17:25 | #5 |
Регистрация: 16.01.2010
Сообщений: 7
|
ну я за тебя проголосовал
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка при компиляции | FoxXx | Общие вопросы C/C++ | 11 | 14.06.2010 19:57 |
Ошибка при компиляции! | Vill | Общие вопросы Delphi | 6 | 22.11.2009 15:10 |
Ошибка при компиляции | haste39 | Общие вопросы C/C++ | 4 | 13.11.2009 00:24 |
Ошибка при компиляции | [QY]'~''LeK1[ee] | Помощь студентам | 2 | 28.05.2008 20:46 |
Ошибка при компиляции | zak | Общие вопросы C/C++ | 2 | 11.12.2007 18:24 |