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ı 209 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.
« : 13 Ocak 2012 18:51:34 »
bugün hava çok güzel =güzel çok hava bugün..gibi..
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 #1 : 14 Ocak 2012 23:33:53 »
selamı aleyküm;
kodları bir incelersiniz...

---------
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 oraya kelimeyi sökecek aradan
   else
      Anahtar:=Anahtar+' '; //kelimeler arası boşluk
   end;
   edit2.text:=kelime;
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »