Pomagajte drugovi

Code:
//Program rastojanje tacaka u ravni
program RastojanjeTacaka;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x1,x2,y1,y2,rastojanje:real;
begin
  writeln('Unesi X,Y koodrinate prve tacke');
  readln(x1,y1);
  writeln('Unesi X,Y koordinate druge tacke');
  readln(x2,y2);
  rastojanje:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  writeln('Rastojanje izmedju unetih tacaka je: ',rastojanje:1:2);
  readln;
end.

Code:

unit ZamenaKaraktera;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ProveriBTN: TButton;
    procedure ProveriBTNClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ProveriBTNClick(Sender: TObject);
var rezultat:string;
begin
Edit1.Text:=StringReplace(Edit1.Text, 'a', 'b', [rfReplaceAll, rfIgnoreCase]);
end;

end.

Code:

unit Trougao;

interface

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

type
  TObim_I_Povrsina = class(TForm)
    PrvaStranica: TEdit;
    DrugaStranica: TEdit;
    TrecaStranica: TEdit;
    RacunajBTN: TButton;
    Povrsina: TEdit;
    Obim: TEdit;
    procedure RacunajBTNClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Obim_I_Povrsina: TObim_I_Povrsina;

implementation

{$R *.dfm}

procedure TObim_I_Povrsina.RacunajBTNClick(Sender: TObject);
var s:real;
begin
Obim.Text:=FloatToStr(StrToFloat(PrvaStranica.Text)+StrToFloat(DrugaStranica.Text)+StrToFloat(TrecaStranica.Text));
s:=(StrToFloat(PrvaStranica.Text)+StrToFloat(DrugaStranica.Text)+StrToFloat(TrecaStranica.Text))/2;
Povrsina.Text:=FloatToStr(sqrt(s*(s-StrToFloat(PrvaStranica.Text))*(s-StrToFloat(DrugaStranica.Text))*(s-StrToFloat(TrecaStranica.Text))));
end;

end.

Code:

unit Jednacinaa;

interface

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

type
  TJednacina = class(TForm)
    BrojAEdit: TEdit;
    BrojBEdit: TEdit;
    ResenjeEdit: TEdit;
    RacunajBTN: TButton;
    procedure RacunajBTNClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Jednacina: TJednacina;

implementation

{$R *.dfm}

procedure TJednacina.RacunajBTNClick(Sender: TObject);
begin
ResenjeEdit.Text:=FloatToStr((0-StrToFloat(BrojBEdit.Text))/StrToFloat(BrojAEdit.Text));
end;

end.