برنامج لقراءة الكلمة في الإتجاهين / ¤ للعودة لعصابة الباسكال ¤ /

--------------------------------------------------------------------------------

بسم الله الرحمن الرحيم

و الصلاة و السلام على أشرف المرسلين

أما بعد

برنامج اليوم بالباسكال هدفه قراءة الجملة من الإتجاهين ’ ان كانت متساوية يظهر رسالة تأكد ان الجملة تقرأ على الجهتين

مثال : ليبيا

ليبيا تقرا في الإتجاهين ولها نفس العدد من الحروف

و ان لم تكن متساوية تظهر رسالة تأكد ذلك

استعمالات البرنامج :اكثر استعملاته من اجل كلمة المرور "الكلمة السرية"

و بالبرنامج تكون الحروف بالفرنسية

و في المواضيع القادمة سوف

اضع الكود الذي يمكننا من الكتابة باللغة العربية في الباسكال

بدون اطالة مع الكود

program ch002;

uses crt;

var

mot,mot1:string[50]; i,j:integer; begin

;clrscr

writeln ('Entree Les Valeures De Mot');

readln(mot);

mot1;='';

j:=length(mot);

for i:=j downto 1do

mot1:=mot1+mot[i];

if mot =mot1 then

writeln('palindrome');

if mot<>mot1 then

writeln('not palindrome');

redln;

end.

كما يمكنا كتابة الشرط بطريقة أخرى

if mot =mot1 then

writeln('palindrome')

else

writeln('not palindrome');

وهكذا أكون قد أتممت شرحي المتواضع

» برنامج اريس , برنامج ares , تحميل اريز 2009 + نبذة بسيطة عن البرامج
» اروع ما قيل قيمة الكلمة
» أستيل للنسخة 3.7 أحترافي بمعني الكلمة!!
» ماذا تفعل اذا نسيت إسم الدخول أو الكلمة السرية
» شرح برنامج خارق