Pomagajte drugovi

[ Nesh GSi @ 23.10.2007. 17:53 ] @

E ovako,idem u 4.godinu gimnazije,i radim pascal u delphiju. Koristim Delphi5 ali je moje znanje veoma malo,sutra imam kontrolni,a ono sto nema u knjizi kao primer,ja ne mogu uraditi. Zadaci za vezbanje su mi:

1; Projektovati aplikaciju koja odredjuje rastojanje 2 tacke u ravni zadate koordinatama.

2: projektovati aplikaciju koja svaki simbol 'a' teksta koji se nalazi u edit kontroli zamenjuje sa 'b'.

3: Projektovati aplikaciju u delfiju za aizracunavanje obima i povrsine trougla zadatog duzinama stranica.

4:Projektovati aplikaciju u delfiju koja odredjuje resenje jednacine: a*x+b=0

5:Projektovati app. u delfiju koja resava sistemm od dve jednacine sa 2 nepoznate.

Ja sam laik za ovo,treba mi malo prakse,a profesorica iskreno receno ne obiluje znanjem.
Po mom misljenju sa vasim iskustvom ove zadatke mozete uraditi za 10 minuta. Molim vas pommozite.
Unapred zahvalan

[ Vladica Savić @ 23.10.2007. 18:12 ] @

Evo ti nesto od mojih starih resenja jos iz srednje:

Prvi:

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.

Ajd sad cu da pogledam i druge na brzinu...

[ Vladica Savić @ 23.10.2007. 18:34 ] @

Evo drugi:

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.

[ Vladica Savić @ 23.10.2007. 19:00 ] @

Treci:

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.

[ Vladica Savić @ 23.10.2007. 19:08 ] @

Cetvrti:

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.

[ Vladica Savić @ 23.10.2007. 23:22 ] @

Poslednji zadatak me mrzelo da ti resavam, ali evo ti link gde mozes da nadjes nesto sto bi moglo da ti pomogne. (Tu ti je ideja za resavanje) Pokusaj da napravis za resavanje n sistema sa n nepoznatih

[ Nesh GSi @ 23.10.2007. 23:53 ] @

Hvala,zadaci su dobri,mada nisam bas dobro shvatio poslednji....

[ Vladica Savić @ 24.10.2007. 13:40 ] @

Sta ti nije jasno kod poslednjeg?
Obrazlozi malo ako nije problem da pokusamo da razjasnimo.

[ jovica016 @ 24.10.2007. 19:41 ] @

Kolega, svaka cast za strpljenje i dobru volju! pozzz

[ Vladica Savić @ 24.10.2007. 19:58 ] @

OffTopic
Hej pozz Jovice vidmo se na faxu