bir dizeyi ters çevirme


   var
  Word: String;  // Kelimeyi saklamak için bir değişken
  Counter, TempChar: Integer;

  // Kelimeyi tanımlıyoruz
  ShowMessage( 'Merhaba');

  // Kelimeyi ters çevirmek için, ilk ve son harfi yer değiştirelim
  for Counter := 1 to Length(Word) div 2 do
    TempChar := Ord(Word[Counter]);
    Word[Counter] := Word[Length(Word) - Counter + 1];
    Word[Length(Word) - Counter + 1] := Chr(TempChar);

  // Sonucu ekranda göster
  ShowMessage('Ters çevrilmiş kelime: ' + Word);

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
kayra12 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 23 Aralık 2024 Durum: Aktif Puanlar: 8	Mesaj Seçenekleri Yanıt Yaz Alıntı kayra12 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: bir dizeyi ters çevirme Gönderim Zamanı: 02 Şubat 2025 Saat 18:33
	var Word: String; // Kelimeyi saklamak için bir değişken Counter, TempChar: Integer; // Kelimeyi tanımlıyoruz ShowMessage( 'Merhaba'); // Kelimeyi ters çevirmek için, ilk ve son harfi yer değiştirelim for Counter := 1 to Length(Word) div 2 do TempChar := Ord(Word[Counter]); Word[Counter] := Word[Length(Word) - Counter + 1]; Word[Length(Word) - Counter + 1] := Chr(TempChar); // Sonucu ekranda göster ShowMessage('Ters çevrilmiş kelime: ' + Word);

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 360	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 1 saat 30 Dakika Önce Saat 10:15
	Merhaba Kayra Kodunu düzeltilmiş hali: var Word: String; // Kelimeyi saklamak için bir değişken Counter, TempChar: Integer; { // Kelimeyi tanımlıyoruz ShowMessage( 'Merhaba'); Word = 'Merhaba' ; // Kelimeyi ters çevirmek için, ilk ve son harfi yer değiştirelim for (Counter = 1 to Length(Word) div 2) { TempChar = Ord(Word[Counter]); Word[Counter] = Word[Length(Word) - Counter + 1]; Word[Length(Word) - Counter + 1] = Chr(TempChar); } // Sonucu ekranda göster ShowMessage('Ters çevrilmiş kelime: ' + Word); }