Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.07.2010, 16:22   #1
Stripped
 
Регистрация: 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.
Stripped вне форума Ответить с цитированием
Старый 21.07.2010, 16:53   #2
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Вот так запиши (в том числе и для всех остальных операторов)
Код:
if (pt>pp) and (pt>ps) then
label7.caption:='Самый неточный метод Трапцеии';
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 21.07.2010, 17:05   #3
Stripped
 
Регистрация: 16.01.2010
Сообщений: 7
По умолчанию Хахахах)

Ну и ошибка всю ночь вчера думал что же за фигня программа идеально работала думал гдето не совместимость переменных где то что то упускаю) а тут такая фигня спасибо видимо я зациклился просто
Stripped вне форума Ответить с цитированием
Старый 21.07.2010, 17:18   #4
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Спасибо не булькает...
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 21.07.2010, 17:25   #5
Stripped
 
Регистрация: 16.01.2010
Сообщений: 7
По умолчанию

ну я за тебя проголосовал
Stripped вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при компиляции 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