فارسه الرومانسيه
Admin
عدد المساهمات : 168
نقاط : 6931
نقاط التميز : 1
تاريخ التسجيل : 02/06/2009
العمر : 36
 | موضوع: برنامج لقراءة الكلمة في الإتجاهين / ¤ للعودة لعصابة الباسكال ¤ /  الثلاثاء يونيو 09, 2009 11:59 am | |
| بسم الله الرحمن الرحيم
و الصلاة و السلام على أشرف المرسلين
أما بعد
برنامج اليوم بالباسكال هدفه قراءة الجملة من الإتجاهين ’ ان كانت متساوية يظهر رسالة تأكد ان الجملة تقرأ على الجهتين
مثال : ليبيا
ليبيا تقرا في الإتجاهين ولها نفس العدد من الحروف
و ان لم تكن متساوية تظهر رسالة تأكد ذلك
استعمالات البرنامج :اكثر استعملاته من اجل كلمة المرور "الكلمة السرية"
و بالبرنامج تكون الحروف بالفرنسية
و في المواضيع القادمة سوف
اضع الكود الذي يمكننا من الكتابة باللغة العربية في الباسكال
بدون اطالة مع الكود
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');
وهكذا أكون قد أتممت شرحي المتواضع
و دمتم | |
|
