انشاء ملف نصي وكتابة سطرين فيه

اذهب الى الأسفل

انشاء ملف نصي وكتابة سطرين فيه

مُساهمة  mah11 في 23/7/2013, 7:42 pm

بسم الله الرحمن الرحيم
انشاء ملف نصي وكتابة سطرين فيه

تم تصريح بمتغييرين المتغيير الاول هومن نوع الملف أي ملف نصي والمتغيير الثاني هو من نوع سلسلة حرفية أو رقمية
تعليمة انشاء وفتح الملف assign المتغير الاول نوع الملف أو الاسم الداخلي للملف والثاني اسم الملف الحقيقي
تعليمة تهيئة الملف أو مسح محتواه rewrite أي اعادة كتابته من جديد لها متغيير واحد هو نوع الملف
تعليمة القراءة أي قراءة كلمة أو جملة أو اعداد  readln وتكون عن طريق لوحة المفاتيح وتسند القيمة المقروءة الى متغيير
read تعني قراءة  ln تعني سطر
للكتابة في الملف تستعمل التعليمة write المتغيير الاول الاسم الداخلي للملف والثاني الكلمة أو الجملة التي ستكتب في الملف
تعليمة اغلاق close تعني غلق الملف المفتوح



الكود:

program write_file_txt;  // pascal
var ft: text; s: string;  // pascal
begin
 assign(ft, 'text1.txt');  // pascal
 rewrite(ft);  // pascal
 readln(s); writeln(ft, s);  // pascal
 writeln(ft, 'Welcome to turbo pascal 7.0 ',s);  // pascal
 close(ft);  // pascal
end.


mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: انشاء ملف نصي وكتابة سطرين فيه

مُساهمة  ali1 في 5/6/2015, 8:36 pm

بــارك الله فـــــــــيك

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى