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

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

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

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

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

الكود:

program write_file1_txt;
var ft: text; s: string; i: integer;
begin
 assign(ft, 'text1.txt');
 rewrite(ft);
 for i := 1 to 10 do
  writeln(ft, 'Welcome to turbo pascal 7.0 ');
 close(ft);
end.


عدل سابقا من قبل mah11 في 6/11/2015, 9:57 am عدل 1 مرات (السبب : تنسيق الموضوع كي يبدو في شكل لائق)

mah11
Admin

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

http://delph.forumalgerie.net

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

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

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

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

ali1
مبرمج مجتهد

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

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

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


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