Проект в Delphi7

[pavel08]

Прошу помочь,уже мозг кипит,нигде не нашел. Нужны файлы проекта Delphi 7(.dpr .dfm .pas .cfg .dof .res) :
1: Нахождение корней уравнения по данным коэффициентам. необходимо решать линейные и квадратные ур-я. Если выбрать линейное, то "с" Должен заблокироваться. Плюс нужна проверка вводимых данных на корректность. Добавляю скриншот: 1.JPG
2: Вычисление объема и полной площади поверхности конуса. конус должен быть нарисован на форме с помощью Canvas. Скриншот: 2.JPG
3.RAR - Исходные формы c кнопками. Нужно поработать с текстом программы. Заранее спасибо

[Человек_Борща]

Можно, но где проблемный код?

[pavel08]

файлы в архиве. архив в теме. во вложениях. Называется
3.RAR

отправляю лично вам

[BDA]

Человек_Борща да и все форумчане (я думаю) хотят увидеть код, который работает пусть не до конца правильно, но выполняющий поставленную задачу (или стремящий выполнить).
Расставить кнопочки на форме можно секунд за 30 (можно даже устраивать соревнования по скоростной расстановке компонентов), но это никак не приближает к решению поставленной задачи.
Ваших "усилий" недостаточно, чтобы Вам "помогли" (т.е. написали ВЕСЬ код за Вас).

[pavel08]

BDA, я не прошу писать весь код за меня... но был бы очень благодарен за помощь. думаю, для человека понимающего, коим я не являюсь, не составит труда написать функции для 3х-4х кнопок.

Код 1

procedure TForm1.Button1Click(Sender: TObject); 
var 
a,b,c,d,x1,x2:real; 
begin 
if (edit1.text='')or(edit2.text='')or(edit3.text='') then 
begin 
 ShowMessage ('Где данные?)'); 
end 
else 
begin 
 a:=strtofloat(edit1.text); 
 b:=strtofloat(edit2.text); 
 c:=strtofloat(edit3.text); 
 d:=b*b-4*a*c; 
 if d>0 then 
  begin 
   x1:=(-b+sqrt(d))/(2*a); 
   x2:=(-b-sqrt(d))/(2*a); 
   label1.Caption:='x1 = '+floattostr(x1)+';'; 
   label2.Caption:='x2 = '+floattostr(x2)+';'; 
   label3.Caption:='Проверка №1 : '+floattostr(x1*x1*a+b*x1+c)+' = 0;'; 
   label4.Caption:='Проверка №2 : '+floattostr(x2*x2*a+b*x2+c)+' = 0;'; 
  end 
 else 
  begin 
   label1.Caption:='d<0!'; 
   label2.Caption:=''; 
   label3.Caption:=''; 
   label4.Caption:=''; 
  end; 
end; 


end;

[Sibedir]

Работает же. В чём проблема?

[pavel08]

работает. но решает только линейные ур-я. нужно добавить квадратные

[Sibedir]

Ждём ваших предложений.

[domovou]

Вроде так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox2: TGroupBox;
    MainMenu1: TMainMenu;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button2: TButton;
    Dsjl1: TMenuItem;
    Oprogramme1: TMenuItem;
    Help1: TMenuItem;
    Label11: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Dsjl1Click(Sender: TObject);
    procedure Oprogramme1Click(Sender: TObject);
    procedure Help1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,x1,x2:real;
begin
If RadioButton1.Checked then
begin //resh lineinoe yravn
 a:=strtofloat(edit1.text);
 b:=strtofloat(edit2.text);
 if (a=0) and (b=0) then showMessage('Yravnenie imeet beskon chislo rechen!');
 if (a=0) and (b<>0) then  showMessage('Rechenia net!');
 if a<>0 then  Label11.Caption:=FloatToStr(-(b/a));
end
else
  if  RadioButton2.Checked then
    begin
    if (edit1.text='')or(edit2.text='')or(edit3.text='') then
 ShowMessage ('Где данные?)')
else
begin
 a:=strtofloat(edit1.text);
 b:=strtofloat(edit2.text);
 c:=strtofloat(edit3.text);
 d:=b*b-4*a*c;
 if d>0 then
  begin
   x1:=(-b+sqrt(d))/(2*a);
   x2:=(-b-sqrt(d))/(2*a);
   label9.Caption:=floattostr(x1)+';';
   label10.Caption:=floattostr(x2)+';';
   label3.Caption:='Проверка №1 : '+floattostr(x1*x1*a+b*x1+c)+' = 0;';
   label11.Caption:='Проверка №2 : '+floattostr(x2*x2*a+b*x2+c)+' = 0;';
  end
 else
  begin
   label1.Caption:='d<0!';
   label2.Caption:='';
   label3.Caption:='';
   label4.Caption:='';
  end;
end;
    end
   else  ShowMessage ('Line ili kvadrat!');
end;

procedure TForm1.Dsjl1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Oprogramme1Click(Sender: TObject);
begin
ShowMessage('Delal sam');
end;

procedure TForm1.Help1Click(Sender: TObject);
begin
showmessage(')');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RadioButton2.Checked:=false;
RadioButton1.Checked:=false;
Edit1.Text:='';
Edit3.Text:='';
Edit2.Text:='';
Label9.Caption:='';
Label10.Caption:='';
label1.Caption:='';
label11.Caption:='';

end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Edit3.Enabled:=False;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Edit3.Enabled:=True;
end;

end.

[pavel08]

domovou, Вот, спасибо огромное))))))))))))))))))))))) это мое спасение)))