Lazarus шаг за шагом

[baklan]

Я не знаю насколько это актуально для постоянных посетителей форума, но для желающих начать осваивать это как стартер. Не нашел в инете подобной документации ни на английском и уж тем более на русском, поэтому решил попробовать начать сам. Однако сам я ноль, но очень хочется разобраться. Если создатели проекта FreePascal.ru заинтересованы в поддержке новичков, то я готов помогать, одновременно обучаясь . Для этого я сделал вот что
<a href='http://www.backline.ru/lazarus/' target='_blank'>http://www.backline.ru/lazarus/</a>
Но дальше все мои попытки заканчиваются неуспехом . Жду ваших предложений, уважаемые форумяне.

[baklan]

Попробую уточнить , где я не понимаю что делать. Вот код формы:

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
 Buttons;

type

 { TForm1 }

 TForm1 = class(TForm)
   Button1: TButton;
   Edit1: TEdit;
   Edit2: TEdit;
   Edit3: TEdit;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   procedure Button1Click(Sender: TObject);
 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

initialization
 {$I unit1.lrs}

end.  

Сейчас надо определить переменные
var a,b,c,D,x1,x2 : real;
но куда вставить эту строку? вот здесь
var
Form1: TForm1;
или перед begin в самой процедуре?
Далее :
a := {не знаю}
b := {не знаю}
c := {не знаю}
D=b*b+4*a*c;
if D<0 then
begin
{ Вывести куда? что нет корней}
return;
end;
x1=(-b+sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
{Показать корни как?}
Вот здесь стою

[Nikolay]

Лабелы поставь и
MyLabel.Caption:=FloatToStr(x1);

[baklan]

Эх... , наверное я не полный ноль, а полный минус..., не врублюсь

[Sniper]

Что-то типа этого:

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons;

type

{ TForm1 }

TForm1 = class(TForm)
  Button1: TButton;
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  procedure Button1Click(Sender: TObject);
private
  { private declarations }
public
  { public declarations }
end;

var
Form1: TForm1;
a,b,c,D,x1,x2 : real;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
D=b*b+4*a*c;
if D<0 then
label1.Caption := 'Нет корней!'
else
begin
x1=(-b+sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
end;

Label3.Caption := FloatToStr(x1);
Label4.Caption := FloatToStr(x2);
end;

initialization
{$I unit1.lrs}

end.  


[Sniper]

Качни-ка ты приятель вот это: <a href='http://www.drkb.ru/drkb23.chm' target='_blank'>http://www.drkb.ru/drkb23.chm</a> (10Mb)
и перестанешь задавать подобного рода вопросы =)

[baklan]

Вот за эту ссылку спасибо! Теперь есть что читать , буду разбираться. насколько я понял, программирование на дельфи - это и есть паскаль7

[Sniper]

да только с поправкой на *CL (VCL, LCL)

[AShen]

To baklan: не в обиду - прочти для начала книгу Никлауса Вирта (создателя языков Паскаль, Модула-2, Оберон) "Алгоритмы + Структуры Данных = Программа". Уверен, она долго будет у тебя настольной книгой. Воспользуйся ссылкой <a href='http://www.opensource.su/product_info.php?cPath=51&products_id=81' target='_blank'>http://www.opensource.su/product_info.php?...&products_id=81</a> . В эллектронном виде много чего полезного.

[Иван Шихалев]

для начала книгу Никлауса Вирта

Для начала слишком абстрактно, ИМХО. Я ее сейчас читаю, так что вижу... Лучше Фаронова что-нибудь найти.