Discussion :

[pasrico]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 *)

[M.Dlb]

Tu peux éditer le fichier sous n'importe quel éditeur de texte (notepad par exemple) et ensuite changer l'extension en .pas au lieu de .txt, si tu as besoin d'ouvrir tes sources dans Turbo Pascal.

Ensuite concernant la source du dessus, la coloration syntaxique du forum aide à voir que par exemple, tu as mis une accolade "{" à la place d'une parenthèse. Mais bon, coller le code dans le forum à chaque fois c'est pas très pratique... Donc le mieux est de compiler tes sources et réagir en fonction des messages du compilateur.

Egalement, le mieux serait que tu indentes ton code, pour gagner en lisibilité.

Enfin, en lieu et place de Turbo Pascal, je te conseillerai de te tourner vers FreePascal, un compilateur qui possède les mêmes caractéristiques que TP, mais qui en plus est supporté et connait sans cesse des évolutions, et tout ça gratuitement

[pasrico]

bonjour
merci de m'avoir repondu, j'ai resolu mon probleme avec TPW 1.5 en francais,
il est vraiment impeccable, on peut travailler en plein ecran et il indique clairement l'erreur et sa position precise.