neoturk - re: "dizideki maximum elemanı bulmak"

arkadaşımız aşağıdaki kodu göndermiş, dizideki maximum veriyi bulmak için,

 

"

function dizi_Max(matris:Array of integer):integer;

var

ddegiskeni:integer;

begin

result:=0;

for ddegiskeni:=1 to 100 do

begin

if matris[ddegiskeni-1]<matris[ddegiskeni] then

result:=ddegiskeni+1;

end;

end;

"

 

herkese merhaba,

bu kod hakkında kısa bir yorum yapmak istiyorum,

 

bu kod çalışır, ama en fazla 100 elemanlı bir matris içindeki en büyük değeri bulur..

dinamik bir matris olarak tanıtılmamış.. yani N elemanlı bir matris olarak

düşünülseydi daha uygun olurdu..

 

herneyse, asıl diyeceğim şu,

 

bu şekilde bir MAX DEĞER bulma yöntemi son derece YAVAŞ çalışır.

çünkü LINEER (doğrusal) bir karşılaştırma yapılıyor.

yani her elemana tek tek bakılıyor. Bu işlem mühendislikte kabul görmez.

 

bunu yapmanın en kolay 2 yöntemi var, N elemanlı bir matristeki MAX değeri bulmak için,

 

1) math kütüphanesinde MAX - MIN fonksiyonları var, bu işi yapan.

bildirilen bir dizideki MAX-MIN değerini otomatik olarak result ettiriyor..

 

2) math kütüphanesini kullanmak istemiyorsanız şayet,

verilen bir N elemanlı matrisi QUICKSORT ile sıralatıp, ilk değeri veya son değeri

alırsanız aradığınız MAX veya MIN değerini elde etmiş olursunuz.

Biliyorsunuz ki QUICKSORT hızlıdır,

1000-2000 elemanı sıralamak milisaniye sürer...

 

lineer arama ve taramalardan kaçınmanızı tavsiye ediyorum arkadaşlar,

işlemlerin hızlı olması için yani....

 

saygılarımla_

 

neoturk [ xxnt03@lycos.co.uk ]

 

Delphi - .....................................

 

neoturk - re: "dizideki maximum elemanı bulmak"

arkadaşımız aşağıdaki kodu göndermiş, dizideki maximum veriyi bulmak için,

 

"

function dizi_Max(matris:Array of integer):integer;

var

ddegiskeni:integer;

begin

result:=0;

for ddegiskeni:=1 to 100 do

begin

if matris[ddegiskeni-1]<matris[ddegiskeni] then

result:=ddegiskeni+1;

end;

end;

"

 

herkese merhaba,

bu kod hakkında kısa bir yorum yapmak istiyorum,

 

bu kod çalışır, ama en fazla 100 elemanlı bir matris içindeki en büyük değeri bulur..

dinamik bir matris olarak tanıtılmamış.. yani N elemanlı bir matris olarak

düşünülseydi daha uygun olurdu..

 

herneyse, asıl diyeceğim şu,

 

bu şekilde bir MAX DEĞER bulma yöntemi son derece YAVAŞ çalışır.

çünkü LINEER (doğrusal) bir karşılaştırma yapılıyor.

yani her elemana tek tek bakılıyor. Bu işlem mühendislikte kabul görmez.

 

bunu yapmanın en kolay 2 yöntemi var, N elemanlı bir matristeki MAX değeri bulmak için,

 

1) math kütüphanesinde MAX - MIN fonksiyonları var, bu işi yapan.

bildirilen bir dizideki MAX-MIN değerini otomatik olarak result ettiriyor..

 

2) math kütüphanesini kullanmak istemiyorsanız şayet,

verilen bir N elemanlı matrisi QUICKSORT ile sıralatıp, ilk değeri veya son değeri

alırsanız aradığınız MAX veya MIN değerini elde etmiş olursunuz.

Biliyorsunuz ki QUICKSORT hızlıdır,

1000-2000 elemanı sıralamak milisaniye sürer...

 

lineer arama ve taramalardan kaçınmanızı tavsiye ediyorum arkadaşlar,

işlemlerin hızlı olması için yani....

 

saygılarımla_

 

neoturk [ xxnt03@lycos.co.uk ]

 

Delphi - .....................................

 

yardım talebi ya bende yada kitapta hata var;

unit ogrenci;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ComCtrls, StdCtrls;

 

type

  Tfrmogrenci = class(TForm)

    btnekle: TButton;

    btnsil: TButton;

    btncik: TButton;

    dtpkayittarihi: TDateTimePicker;

    cbobolumu: TComboBox;

    edadsoyad: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    lvwogrencilistesi: TListView;

    procedure FormCreate(Sender: TObject);

    procedure btnekleClick(Sender: TObject);

    procedure btnsilClick(Sender: TObject);

    procedure btncikClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  frmogrenci: Tfrmogrenci;

 

