[_kondratenko_]

Написал две программы, обе не работают Подскажите пожалуйста в чем ошибка
Первая:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

var a1,a2,a3,b1,b2,b3,x,y; Begin a1:=StrToFloat(Edit1.Text); a2:=StrToFloat(Edit2.Text); a3:=StrToFloat(Edit3.Text); b1:=StrToFloat(Edit4.Text); b2:=StrToFloat(Edit5.Text); b3:=StrToFloat(Edit6.Text); if (sqrt(sqr(b1-a1)=sqr(b2-a2))=sqr(b3-a3)then Edit9.Text:= 'коллениарны' else Edit9.Text:= 'не коллениарны' if sqrt(sqr(a1)+sqr(a2)+sqr(a3)>sqrt(sqr(b1)+sqr(b2)+sqr(b3) then Bebin Edit7.Text:= 'A>B'; x:=sqrt(sqr(a1)+sqr(a2)+sqr(a3)/sqrt(sqr(b1)+sqr(b2)+sqr(b3); end; else if sqrt(sqr(a1)+sqr(a2)+sqr(a3)<sqrt(sqr(b1)+sqr(b2)+sqr(b3) then Edit9.Text:= 'A<B' y:=sqrt(sqr(b1)+sqrt(sqr(b2)+sqrt(sqr(b3) /sqrt(sqr(a1+sqr(a2)+sqrt(sqr(a3); else Edit9.Text:= 'A=B' if(a1=b1)and(a2=b2)and(a3=b3) then Edit9.Text:='одинак.напр.' else Edit9.Text:='против.напр.' End.   и вторая: Var K,L,j,i: integer Y:array[1..10,1..10] of real; X:array[10..10] of real; Begin L:=StrToint(Edit1.Text); K:=StrToint(Edit2.Text); StringGrid1.ColCount:=k+1 StringGrid1.RoWCount:=1 StringGrid2.ColCount:=k+1 StringGrid2.RowVount:=1 For j:=1 to K do StringGrid1.Cells[o,j]:=intToStr(j); For i=1 to L do StringGrid1.Cells[i,o]:=intToStr(i); For j:=1 to K do For i=1 to L do y[j;i]:=strtoFloat(StringGrid1.Cells[j;i]; For i:=1 to L do Begin X[i]=0; For j:=1 to K do X[j]:=X[i]+y[j;i]; end. StringGrid2.Visible:=True; For i=1 to L do StringGrid2.Cells[j,o]:=FloattoStr(x[i]); End.

Admin: Пользуемся тегами!

[lmikle]

Первая здесь:

Код:

1	if (sqrt(sqr(b1-a1)=sqr(b2-a2))=sqr(b3-a3)then

Видимо должно быть:

Код:

1	if (sqrt(sqr(b1-a1)<b>-</b>sqr(b2-a2))=sqr(b3-a3)then

Во второй - индексы в гриде начинаются с 0.

[Black Raider]

Код:

1	var a1,a2,a3,b1,b2,b3,x,y;

(Описать тип не забыли?)

Код:

1	if sqrt(sqr(a1)+sqr(a2)+sqr(a3)>sqrt(sqr(b1)+sqr(b2)+sqr(b3) then

Закрывающие скобки у sqrt
и тут:

Код:

1	x:=sqrt(sqr(a1)+sqr(a2)+sqr(a3)/sqrt(sqr(b1)+sqr(b2)+sqr(b3);

и вот тут:

Код:

1 2	y:=sqrt(sqr(b1)+sqrt(sqr(b2)+sqrt(sqr(b3) /sqrt(sqr(a1+sqr(a2)+sqrt(sqr(a3);

Код:

1 2 3 4

For j:=1 to K do StringGrid1.Cells[o,j]:=intToStr(j); For i=1 to L do StringGrid1.Cells[i,o]:=intToStr(i);

Переменную о опишите и присвойте

[_kondratenko_]

Спасибо сейчас исправим

[ASSYS]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.N2Click(Sender: TObject);   Var x,y,h,a,b:real;     Cod      :integer;     str1,str2:string;   begin     Memo1.Lines.Add('   X      F(X)');     Val(Edit1.Text, a, cod);     Val(Edit2.Text, b, cod);     Val(Edit3.Text, h, cod);     x:=a;   while x<=b+h/2 do     begin       {Str2:=Edit4.Text;  }       y:=(x/(x+6))+(sqrt(x-4));       Str(x:8:2,str1);       Str(x:8:3,str2);     if CheckBox1.Checked then       Memo1.Lines.Add(Str1+str2);       x:=x+h;     end   end;

Project Project1.EXE raised exception class EInvalidOp with message 'Invalid floating point operation'.

Process stopped. Use Step or Run to continue.

Выделяет эту формулу:
y:=(x/(x+6))+(sqrt(x-4));

[TOJluK]

Сообщение от ASSYS

Выделяет эту формулу:
y:=(x/(x+6))+(sqrt(x-4));

Посмотреть в отладчике, что в переменной X.

[ASSYS]

Сообщение от TOJluK

Посмотреть в отладчике, что в переменной X.

Данные от 1 до 3
А как его запустить? И удаляешь (-4) все работает нормально!
А при данных от 10 до 30 табулюе

[TOJluK]

SQRT не работает с отрицательными значениями

[ASSYS]

Сообщение от TOJluK

SQRT не работает с отрицательными значениями

Как написать эту формулу?

[TOJluK]

Сообщение от ASSYS

Как написать эту формулу?

Беспонятия. )))
Можно, например, проверять значение X:

Код:

1 2 3 4

if x >= 4 then   y := (x/(x+6)) + (sqrt(x-4)) else   // тут что- то сделать, если Х - 4 < 0

[ASSYS]

Нашел решение!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.N2Click(Sender: TObject); Var x,y,h,a,b,z,t:real; Cod :integer; str1,str2:string; begin Memo1.Lines.Add(' X F(X)'); Val(Edit1.Text, a, cod); Val(Edit2.Text, b, cod); Val(Edit3.Text, h, cod); t := StrToFloat(Edit3.Text);//це дописав x:=a; while x<=b+t/2 do begin   y := (x/(x+6)) + (sqrt(x-4));//Формула Str(x:8:2,str1); Str(x:8:3,str2); if CheckBox1.Checked then Memo1.Lines.Add(Str1+str2); x:=x+h; if CheckBox2.Checked then begin   FileName:='C:\test.txt';   Memo1.Lines.SaveToFile(FileName); end; end;