Как исправить ошибки в коде?

Question

[Виноградов]

Помогите исправить ошибки, пожалуйста!!
Есть код, и у него следующие ошибки:

Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 5, подсказок: 3
unit1.pas(139,6) Hint: use DIV instead to get an integer result
unit1.pas(139,29) Error: Incompatible types: got "Double" expected "LongInt"
unit1.pas(140,6) Hint: use DIV instead to get an integer result
unit1.pas(140,24) Error: Incompatible types: got "Double" expected "LongInt"
unit1.pas(141,8) Error: Incompatible types: got "Boolean" expected "Int64"
unit1.pas(144,30) Error: Incompatible type for arg no. 1: Got "Int64", expected "AnsiString"
stringl.inc(1046,19) Hint: Found declaration: Add(const AnsiString):LongInt;
unit1.pas(148,1) Fatal: Syntax error, ";" expected but "ELSE" found

Код:

procedure TForm1.Button1Click(Sender: TObject);

const e=0.0001;
var x1,y1,x2,y2,x3,y3,x4,y4,x,y:Longint;

  min,max:LongInt;
  A1,B1,C1,A2,B2,C2:LongInt;

  str1,str2:string;
begin
clrscr;
Memo1.clear();

x1 := StrToInt(Edit1.Text);
y1 := StrToInt(Edit2.Text);
x2 := StrToInt(Edit3.Text);
y2 := StrToInt(Edit4.Text);

x3 := StrToInt(Edit5.Text);
y3 := StrToInt(Edit6.Text);
x4 := StrToInt(Edit7.Text);
y4 := StrToInt(Edit8.Text);




A1:= y1 - y2;
B1:= x2 - x1;
C1:= x1*y2 - x2*y1;
A2:= y3 - y4;
B2:= x4 - x3;
C2:= x3*y4 - x4*y3;

if x1>x2 then begin
min:=x2;
max:=x1;
end;




if ((B1*A2)-(B2*A2) and A1) then begin
    y:= ((C2*A1) - (C1*A2)) / ((B1*A2) - (B2*A1));
    x:= (-C1 - (B1*y)) / A1;
    if (min <= x) <= max then begin
        str1:=FloatToStr(x);
        str2:=FloatToStr(y);
        Memo1.lines.add(x + y);

    end
    else Memo1.lines.add('Точек пересечения нет');
else if ((B1*A2) - (B2*A1) and A2) then begin

    y:= (C2*A1 - C1*A2) / (B1*A2 - B2*A1)
    x:= (-C2 - B2*y) / A2
    if min<=x<=max then begin
        str1:=FloatToStr(x);
        str2:=FloatrToStr(y);
        Memo1.lines.add(x+y);

    end
    else Memo1.lines.add('Точек пересечения нет, параллельно');


end;





end.

Answer 1

[Hemul GM]

У тебя переменные целочисленные. Если делишь, тебе нужны числа с плавающей точкой: double/extended

Comments

[Виноградов]

на строчке
if ((B1*A2)-(B2*A2) and A1) then begin

выдает это
unit1.pas(138,21) Error: Operator is not overloaded: "Double" and "Double"

на строчке
if (min <= x) <= max then begin
выдает это unit1.pas(141,8) Error: Incompatible types: got "Boolean" expected "Double"

а здесь

str1:=FloatToStr(x);
 str2:=FloatToStr(y);
 Memo1.lines.add(x + y);

такая ошибка unit1.pas(144,30) Error: Incompatible type for arg no. 1: Got "Double", expected "AnsiString"

[Hemul GM]

Виноградов, потому что ты бред пишешь. Что значит в первой строке and? Зачем? Что ты им хотел сделать?

[Hemul GM]

Виноградов, во второй строке нельзя так сравнивать, потому что ты в итоге сравнивание логику и число.

[Hemul GM]

Виноградов, в третьей строке у тебя вывод в поле текста, а ты вставляешь туда сумму чисел

[Виноградов]

Hemul GM, окей код новый. когда запускаю lazarus ввожу туда координаты и получаю неверную точку пересечения. вопрос где ошибка??

procedure TForm1.Button1Click(Sender: TObject);

const e = 0.0001;

var

 AX1, AY1, AX2, AY2, BX1, BY1, BX2, BY2: integer;

 x, y: real;
 str1,str2:string;
begin
clrscr;
Memo1.clear();

AX1 := StrToInt(Edit1.Text);
AY1 := StrToInt(Edit2.Text);
AX2 := StrToInt(Edit3.Text);
AY2 := StrToInt(Edit4.Text);

BX1 := StrToInt(Edit5.Text);
BY1 := StrToInt(Edit6.Text);
BX2 := StrToInt(Edit7.Text);
BY2 := StrToInt(Edit8.Text);


 if (abs(AX2 - AX1) < e) and (abs(BX2 - BX1) < e) or (abs((BX2 - BX1) * (AY2 - AY1) - (BY2 - BY1) * (AX2 - AX1)) < e) then

   Memo1.lines.add('Параллельны')

 else

 begin

   if (abs(AX1 - AX2) < e) and (abs(BY2 - BY1) < e) then

    begin

     x := AX1;

     y := BY1;

    end

   else if (abs(AY1 - AY2) < e) and (abs(BX1 - BX2) < e) then

    begin

     x := BX1;

     y := AY1;

    end

   else

    begin

     x := -((BX2 - BX1) * (AX1*AY2 - AX2*AY1) - (AX2 - AX1) * (BX1*BX2 - BX2*BY1)) / ((AY1 - AY2) * (BX2 - BX1) - (AX2 - AX1) * (BY1 - BY2));

     y := ((-x) * (BY1 - BY2) - (BX1*BY2 - BX2 * BY1)) / (BX2 - BX1);

     str1:=floattostr(x);
     str2:=floattostr(y);

    end;

   if ((x >= AX1) and (x <= AX2)) or ((x <= x) and (x >= AX2)) then

     Memo1.lines.add(str1+str2)

   else memo1.lines.add('не пересек');

  end;


end;

[Hemul GM]

Виноградов, какой не верный? Что вводишь, что получаешь? Мне гадать?