Помогите, кто шарит в делфи

[Livsi]

Вот задали практическую по делфи...
Відомі сторін двох прямокутників. Обчислити площі прямокутників і порівняти їх. Визначити, чи є прямокутники квадратами. З'ясувати, чи вміститься один прямокутник у середину другого.
Первое задание я сделал, а вот два других не получается.....
2)складіть обробник події ОнКлик прешої кнопки, виконання якого залежино від установлених прапорців приведе до визначення того, чи є відповідник прямокутник квадратом.
3)складіть обробник події ОнКлик третьої кнопки, виконання якого приведе до визначення, чи вміститься усередину першого залежно від вибраного перемикача.
вот код даю проги

спойлер

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
btn1: TButton;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
rb1: TRadioButton;
rb2: TRadioButton;
btn2: TButton;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var x,y,z,c,t,u:Real;
begin
x:=StrToFloat(Edt1.Text);
y:=StrToFloat(edt2.Text);
c:=StrToFloat(edt3.Text);
z:=StrToFloat(edt4.text);
t:=x*y;
u:=z*c;
Lbl1.Caption:=FloatToStr(t);
Lbl2.Caption:=FloatToStr(u);
if t>u
then lbl3.Caption:='Перший прямокутник має більшу площу'
else lbl4.Caption:='Другий прямокутник має більшу площу'
end;


procedure TForm1.btn2Click(Sender: TObject);
var x,y,c,z:Real;
begin
x:=StrToFloat(Edt1.Text);
y:=StrToFloat(edt2.Text);
c:=StrToFloat(edt3.Text);
z:=StrToFloat(edt4.text);
if rb1.Checked
then if x=y
then lbl5.Caption:='Перший прямокутник - квадрат'
else if x>y
then lbl5.Caption:='Перший прямокутник - не квадрат'
else if x<y
then lbl5.Caption:='Перший прямокутник - не квадрат'
else if rb2.Checked
then if c=z
then lbl7.Caption:='Другий прямокутник - квадрат'
else lbl7.Caption:='Другий прямокутник - не квадрат'
end;

end.

собственно при нажатии второй кнопки, по второму заданию, то если поставить точку на проверке первого прямоугольника, то сообщение віводится а если на проверке второго, то нифига............

[Barmaley]

Радиобаттоны заключи в контейнер RadioGroup или GroupBox и задай один из них отмеченным по дефолту, а то они у тебя как чекбоксы работают.
Сравнивать стороны на больше/меньше после сравнения на равенство нет никакой необходимости
и объектам нужно давать осмысленные имена, а не х, у, лейбл1, лейбл2 и т.п.

Код: Виділити все

if rb1.Checked then 
 begin // для красоты
   if x=y then 
      lbl5.Caption:='Перший прямокутник - квадрат';
   else Caption:='Перший прямокутник - не квадрат';
 end; //для красоты
else 
 begin //для красоты
   if c=z then 
     lbl7.Caption:='Другий прямокутник - квадрат';
   else lbl7.Caption:='Другий прямокутник - не квадрат';
 end; // для красоты

[John_O]

Может стоит на профильном форуме задать вопрос http://www.cyberforum.ru/