Trubo Pascal : les fichiers
Fermé
vegveg
Messages postés
37
Date d'inscription
dimanche 21 octobre 2007
Statut
Membre
Dernière intervention
24 mai 2011
-
28 sept. 2008 à 16:17
vegveg Messages postés 37 Date d'inscription dimanche 21 octobre 2007 Statut Membre Dernière intervention 24 mai 2011 - 2 oct. 2008 à 10:57
vegveg Messages postés 37 Date d'inscription dimanche 21 octobre 2007 Statut Membre Dernière intervention 24 mai 2011 - 2 oct. 2008 à 10:57
A voir également:
- Trubo Pascal : les fichiers
- Wetransfer gratuit fichiers lourd - Guide
- WeTransfer - Télécharger - Téléchargement & Transfert
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Turbo pascal download - Télécharger - Édition & Programmation
- Fichiers temporaires windows 10 - Guide
6 réponses
seifca
Messages postés
6
Date d'inscription
samedi 27 septembre 2008
Statut
Membre
Dernière intervention
30 septembre 2008
1
28 sept. 2008 à 16:29
28 sept. 2008 à 16:29
mon frére
q'elle est votre classe
q'elle est votre classe
vegveg
Messages postés
37
Date d'inscription
dimanche 21 octobre 2007
Statut
Membre
Dernière intervention
24 mai 2011
1
28 sept. 2008 à 16:42
28 sept. 2008 à 16:42
BAC pourquoi ?
T'es tunisien a ce que je voit par "CA" !!
T'es tunisien a ce que je voit par "CA" !!
seifca
Messages postés
6
Date d'inscription
samedi 27 septembre 2008
Statut
Membre
Dernière intervention
30 septembre 2008
1
28 sept. 2008 à 17:10
28 sept. 2008 à 17:10
oui je suis tunisien et j s en bac
tu veux prend de cour?
tu veux prend de cour?
vegveg
Messages postés
37
Date d'inscription
dimanche 21 octobre 2007
Statut
Membre
Dernière intervention
24 mai 2011
1
28 sept. 2008 à 19:03
28 sept. 2008 à 19:03
oui et ton MSN car je suis tunisien aussi
seifca
Messages postés
6
Date d'inscription
samedi 27 septembre 2008
Statut
Membre
Dernière intervention
30 septembre 2008
1
30 sept. 2008 à 13:13
30 sept. 2008 à 13:13
oui mon pays
j'ai un email et un skype mais je n'ai pas un msn
j'ai un email et un skype mais je n'ai pas un msn
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
30 sept. 2008 à 13:32
30 sept. 2008 à 13:32
Pour ton problème :
const Nmax=100;
type Fichier=file of integer;
Tableau=array[1..Nmax] of integer;
procedure TransfererEtAfficher(NomFichier:string;var t:Tableau);
var f:Fichier; var e,i,n:integer;
begin
assign(f,NomFichier);
reset(f);
n:=filesize(f);
if n>Nmax then n:=Nmax;
for i:=1 to n do
begin
read(f,e);
writeln(e);
t[i]:=e;
end;
close(f);
for i:=n+1 to Nmax do t[i]:=-1;
end;
vegveg
Messages postés
37
Date d'inscription
dimanche 21 octobre 2007
Statut
Membre
Dernière intervention
24 mai 2011
1
2 oct. 2008 à 10:57
2 oct. 2008 à 10:57
Mille merci KX !! ^^