ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[AKKAINMOH]

شكرا يا آخ you92cef لاكن اريد كل عملية وحدها
وجعلها الله في ميزان حسناتكم

[you92cef]

المشاركة الأصلية كتبت بواسطة AKKAINMOH

شكرا يا آخ you92cef لاكن اريد كل عملية وحدها
وجعلها الله في ميزان حسناتكم

للاسف اخي لقد وضعت ردا يوم الاربعاء ولكن ربما لخلل ما الرد لم يظهر

بخصوص البرنامج الاول الخاص بحساب طول chaine de charectére
فنتستعمل الدالة المعرفة length
le type de chaine de charéctere se declare en pascal sous le nom string

 var mot:string;

واذا اردنا تحديد عدد حروف الكلمة نستعمل [..]
مثال

 var nom:string[20]
هذا معناه ان عدد الاحرف لا يتجاوز 20 حروف

البرنامج الاول

program ex;
uses wincrt;
var mot:string;
begin
writeln('entre le mot');
readln(mot);
writeln(length(mot));
end.

للحصول على algo نعوض الكلمات الانكليزية بالفرنسية فقط وكلمة length لا نعوضها -*- البعض قد يغيرها ويضع مكانها taille

اذا كانت لدينا كلمة واردنا اخذ حرف من هذه الكلمة
مثلا prenom
اردنا اخذ p
فنكتب

 prenom[1]
معناه توجه الى الكلمة السابقة التي هي من نوع
 string 
وخذ الحروف الاول 
[1]
نفس الشيء اذا اردنا الحرف الثاني او الثالث بينما لو كتبنا
 [0] مثلا 
prenom[0] 
فيكتب لنا طول الكلمة 
اذن يمكن استعمل 
[0] بدل
 length 
في المثال السابق

البرنامج الثاني الخاص succesife
هناك دالة في باسكال تعطينا لاحق الحرف *-* ندخل حرف وهي تعطينا الحرف الذي يليه هذه الدالة اسمها succ
وهي خاصة بالحروف charectére
le type de charéctre en pascal est char

var charecter:char

البرنامج

program ex;
uses wincrt;
var charectere:char;
begin
writeln('entre un charectere');
readln(charectere);
writeln(succ(charectere));
end.