implementation

 

{$R *.dfm}

 

procedure Tfrmogrenci.FormCreate(Sender: TObject);

begin

cbobolumu.ItemIndex:=0;

lvwogrencilistesi.ViewStyle:=vsreport;

lvwogrencilistesi.Columns.Add;

lvwogrencilistesi.Columns.Items[0].Caption:='Adı Soyadı';

lvwogrencilistesi.Columns.Items[0].width:=100;

lvwogrencilistesi.Columns.Add;

lvwogrencilistesi.Columns.Items[1].Caption:='Bölümü';

lvwogrencilistesi.Columns.Items[1].width:=100;

lvwogrencilistesi.Columns.Add;

lvwogrencilistesi.Columns.Items[2].Caption:='Kayıt Tarihi';

lvwogrencilistesi.Columns.Items[2].width:=100;

end;

 

procedure Tfrmogrenci.btnekleClick(Sender: TObject);

const s:integer=0; <*<*<*<*<*<*<*<<*<*<*< (burda hata veriyor program)

if lvwogrencilistesi.Items.count=0 then s:0;

lvwogrencilistesi.Items.Add;

lvwogrencilistesi.Items.Item[s].Caption:=edadsoyad.Text;

lvwogrencilistesi.Items.Item[s].SubItems.Add(cbobolumu);

lvwogrencilistesi.Items.Item[s].SubItems.Add(DateToStr(dtpkayittarihi.Date));

s:=s+1;

end;

 

procedure Tfrmogrenci.btnsilClick(Sender: TObject);

begin

lvwogrencilistesi.Items.Delete(lvwogrencilistesi.ItemIndex);

end;

 

procedure Tfrmogrenci.btncikClick(Sender: TObject);

begin

close;

end;

 

end.

 

Delphi - .....................................

 

yardım talebi ya bende yada kitapta hata var;

unit ogrenci;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ComCtrls, StdCtrls;

 

type

  Tfrmogrenci = class(TForm)

    btnekle: TButton;

    btnsil: TButton;

    btncik: TButton;

    dtpkayittarihi: TDateTimePicker;

    cbobolumu: TComboBox;

    edadsoyad: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    lvwogrencilistesi: TListView;

    procedure FormCreate(Sender: TObject);

    procedure btnekleClick(Sender: TObject);

    procedure btnsilClick(Sender: TObject);

    procedure btncikClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  frmogrenci: Tfrmogrenci;

 

implementation

 

{$R *.dfm}

 

procedure Tfrmogrenci.FormCreate(Sender: TObject);

begin

cbobolumu.ItemIndex:=0;

lvwogrencilistesi.ViewStyle:=vsreport;

lvwogrencilistesi.Columns.Add;

lvwogrencilistesi.Columns.Items[0].Caption:='Adı Soyadı';

lvwogrencilistesi.Columns.Items[0].width:=100;

lvwogrencilistesi.Columns.Add;

lvwogrencilistesi.Columns.Items[1].Caption:='Bölümü';

lvwogrencilistesi.Columns.Items[1].width:=100;

lvwogrencilistesi.Columns.Add;

lvwogrencilistesi.Columns.Items[2].Caption:='Kayıt Tarihi';

lvwogrencilistesi.Columns.Items[2].width:=100;

end;

 

procedure Tfrmogrenci.btnekleClick(Sender: TObject);

const s:integer=0; <*<*<*<*<*<*<*<<*<*<*< (burda hata veriyor program)

if lvwogrencilistesi.Items.count=0 then s:0;

lvwogrencilistesi.Items.Add;

lvwogrencilistesi.Items.Item[s].Caption:=edadsoyad.Text;

lvwogrencilistesi.Items.Item[s].SubItems.Add(cbobolumu);

lvwogrencilistesi.Items.Item[s].SubItems.Add(DateToStr(dtpkayittarihi.Date));

s:=s+1;

end;

 

procedure Tfrmogrenci.btnsilClick(Sender: TObject);

begin

lvwogrencilistesi.Items.Delete(lvwogrencilistesi.ItemIndex);

end;

 

procedure Tfrmogrenci.btncikClick(Sender: TObject);

begin

close;

end;

 

end.

 

Delphi - .....................................

 

Program calistirir ve PID (Process ID) numarasini dondurur.

// coded by okoca

// web: okoca.cjb.net

 

function RunProcess(AppPath, Params:String): Cardinal;

var

  SI: TStartupInfo;

  PI: TProcessInformation;

begin

  FillChar(SI, SizeOf(SI), 0);

  SI.cb := SizeOf(SI);

  SI.dwFlags     := STARTF_USESHOWWINDOW;

  SI.wShowWindow := SW_SHOWMINNOACTIVE;

  CreateProcess(nil, pchar(AppPath + ' ' + Params), nil, nil, False, 0, nil, nil, SI, PI);

  Result := PI.dwProcessId;

end;

 

Delphi - .....................................

 

Program calistirir ve PID (Process ID) numarasini dondurur.

// coded by okoca

// web: okoca.cjb.net

 

function RunProcess(AppPath, Params:String): Cardinal;

var

  SI: TStartupInfo;

  PI: TProcessInformation;

begin

  FillChar(SI, SizeOf(SI), 0);

  SI.cb := SizeOf(SI);

  SI.dwFlags     := STARTF_USESHOWWINDOW;

  SI.wShowWindow := SW_SHOWMINNOACTIVE;

  CreateProcess(nil, pchar(AppPath + ' ' + Params), nil, nil, False, 0, nil, nil, SI, PI);

  Result := PI.dwProcessId;

end;

 

Delphi - .....................................

 

Dizideki maximum elemaı bulmak

function dizi_Max(matris:Array of integer):integer;

var

ddegiskeni:integer;

begin

result:=0;

for ddegiskeni:=1 to 100 do

begin

if matris[ddegiskeni-1]<matris[ddegiskeni] then

result:=ddegiskeni+1;

end;

end;

 

Delphi - .....................................

 

Dizideki maximum elemaı bulmak

function dizi_Max(matris:Array of integer):integer;

var

ddegiskeni:integer;

begin

result:=0;

for ddegiskeni:=1 to 100 do

begin

if matris[ddegiskeni-1]<matris[ddegiskeni] then

result:=ddegiskeni+1;

end;

end;

 

 

Tarihden Bir Gün Öncesini Alma

//Bir gün gerçekten çok ihtiyacım olmuştu böyle bir koda. burada bulduğum çoğu kodu kullanamadım bile..

//bir arkadaşın verdiği kodu gönderiyorum size.

//umarım sizinde işinize yarar.

datetimepicker1.Date:=date-1;

//-1 yerine kaç gün yazarsanız tarihi o kadar geri çağırmış olursunuz.

 

 

SOD - Metni Biçimlendirme YTL TL % Telefon No gibi

function ReDesign(IncomingString,Design,FillChar:string):string;

var

g,i,z,e:integer;

temp:string;

label 1;

begin

{ Coded By Sinan ISLEKDEMIR }

if Length(FillChar)>1 then

        begin

        MessageDlg('FillChar can not be longer then a character',mtError,[mbok],0);

        goto 1;

        end;

 

if Length(incomingstring)>Length(design) then

        begin

        MessageDlg('Incoming String can not be longer then Design String',mtError,[mbok],0);

        goto 1;

        end;

 

g:=0;

{Find The Number Of $ Characters of Design String }

for i:=0 to length(Design) do

        begin

        if copy(Design,i,1)<>'$' then g:=g+1;

        end;

z:=length(design)-length(IncomingString)-g-1;

{Fill The Incoming String With Our FillChar inorder to Equalize its Length With the Design String}

for i:=0 to z do

        begin

        incomingstring:=fillchar+incomingstring;

        end;

 

temp:='';

e:=1;

{And Finally Here is the main engine}

for i:=1 to length(Design)+1 do

        begin

        if copy(Design,i,1)='$' then

                begin

                temp:=temp+copy(IncomingString,e,1);

                e:=e+1;

                end;

        if copy(Design,i,1)<>'$' then

                begin

                temp:=temp+copy(Design,i,1);

                end;

        end;

IncomingString:=temp;

{Engine Ends Here}

1:

result:=incomingstring;

 

end;

 

// Kullanimi

Forma 7 adet edit nesnesi atalim. edit1.change event'a asagidaki kodu yazalim.

sonra edit1 e bir sayi ya da yazi yazalim

ben 3144213212 gibi bir sayi yaziyorum ve iste sonuclar

%31.44213212 -> Yüzde biçimi

31.442.132.12 YTL -> YTL Biçimi

3.144.213.212 TL -> TL Biçimi

+90(314) 421 32-12 -> Telefon No

3-1-4-4-2-1-3-2-1-2 -> Ufak bir deneme

31/44/2132 12 -> Tarih Biçimi

 

procedure TForm1.Edit1Change(Sender: TObject);

begin

edit2.Text:=ReDesign(edit1.Text,'%$$.$$$$$$$$','0');

edit3.Text:=ReDesign(edit1.Text,'$$.$$$.$$$.$$ YTL','0');

edit4.Text:=ReDesign(edit1.Text,'$.$$$.$$$.$$$ TL','0');

edit5.Text:=ReDesign(edit1.Text,'+90($$$) $$$ $$-$$','0');

edit6.Text:=ReDesign(edit1.Text,'$-$-$-$-$-$-$-$-$-$','0');

edit7.Text:=ReDesign(edit1.Text,'$$/$$/$$$$ $$','0');

end;