Algorithme, Pascal, Fichiers

[invite22f15a37]

Bonjour,
Ben voilà j'ai crée un fichier de type enregistrement nommé (f), j'ai rempli tout les champs d'enregistrements, mais je souhaite crée un autre fichier(f1) à partir de celui-ci mais j'arrive pas!

je vous propose de voire mon code: (j'ai compiler, mais aucun des deux fichiers s'affiche)

type livre=record
     titre,auteur:string;
     num:integer;
     end;
var  f,f1:file of livre; p:livre;
     i,j,k,r,s,m,n:integer;  t:boolean;
begin
assign(f,'c:\rien\livre.dat');
rewrite(f);
readln(n);
for i:=1 to n do
begin
with p do
begin
writeln('donner un titre');
readln(titre);
writeln('donner un nom');
readln(auteur);
writeln('donner un entier');
readln(num);
write(f,p);
end;
end;
close(f);
reset(f);
assign(f1,'c:\rien\livre.dat');
rewrite(f1);
while not eof(f) do
begin
with p do
begin
read(f,p);
if num>10 then
write(f1,p);
end;
end;
close(f);
close(f1);
reset(f);
while not eof(f) do
begin
with p do
begin
read(f,p);
writeln(titre:20,auteur:20,num:20);
end;
end;
close(f);
writeln;
reset(f1);
while not eof(f1) do
begin
with p do
begin
read(f1,p);
writeln(titre:20,auteur:20,num:20);
end;
end;
close(f1);

-----

[pm42]

Sans formattage de ton code, c'est l'enfer. Mais tu as f1 et f qui pointent sur le même nom de fichier, un qui lit et un qui écrit ce qui ne marche pas.

[minushabens]

ah tiens, ça me rappelle des vieux souvenirs de mes débuts en programmation avec Pascal-UCSD sur Apple II....

donc tu n'arrives pas à relire tes fichiers, mais est-ce qu'ils sont créés quand-même?

[invite22f15a37]

Oui, voilà f1 et f pointent sur le méme nom de fichier MERCI BEAUCOUP ))))
Bonne journée.

[A voir en vidéo sur Futura]

[Bluedeep]

ah tiens, ça me rappelle des vieux souvenirs de mes débuts en programmation avec Pascal-UCSD sur Apple II....

J'ignorais que le compilateur "san diego" avait eu une version Apple; si ma mémoire est bonne, c'était du compilé semi-interprété ? (avec une sorte de VM qui s'appelait le "P-System" .... comme c'est vieux tout cela .... j'ai vu cela dans une boite un jour qui développait avec ce truc, vers 1985-86; les caractéristiques majeures était un code extrêmement lent -vs un vrai compilateur Pascal + linker - et un IDE "à chier" même pour les standards de l'époque )

[minushabens]

Si ça tournait sur Apple II, c'était tout un système d'exploitation écrit autour du compilateur pascal, effectivement très lent. Quand sont arrivés l'IBM PC et le compilateur "turbo pascal" de Borland, ça nous a changé la vie.

[pm42]

si ma mémoire est bonne, c'était du compilé semi-interprété ? (avec une sorte de VM qui s'appelait le "P-System" ....

La JVM Java avant l'heure mais sans la puissance CPU et le Just-In-Time compiler.

Si ça tournait sur Apple II, c'était tout un système d'exploitation écrit autour du compilateur pascal, effectivement très lent

20 min pour compiler 3000 lignes de code dans mes souvenirs. J'allais me promener dans le couloir et causer avec des copains en effet.

Quand sont arrivés l'IBM PC et le compilateur "turbo pascal" de Borland, ça nous a changé la vie.

Ca marchait avant sous CP/M et donc sur Apple II avec une carte Z80. J'ai fait ça aussi et découvert le Ctrl-K D pour sortir de l'éditeur (raccourcis Wordstar). Un grand moment, tu ne l'inventais pas tout seul.

[Bluedeep]

20 min pour compiler 3000 lignes de code dans mes souvenirs. J'allais me promener dans le couloir et causer avec des copains en effet.

L'exécution n'était pas plus rapide que la compilation

[pm42]

L'exécution n'était pas plus rapide que la compilation

Oui mais le 1er programme que j'ai vendu était fait avec alors je n'en garde pas un mauvais souvenir.