Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.  (Okunma sayısı 407 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı gamze123

  • Delphi 1 Level 1
  • *
  • İleti: 8
  • Rep: +0/-0
Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« : 14 Ocak 2012 14:36:25 »
bugün hava çok güzel== güzel çok hava bugun..gibi
Kayıtlı

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #1 : 14 Ocak 2012 14:45:01 »
öğrenci formu var orda paylaşman gerek bunları admin oraya taşıyınca bi cevap veren bulunur
Kayıtlı

Çevrimdışı gamze123

  • Delphi 1 Level 1
  • *
  • İleti: 8
  • Rep: +0/-0
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #2 : 14 Ocak 2012 15:01:43 »
tşekürler
Kayıtlı

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #3 : 14 Ocak 2012 18:34:31 »
Kod: [Seç]
var
kelime:string;
i:integer;
begin
kelime:=edit1.text;
for i:=length(kelime) down to 1 do
begin
edit2.text:=kelime[i];
end;

Kayıtlı

Çevrimdışı gamze123

  • Delphi 1 Level 1
  • *
  • İleti: 8
  • Rep: +0/-0
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #4 : 14 Ocak 2012 20:25:54 »
çok teşekkür ederim ama for i:=length(kelime) down to 1 do burda hata veriyo ne yapmam lazım.
Kayıtlı

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #5 : 14 Ocak 2012 20:41:52 »
araya bosluk koymusum downto olcak
Kayıtlı

Çevrimdışı gamze123

  • Delphi 1 Level 1
  • *
  • İleti: 8
  • Rep: +0/-0
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #6 : 14 Ocak 2012 20:46:28 »
bu program sadece yazdıgın kelimmin ilk halini alıyo benim istedigim kelimenin cümlelerini tersten yazdırcak mesela : bugun hava yazınca hava bugun yazacak...
Kayıtlı

Çevrimdışı death_claws

  • Delphi 1 Level 3
  • ***
  • İleti: 22
  • Rep: +0/-0
  • Cinsiyet: Bay
  • Benim Sadık Yarim "Faber Castel 07" Uçlu Kalemimdi
  • Delphi Sürümü: Delphi 7, Delphi 2010, Delphi XE, Delphi XE2
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #7 : 14 Ocak 2012 23:30:24 »
Selamı Aleyküm;
hocanın kodlarında birazcık değişiklik yaptım umarım işinize yarar

var
kelime,Anahtar:string;
i:integer;
begin
kelime:=edit1.text;
for i:=length(kelime) down to 1 do
begin
if kelime<>' ' then
Anahtar:=kelime+Anahtar // eğer boşluk yoksa kelimeyi sökecek aradan
   else
      Anahtar:=Anahtar+' '; //kelimeler arası boşluk
   end;
   edit2.text:=kelime;
Kayıtlı

Çevrimdışı gamze123

  • Delphi 1 Level 1
  • *
  • İleti: 8
  • Rep: +0/-0
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #8 : 14 Ocak 2012 23:41:05 »
teşekkür ederim ama bu kodda kelimeyi yazdıgım gibi çıkıyo benim verdigim örnek gibi olmalı..
Kayıtlı

Çevrimdışı death_claws

  • Delphi 1 Level 3
  • ***
  • İleti: 22
  • Rep: +0/-0
  • Cinsiyet: Bay
  • Benim Sadık Yarim "Faber Castel 07" Uçlu Kalemimdi
  • Delphi Sürümü: Delphi 7, Delphi 2010, Delphi XE, Delphi XE2
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #9 : 15 Ocak 2012 01:19:49 »
elle yazmıştım kontrol etmedimm. bunu denerseniz sevinirim

var
  kelime,Anahtar,Tersi:string;
  i:integer;
begin
  kelime:=edit1.text;
  for i:=1 to length(kelime) do
  begin
    if kelime<>' ' then
      Anahtar:=Anahtar+kelime; // eğer boşluk yoksa kelimeyi sökecek aradan
    if (Length(kelime)=i) or (kelime=' ') then
    begin
      Tersi:=' '+Anahtar+' '+Tersi;
      Anahtar:='';
    end;
  end;
  edit2.text:=Trim(Tersi);
Kayıtlı

Çevrimdışı gamze123

  • Delphi 1 Level 1
  • *
  • İleti: 8
  • Rep: +0/-0
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #10 : 15 Ocak 2012 01:34:38 »
malesef buda olmuyo aynı kelimeyi yan yana yazıyo
Kayıtlı

Çevrimdışı death_claws

  • Delphi 1 Level 3
  • ***
  • İleti: 22
  • Rep: +0/-0
  • Cinsiyet: Bay
  • Benim Sadık Yarim "Faber Castel 07" Uçlu Kalemimdi
  • Delphi Sürümü: Delphi 7, Delphi 2010, Delphi XE, Delphi XE2
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #11 : 15 Ocak 2012 12:17:22 »
son yazdığımı denemiştim doğru yazıyordu bir kontrol ederimm...
Kayıtlı

Çevrimdışı death_claws

  • Delphi 1 Level 3
  • ***
  • İleti: 22
  • Rep: +0/-0
  • Cinsiyet: Bay
  • Benim Sadık Yarim "Faber Castel 07" Uçlu Kalemimdi
  • Delphi Sürümü: Delphi 7, Delphi 2010, Delphi XE, Delphi XE2
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #12 : 15 Ocak 2012 12:28:27 »
bunu birebir denedim oldu :)

var
  kelime,Anahtar,Tersi:string;
  i:integer;
begin
  kelime:=edit1.text;
  for i:=1 to length(kelime) do
  begin
    if kelime<>' ' then
      Anahtar:=Anahtar+kelime; // eğer boşluk yoksa kelimeyi sökecek aradan
    if (Length(kelime)=i) or (kelime=' ') then
    begin
      Tersi:=' '+Anahtar+' '+Tersi;
      Anahtar:='';
    end;
  end;
  edit2.Text:=Trim(Tersi);
end;
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: Girilen bir cümlenin kelimelerini ters sırada yazdırınız.
« Yanıtla #13 : 16 Ocak 2012 10:03:16 »
Kod:  (Unknown Language)
  1. var
  2.     S : String;
  3.     I : Integer;
  4.    SL : TStringList;
  5. begin
  6.    S := Edit1.Text;
  7.   SL := TStringList.Create;
  8.   S  := StringReplace(S, ' ',#13#10, [rfReplaceAll]); // boşlukları enter olarak değiştir :)
  9.   SL.Text := S; // sl adındaki string listin text özelliğine alt alta olan kelimeleri at
  10.  
  11.   for I := SL.Count -1 Downto 0 do  // döngüyü sondan başa doğru döndür..
  12.   begin
  13.     Edit2.Text := Edit2.Text +' '+ SL.Strings[I]; // edit2 ye sırası geleni yazdır :D
  14.   end;
  15. end;
  16.  
Kayıtlı



Amatör Küme Programcı
Sayfa: [1]   Yukarı git
« önceki sonraki »