LMD OUARGLA

LMD OUARGLA
 
الرئيسيةاليوميةس .و .جبحـثالتسجيلدخول

شاطر | 
 

 برنامج تحرير النصوص بالباكسال

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Prooof



عدد المساهمات : 12
نقاط : 3110
تاريخ التسجيل : 21/04/2009

مُساهمةموضوع: برنامج تحرير النصوص بالباكسال   الأحد مايو 24, 2009 3:45 pm

برنامج تحرير النصوص بالباكسال
يقوم هذا البرنامج بـ:
1- قراءة نص وتخزينه في ملف
2- عرض محتوى الملف
3- البحث عن كلمة في النص وحساب عدد تكرارها.
4- تعويض كل تكرار كلمة في النص بكلمة أخرى.


زوروني على:

http://membres.multimania.fr/baekoasis
http://baekoasis.ahlamountada.com/



{
********************************************************************************
** TP manipultation des fichiers textes **
** Réaliser par : **
** HAMZA KOUADRI **
** AHMED FEROUI **
********************************************************************************
** Proposé par : **
** L'Enseignant BENMIR ABD EL KADER **
********************************************************************************
}

program fichier_texte;

var

f, g : text;
l, c, r, y : string;
x : char;
e, i : integer;

{effacer le contenu de fichier}
procedure supprimer;
begin

rewrite(f);
close(f);

end;

{saisie du texte}
procedure lecture;
begin

rewrite(f);
writeln('ecrire le text pout terminer entre un "." seul:');
write(' ');

repeat

readln(c);
writeln(f, c);

until c = '.';

close(f);
end;

{affichage du texte}
procedure affichage(var h: text);
begin

reset(h);
writeln('votre text est:');

while not eof(h) do
begin
readln(h,c);
writeln(c);
end;

close(h);
end;

{rechercher un mot dans le texte}
procedure recherche(mot: string);
var

s, j : integer;
t : string;
begin
s:= 0;

reset(f);

while not eof(f) do
begin
readln(f,c);

i := 1;
while i < length(c)+1 do
begin

t := '';

while( c[i]<>' ') and (i <> length(c)+1 ) do
begin
t := t+ c[i];
i:=i+1;
end;

if t = mot then
s:=s+1;

i:=i+1;

end;
end;

if s > 0 then
writeln('l''occurence de votre mot est: ', s, ' fois')
else
writeln('le mot "',y,'" n''existe pas dans le texte');

end;

{remplacer "mot" par "rmot" dans le texte}
procedure change(rmot,mot: string);
var

t : string;

begin

assign(g,'d:\ftexte2.txt');
rewrite(g);

reset(f);
while not eof(f) do
begin
readln(f,c);

l := '';
i := 1;
while i < length(c)+1 do
begin
t := '';
while( c[i]<>' ') and (i <> length(c)+1 ) do
begin
t := t + c[i];
i := i + 1;
end;

if t<>mot then
l := l + ' ' + t
else
l := l + ' ' + rmot;

i:=i+1;

end;

writeln(g,l);
end;

close(f);
close(g);

reset(g);
rewrite(f);

while not eof(g) do
begin
readln(g,l);
writeln(f,l);
end;

close(f);
close(g);

end;

{programme principale}

begin

assign(f,'d:\ftexte.txt');

e:=0;
while x<>'0' do
begin

writeln('liste des choix:');
writeln(' 1: pour ecrire et enregistrer votre text.');
writeln(' 2: pour supprimer le text.');
writeln(' 3: pour rechercher et calculer votre mot.');
writeln(' 4: pour changer un mot par un autre mot dans le text.');
writeln(' 5: pour afficher le text.');
write('votre choix : '); readln(i);
while (i <= 0) or (i > 5) do
begin
writeln('erreur choix entre 1 et 5');
write('votre choix : '); readln(i);
end;

case i of
1:
begin
e:=1;
lecture;
end;
2:
begin
if e=1 then
supprimer
else
writeln('ecrire le text');
end;
3:
begin
if e=1 then
begin
write('entrez votre mot: ');
readln(y);
recherche(y);
end
else
writeln('ecrire le text');
end;
4:
begin
if e=1 then
begin
write('donnez votre mot que voudrer changer: ');
readln(y);
write('donnez le nouveau mot: ');
readln(r);
change(r,y);
affichage(f);
end
else
writeln('ecrire le text');
end;
5:
begin
if e=1 then
affichage(f)
else
writeln('ecrire le text');
end;

end;

write('entre 0 pour exit: ');
readln(x);

end;

end.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
برنامج تحرير النصوص بالباكسال
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
LMD OUARGLA :: رياضيات و إعلام آلي :: قســــم البرمجة-
انتقل الى: