delphide dizi değişkeniyle büyükten küçüğe sıralama

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
acemiprogramci
Üye
Mesajlar: 3
Kayıt: 06 Eki 2011 04:31

delphide dizi değişkeniyle büyükten küçüğe sıralama

Mesaj gönderen acemiprogramci »

slm arkadaşlar delphi programında
2 strinngrid
2 buton
1edit
bu bileşenlerle şu program yazılacak
ilk olarak edite sayı girilecek butona basınca bu sayı kadar 1.stringgridin sütunları o sayı kadar olacak örnek 5 girdik butona tıkladık 1.stringgrid 5 sütun olacak.
2.olarak ise 2.butona basıldığında 1.stringgridde her sütuna bir sayı gelecek. 2.stringgridde de bu sayılar dizi değişkeni ile büyükten küçüğe sıralanacak.
bu arada stringgridler 1 satırdan oluşuyor.yani rowcount değeri 1 colcount değeri ise 10 olarak ayarladık
kullanılacak değişken dizi değişkeni
lütfen yardım edin arkadaşlar bugn içinde yapılması gerekiyor.
şimdiden teşekkür ederim :)
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Re: acil delpide dizi değişkeniyle büyükten küçüğe sıralama

Mesaj gönderen aslangeri »

s.a.
arkdaşım öncelikle aramıza hoş geldin.
burada balık vermekten ziyade balık tutmayı öğretiyoruz.
o yüzden ödevlerinizi bize sormayın. ödevi yaparken takıldığınız noktalarda yardım isterseniz daha fazla arkadaş yardımcı olmaya çalışacaktır. birde forum eşsiz bir hazine aradığınız zaman sorularınızın çoğunun cevabını bulabilirsiniz.
iyi günler.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
acemiprogramci
Üye
Mesajlar: 3
Kayıt: 06 Eki 2011 04:31

Re: acil delpide dizi değişkeniyle büyükten küçüğe sıralama

Mesaj gönderen acemiprogramci »

aslangeri yazdı:s.a.
arkdaşım öncelikle aramıza hoş geldin.
burada balık vermekten ziyade balık tutmayı öğretiyoruz.
o yüzden ödevlerinizi bize sormayın. ödevi yaparken takıldığınız noktalarda yardım isterseniz daha fazla arkadaş yardımcı olmaya çalışacaktır. birde forum eşsiz bir hazine aradığınız zaman sorularınızın çoğunun cevabını bulabilirsiniz.
iyi günler.
hoşbulduk arkadaşım o zaman şöyle sorsam nasıl olur:
ben ilk kısmı hallettim şimdi sorunum 2.kısımda yani dizi değişkeniyle büyükten küçüğe sıralama bunu saatlerdir uğraşıyorum araştırmalarda yaptm ama bir türlü bulamadm daha önce dizi değişkenini delpide kullanmamştm bu yüzden cok zorlanıyorum öğrenci olduğum için de takıldım kaldm yardımcı olursanız sevinirim.
forumunuz konusuna gelnce program hakkında bilgi veren sayılı formlardan burayı secmemin nedeni de her zamn doğru yolu gösteren kodlar var burada tekrar teşekkür ederm :)
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Re: delphide dizi değişkeniyle büyükten küçüğe sıralama

Mesaj gönderen aslangeri »

yazdığın kodları gönder ne yapmışsın bi bakalım. nerede takılmışsın bi bakalım ona göre yol gösterelim.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
truva3386
Üye
Mesajlar: 2
Kayıt: 21 Oca 2015 03:26

Mesaj gönderen truva3386 »

burda nerde yanlış yaptıgımı bulamadım ben inş müh ögrencisiyim bilg müh deyilim ki
var
Form1: TForm1;
k:integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to k do
memo1.Lines:=inttostr(k-i);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=strtoint(edit1.Text);
if((k<20)and(k div 5<4))or(k mod 5-4>4) then
timer1.Enabled:=true
else
begin
while k<20 do
begin
label1.Font.Size:=20;
label1.Font.Style:=[fsbold];
label1.Font.caption:=inttostr(k*4);
end;
end;
end;

end.
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Re: delphide dizi değişkeniyle büyükten küçüğe sıralama

Mesaj gönderen aslangeri »

s.a.
aldığın hata mesajını da yazaydın iyi olurdu. Derlerken mi hata alıyorsun, yoksa butona tıklayınca mı bilemedim.

Eskiden olsa küreye bakardım ya artık o işleri de bıraktım.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
speed60
Üye
Mesajlar: 53
Kayıt: 07 Eki 2011 08:07

Re: delphide dizi değişkeniyle büyükten küçüğe sıralama

Mesaj gönderen speed60 »

Kod: Tümünü seç


procedure TForm2.Button1Click(Sender: TObject);
begin
k:=strtoint(edit1.Text);
if((k<20)and(k div 5<4))or(k mod 5 -4>4) then
timer1.Enabled:=true
else
begin
while k<20 do
begin
label1.Font.Size:=20;
label1.Font.Style:=[fsbold];
//label1.Font.caption:=inttostr(k*4); /*Font ta caption özelliğini ilk sizde gördüm */
label1.caption:=inttostr(k*4);
end;
end;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to k do
memo1.Lines.Add(inttostr(k-i));   //[i]:=inttostr(k-i);
end;

yapmak istediğiniz böyle birşey olamasın
speed60
Üye
Mesajlar: 53
Kayıt: 07 Eki 2011 08:07

Re: delphide dizi değişkeniyle büyükten küçüğe sıralama

Mesaj gönderen speed60 »

acemiprogramci » 06 Ekm 2011 01:58

slm arkadaşlar delphi programında
2 strinngrid
2 buton
1edit
bu bileşenlerle şu program yazılacak
ilk olarak edite sayı girilecek butona basınca bu sayı kadar 1.stringgridin sütunları o sayı kadar olacak örnek 5 girdik butona tıkladık 1.stringgrid 5 sütun olacak.
2.olarak ise 2.butona basıldığında 1.stringgridde her sütuna bir sayı gelecek. 2.stringgridde de bu sayılar dizi değişkeni ile büyükten küçüğe sıralanacak.
bu arada stringgridler 1 satırdan oluşuyor.yani rowcount değeri 1 colcount değeri ise 10 olarak ayarladık
kullanılacak değişken dizi değişkeni
aşağıdaki kodlar tam senin istediğini yapar

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
begin
  StringGrid1.ColCount:=StrToInt(Edit1.Text); //Edit ten girilen değere göre colcount u ayarla
end;

procedure TForm2.Button2Click(Sender: TObject);
var
  i:Integer;
begin
  k:=StrToInt(Edit1.Text);
  for i:= StrToInt(Edit1.Text) downto 0 do
   begin
    StringGrid1.Cells[I,1]:=IntToStr(k-i);
   end;

end;
Cevapla