Turbo Pascal sous Windows 7 32 bits

Fermé
felemis Messages postés 52 Date d'inscription lundi 23 janvier 2012 Statut Membre Dernière intervention 26 juillet 2012 - 13 juil. 2012 à 19:07
Bonjour,
Je viens d'installer turbo pascal sous windows 7 32 bits le problème qu'il s'arrête au milieu de programme comment faire pour qu'il exécute des programmes de grandes lignes et ajouter des caractères spéciaux telque / et \ ?
program prob1;
uses wincrt;
var f,f1:text;
ch:char;
ch2:string;
mot1,mot2:string;
procedure remplace(var ch2,mot1,mot2:string);
var p1,p2:string;
begin
while pos(mot1,ch2)<>0 do
begin
p1:=copy(ch2,1,pos(mot1,ch2)-1);
delete(ch2,1,pos(mot1,ch2)+length(mot1));
ch2:=p1+mot2+' '+ch2
end;
end;
begin
assign(f,'c:\text.txt');
assign(f1,'c:\tpw.txt');
rewrite(f);
ch:='O';
while ch='O' do
begin
repeat
write ('ajouter une ligne ? (O = oui / N = non) ');
readln (ch);
until (ch='N') or (ch='O');
if ch='O' then
begin
writeln ('saisir votre ligne');
readln (ch2);
writeln(f,ch2);
end;
end;
repeat
write ('saisir mot 1 : ');
readln (mot1);
until mot1<>'';
repeat
write ('saisir mot 2 : ');
readln (mot2);
until mot2<>'';
CLOSE(f);
reset(f);
rewrite(f1);
Writeln ('fichier avant traitement ');
while not eof(f) do
begin
readln(f,ch2);
writeln (ch2);
remplace(ch2,mot1,mot2);
writeln(f1,ch2);
end;
close(f);
rewrite(f);
close(f1);
reset(f1);
while not eof(f1) do
begin
readln(f1,ch2);
writeln(f,ch2);
end;
close(f);
reset(f);
close(f1);
WRITELN ('Fichier après traitement');
while not eof(f) do
begin
readln(f,ch2);
writeln(ch2);
end;
end.

A voir également: