اقتباس:
المشاركة الأصلية كتبت بواسطة AKKAINMOH
شكرا يا آخ you92cef لاكن اريد كل عملية وحدها
وجعلها الله في ميزان حسناتكم
|
للاسف اخي لقد وضعت ردا يوم الاربعاء ولكن ربما لخلل ما الرد لم يظهر
بخصوص البرنامج الاول الخاص بحساب طول chaine de charectére
فنتستعمل الدالة المعرفة length
le type de chaine de charéctere se declare en pascal sous le nom 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
البرنامج
كود:
program ex;
uses wincrt;
var charectere:char;
begin
writeln('entre un charectere');
readln(charectere);
writeln(succ(charectere));
end.