[es] - Pomagajte drugovi

Nesh GSi
Nebojsa Suvak
Na Ogamu

Član broj: 99742
Poruke: 17
*.dialup.neobee.net.

Profil

^{23.10.2007. u 17:53 - pre 200 meseci}

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

Zvezda, Srbija, nikad Federacija !!!

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: Pomagajte drugovi

^{23.10.2007. u 18:12 - pre 200 meseci}

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...

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: Pomagajte drugovi

^{23.10.2007. u 18:34 - pre 200 meseci}

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.

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: Pomagajte drugovi

^{23.10.2007. u 19:00 - pre 200 meseci}

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.

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: Pomagajte drugovi

^{23.10.2007. u 19:08 - pre 200 meseci}

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.

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: Pomagajte drugovi

^{23.10.2007. u 23:22 - pre 200 meseci}

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

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

Nesh GSi
Nebojsa Suvak
Na Ogamu

Član broj: 99742
Poruke: 17
*.dialup.neobee.net.

Profil

Re: Pomagajte drugovi

^{23.10.2007. u 23:53 - pre 200 meseci}

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

Zvezda, Srbija, nikad Federacija !!!

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: Pomagajte drugovi

^{24.10.2007. u 13:40 - pre 200 meseci}

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

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

jovica016
Jovica Ilic

Član broj: 94502
Poruke: 202
*.sc.ni.ac.yu.

Sajt: www.jovicailic.org

+10 Profil

Re: Pomagajte drugovi

^{24.10.2007. u 19:41 - pre 200 meseci}

Kolega, svaka cast za strpljenje i dobru volju! pozzz

http://www.jovicailic.org

Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654

+5 Profil

Re: Pomagajte drugovi

^{24.10.2007. u 19:58 - pre 200 meseci}

OffTopic
Hej pozz Jovice vidmo se na faxu

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu