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 Değil 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ı: 6 Saat 7 Dakika Önce 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);