programme pascal 1

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

programme pascal 1

مُساهمة من طرف chouchou في السبت 10 نوفمبر 2007, 14:11

;program copie_recherche
uses wincrt;
var
;f1,f2:text
;car:char
;mot,ligne:string
procedure creation(var f1,f2:text);
begin
assign(f1,'C:\In.dat');
assign(f2,'C:\Out.dat');
rewrite(f1);
rewrite(f2);
end;
procedure ecriture_texte(var f1:text);
var
ligne:string;
begin
repeat
readln(ligne);
writeln(f1,ligne);
until(ligne='');
end;
procedure copie_affiche(var f1,f2:text);
var
ligne:string;
begin
reset(f1);
while not eof(f1) do
begin
readln(f1,ligne);
writeln(f2,ligne);
end;
readln(f1);
writeln(f2);
end;
begin
creation(f1,f2);
ecriture_texte(f1);
copie_affiche(f1,f2);
close(f1);
close(f2);
end.
avatar
chouchou
مرشح للإشراف علي المنتديات الأدبية و الإسلامية
مرشح للإشراف علي المنتديات الأدبية و الإسلامية

ذكر
عدد الرسائل : 97
العمر : 29
العمل/الترفيه : informatique et internet
تاريخ التسجيل : 03/10/2007

معاينة صفحة البيانات الشخصي للعضو

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

رد: programme pascal 1

مُساهمة من طرف zarga في السبت 10 نوفمبر 2007, 20:04

merci ya chouchou pour les information


zarga
مشرف قسم الرياضة
مشرف قسم الرياضة

عدد الرسائل : 119
تاريخ التسجيل : 02/10/2007

معاينة صفحة البيانات الشخصي للعضو

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

رد: programme pascal 1

مُساهمة من طرف Prog-PRO في الجمعة 16 نوفمبر 2007, 13:51

Merci chouchou pour le bon programme, je t'encourage
king
avatar
Prog-PRO
مشرف منتدى لغات البرمجة
مشرف منتدى لغات البرمجة

عدد الرسائل : 428
تاريخ التسجيل : 06/10/2007

معاينة صفحة البيانات الشخصي للعضو

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

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

- مواضيع مماثلة

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