• 0
chaouki39102

لماذا هذ المنتدى في خمول

سؤال

السلام عليكم

 

 

لماذا هذ المنتدى في خمول

لا ردود ولا مواضيع ولانشاط

 

اترككم مع هذا التمرين في باسكال

 

اكتب برنامج بلغة البرمجة باسكال يكتب النص المستقبل بالعكس مثل    abcd --> dcba

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

function TForm1.Convert (TXT : String):String;
Var
  STR : String;
  I   :Integer;
Begin
  Str:='';
  I:=Length(TXT);
  If I>0 Then
     Repeat
        If I>1 Then begin
           Str:=Str+Copy(TXT,I-1,2);
           I:=I-2;
        end
        Else Begin
           Str:=Str+Copy(TXT,I,1);
           I:=I-1;
        end;

     Until I=0;
  Result:=STR;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   edit2.Text:=Convert(Edit1.Text);
end;

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم 

 

 

ضع الوحدة strUtils  ضمن الوحدات المستخدمة في نموذجك .

 

ثم استخدم الدالة الجاهزة .

 ReverseString(const AString : string): string;

طريقة الاستخدام سهلة جدا 

Myrev := ReverseString('Hello');

تحياتي

تم تعديل بواسطه prof_1982
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
لماذا هذ المنتدى في خمول

 

 

سؤال وجيه لكن شخصيا ليس لدية الاجابة 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يا هلا بالأفاضل

يعني لو لم يطرح هذا سؤال ما كنا نراكم ؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الأخ sky

استعمل محرر الأكواد ورمزه <>

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم 

اهلا اخي احمد 

انا في الحقيقة مشغول في امور كثيرا لكن لست غائب كما اننا تعودنا على الاسئله المتكرر لا يوجد الجديد .

انا اتعلم الان في HTML 5 لكن لااضن انها ستفيد شي هنا في منتدى الدلفي .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .