Copier-coller un code source dans TP7 - Correction de programme
Meilleurs voeux à tous et toutes pour 2012.
J'ai 68 ans et les cellules qui coincent, donc je vous demande un peu d'aide.
J'avais une disquette qui contenait des programmes, mais comme mes PC n'ont plus de lecteur de d7, j'avais mis les fichiers dans mon hdd, mais voilà, virus et formatage...
Comme j'ai toujours le livre, j'ai retapé les progs, mais en fichiers .txt, pas de
chance il y a des fichiers .pas.
1) Comment copier-coller un fichier txt pour le mettre dans l'éditeur de Turbo Pascal 7 ?
J'ai bien entré un petit fichier à la main, mais j'ai plein d'erreurs, que je n'arrive pas à enlever.
2) Si quelqu'un un pouvait me corriger ce prog, il me servirait d'exemple, merci à vous :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
|
program lect75;
uses crt;
var t: array[1. .240] of byte;
e,h,k: byte;
a: text;
procedure traite;
begin
clrscr;
sound(880);delay(500);nosound;
assign{a,'CARTE.CAR');
rewrite(a);
for k:=l to 240 do
begin
t[k]:=t[k] and 16;
if t[k]=0 then t[k]:=l;
if t[k]=16 then t[k]:=0;
write(a,t[k], ') ;
write(t[k]);
end;
close(a);
end;
procedure lit;
begin
for k:=l to 240 do
begin
repeat
e:=port[513];
until e and 32 = 0;
t[k]:=e;
repeat
until port[513] and 32 = 32;
end;
end;
begin
clrscr;
writeln(PASSER LA CARTE DANS LE LECTEUR');
lit;
traite ;
end.
COPYRIGHT 1996 Patrick *) |