Помогите разобраться с кодом (Lazarus)

[Ляйсан9517]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,p,q,r,s:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
p:=StrToFloat(Edit3.Text);
q:=StrToFloat(Edit4.Text);
r:=StrToFloat(Edit5.Text);
s:=StrToFloat(Edit6.Text);
        if a >= b   Then
            p>=q and r >= s
                if(p <= a and r <= a and (q + s) <= b)
                    Edit7.Text:='Можно построить 2 дома';
                else
                    Edit7.Text:='Нельзя построить 2 дома';

            else if(p < q and r >= s)
                if(q <= a and r <= a and (p + s) <= b)
                    Edit7.Text:='Можно построить 2 дома';
                else
                    Edit7.Text:='Нельзя построить 2 дома';

            else if(p < q and r < s)
                if(q <= a and s <= a and (p + r) <= b)
                    Edit7.Text:='Можно построить 2 дома';
                else
                    Edit7.Text:='Нельзя построить 2 дома';

            else if(p >= q and r < s)
                if(p <= a and s <= a and (q + r) <= b)
                    Edit7.Text:='Можно построить 2 дома';
                else
                    Edit7.Text:='Нельзя построить 2 дома';

        else if (a < b)
            if(p >= q and r >= s)
                if(p <= b and r <= b and (q + s) <= a)
                    Edit7.Text:='Можно построить 2 дома';
                else
                    Edit7.Text:='Нельзя построить 2 дома';

            else if(p < q and r >= s)
                if(q <= b and r <= b and (p + s) <= a)
                    Edit7.Text:='Можно построить 2 дома';
                else
                    Edit7.Text:='Нельзя построить 2 дома';

            else if(p < q and r < s)
                if(q <= b and s <= b and (p + e\r) <= a)
                    Edit7.Text:='Можно построить 2 дома';
                else
                    Edit7.Text:='Нельзя построить 2 дома';

            else if(p >= q and r < s)
                if(p <= b and s <= b and (q + r) <= a)
                    Edit7.Text:='Можно построить 2 дома';
                else
                    Edit7.Text:='Нельзя построить 2 дома';

end;

При запуске выдает ошибки(
такие:
unit1.pas(59,18) Error: Operation "and" not supported for types "Real" and "Real"
unit1.pas(60,17) Error: Illegal expression
unit1.pas(60,17) Fatal: Syntax error, ";" expected but "IF" found
уже с 6 часов сижу голова не варит, а надо решить
заранее спасибо

[Аватар]

else if(p < q and r >= s)

В делфи нужно так писать

else if (p < q) and (r >= s)

Не думаю, что в Lazarus по другому. В других местах аналогично

[yaschenko]

ну и намудрили вы тут:

var
a,b,p,q,r,s:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
p:=StrToFloat(Edit3.Text);
q:=StrToFloat(Edit4.Text);
r:=StrToFloat(Edit5.Text);
s:=StrToFloat(Edit6.Text);
        if a >= b   Then
           // p>=q and r >= s  <--- что это такое у вас я непонял
                if((p <= a) and (r <= a) and ((q + s) <= b)) then  //небыло then
                    Edit7.Text:='Можно построить 2 дома'  //перед else не ставится ";"
                else
                    Edit7.Text:='Нельзя построить 2 дома' //перед else не ставится ";"

            else if((p < q) and (r >= s))  then    //небыло then
                if((q <= a) and (r <= a) and ((p + s) <= b))   then   //небыло then
                    Edit7.Text:='Можно построить 2 дома'     //перед else не ставится ";"
                else
                    Edit7.Text:='Нельзя построить 2 дома' //перед else не ставится ";"

            else if((p < q) and (r < s)) then      //небыло then
                if((q <= a) and (s <= a) and ((p + r) <= b)) then //небыло then
                    Edit7.Text:='Можно построить 2 дома'   //перед else не ставится ";"
                else
                    Edit7.Text:='Нельзя построить 2 дома'  //перед else не ставится ";"

            else if((p >= q) and (r < s))   then    //небыло then
                if((p <= a) and (s <= a) and ((q + r) <= b))   then //небыло then
                    Edit7.Text:='Можно построить 2 дома'   //перед else не ставится ";"
                else
                    Edit7.Text:='Нельзя построить 2 дома' //перед else не ставится ";"

        else if (a < b)  then    //небыло then
            if((p >= q) and (r >= s))  then //небыло then
                if((p <= b) and (r <= b) and ((q + s) <= a)) then //небыло then
                    Edit7.Text:='Можно построить 2 дома'  //перед else не ставится ";"
                else
                    Edit7.Text:='Нельзя построить 2 дома' //перед else не ставится ";"

            else if((p < q) and (r >= s))  then    //небыло then
                if((q <= b) and (r <= b) and ((p + s) <= a)) then  //небыло then
                    Edit7.Text:='Можно построить 2 дома'   //перед else не ставится ";"
                else
                    Edit7.Text:='Нельзя построить 2 дома'  //перед else не ставится ";"

            else if((p < q) and (r < s))  then   //небыло then
                if((q <= b) and (s <= b) and ((p + e/r) <= a)) then  //небыло then
                    Edit7.Text:='Можно построить 2 дома'  //перед else не ставится ";"
                else
                    Edit7.Text:='Нельзя построить 2 дома' //перед else не ставится ";"

            else if((p >= q) and (r < s)) then         //небыло then
                if((p <= b) and (s <= b) and ((q + r) <= a)) then  //небыло then
                    Edit7.Text:='Можно построить 2 дома'
                else
                    Edit7.Text:='Нельзя построить 2 дома';
end;

везде одна и та же ошибка!

[Ляйсан9517]

Все равно ошибок, еще больше

[yaschenko]

Вставил код который написал выше в своем сообщении в Delphi XE выдает только одну ошибку:

if((q <= b) and (s <= b) and ((p + e/r) <= a))  <--ошибка переменная "е" не описана

[Stilet]

Все равно ошибок, еще больше

Задача как звучит. То что тут представлено проще выкинуть чем пересмотреть.