hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
runtime!! error 2, fichier introuvable
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Aidez-moi
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
kazwardi


Hors ligne

Inscrit le: 14 Fév 2010
Messages: 13
Point(s): 14
Moyenne de points: 0

Posté le: Mer 26 Mai - 16:56 (2010)    Sujet du message: runtime!! error 2, fichier introuvable Répondre en citant

PublicitéSupprimer les publicités ?
 
 Salut à vous, bon comme le nom indique, j'ai fait un petit exercice pratique qui consiste à:
1-menu: l'utilisateur entre son choix pour modifier une image en choisissant l'une des fonctionnalités données:[H pour pivoter horizontalement], [V verticalement], [A accentuer].
2-on doit transférer le contenu de ft vers m(matrice):le contenu ce sont des chaines constituées de nbres hexadécimales séparées par des [-]
 exp: 18FC05-16811C-A0651C
 ...
3-réaliser la modification (ou bien dans m si on accentue), (oubien dans m1,m2 si on pivote).
4-retransfert
 mon problème est que je viens d'écrire ce code mais ca ne marche pas!! des trucs du genres:runtime 2 (fichier non trouvé)..
  voilà le code et merci d'avance!! Mr. Green

program pp;
uses wincrt;
type
mat=array [1..5,1..5] of string;

var
m,m1,m2:mat;

ft,ft1:text;
r:char;
l,c,L1,c1:integer;


            
             {remplissage de la matrice}            
Procedure remplir (var ft:text; var l,c:integer);
var
i:integer;
b:char;
ch:string;
begin
{remplissage}
rewrite(ft);
repeat
      writeln('ch = ');
      readln(ch);
      writeln(ft,ch);
      write('continuer o_n');
      readln(b);
until (upcase(b) = 'N');
close(ft);
{nbre de lignes}
reset(ft);
while not eof (ft) do
      begin
      l:=l+1;
      end;
close(ft);
{nbre de colonnes}
reset(ft);
      readln(ft,ch);
      For i:=1 to length(ch) do
      begin
      if  (ch[i] = '-') then
      c:=c+1;
      end;
c:=c+1;
close(ft);
end;

             {transfert de ft vers m}
procedure transfert_ft_m (var m:mat; l,c:integer; var ft:text);
var
ch,ch1:string;
i,j,k:integer;
Begin
reset(ft);
while not eof (ft) do
begin
readln(ft,ch);
     For i:=1 to l do
     Begin
          For j:=1 to c do
          begin
              For k:=1 to length(ch) do
              begin
              if (ch[k] = '-') then
                 begin
                 ch1:=copy(ch,k-6,k-1);
                 m[i,j]:=ch1;
                 end;
              end;
          end;
     end;
end;
End;


              {pivotement horizontale}
procedure pivoter_h(m:mat ;var m2:mat; L1,c1,l,c:integer);
var
i,j:integer;
begin
L1:=1;
c1:=l;
for i:=1 to l do
begin
     For j:=1 to c do
     begin
     m2[L1,c1]:=m[i,j];
     L1:=L1+1;
     end;
c1:=c1-1;
end;
end;

              {pivotement verticale}
procedure pivoter_v(m:mat; var m1:mat; l,c:integer);
var
c1,L1,i,j:integer;
begin
L1:=l;
c1:=1;
    For i:=1 to l do
    begin
    For j:=1 to c do
    begin
    m1[L1,c1]:=m[i,j];
    c1:=c1+1;
    end;
    L1:=L1-1;
    end;
end;



                {hexadecimal}
Function hexa(g:integer):string;
var
k,ch:string;
b:integer;
begin
     repeat
     b:=g mod 16;
     if (b<10) then
     str(b,k)
     else
     k:=chr(b+55);
     ch:=k+ch;
     g:=g div 16;
     until (g=0);
hexa:=ch;
end;
                {accentuation de la couleur}
procedure accentuer (var m:mat; l,c:integer);
var
k,v:string;
i,j,e,n,g,d:integer;
begin
write('veuillez saisir la valeur que vous souhaitiez affecter');
readln(v);
For i:=1 to l do
Begin
     For j:=1 to c do
     Begin
          k:=m[i,j];
          For d:=1 to length(k) do
          Begin
               if (k[d] in ['0','1','2','3','4','5','6','7','8','9']) then
               val (k[d],n,e)
               else
               n:= ord(k[d])+55;
               g:=g+n;
          end;
          m[i,j]:=hexa(g);
     end;
end;
end;



procedure transfert_m_ft1(m:mat; var ft1:text; l,c:integer);
 var
 i,j:integer;
 begin
 rewrite(ft1);
 for i:=1 to l do
 begin
      for j:=1 to c do
      writeln(ft,m[i,j]);
 end;
 close(ft1);
 end;



procedure transfert_m1_ft1(m1:mat; var ft1:text; l,c:integer);
 var
 i,j:integer;
 begin
 rewrite(ft1);
 for i:=1 to l do
 begin
      for j:=1 to c do
      writeln(ft,m1[i,j]);
 end;
 close(ft1);
 end;

procedure transfert_m2_ft1(m2:mat; var ft1:text; L1,c1:integer);
 var
 i,j:integer;
 begin
 rewrite(ft1);
 for i:=1 to L1 do
 begin
      for j:=1 to c1 do
      writeln(ft,m[i,j]);
 end;
 close(ft1);
 end;


            {menu}

begin

assign(ft,'d:\image.txt');
assign(ft1,'d:\image1.txt');

transfert_ft_m(m,l,c,ft);
      repeat
      write('H_pivoter l"image horizontalement');
      write('V_pivoter l"image verticalement');
      write('A_accentuer la couleur de l"image');
      readln(r);
      until (upcase(r) in ['H','V','A','D']);
if (upcase(r) = 'H') then
begin
pivoter_h(m,m2,L1,c1,l,c);
transfert_m2_ft1(m2,ft1,L1,c1);
end
else
if (upcase(r) = 'V') then
begin
pivoter_v(m,m1,l,c);
transfert_m1_ft1(m1,ft1,l,c);
end
else
if (upcase(r) = 'A') then
begin
accentuer(m,l,c);
transfert_m_ft1(m,ft1,l,c);
end;
end.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 05:09 (2016)    Sujet du message: runtime!! error 2, fichier introuvable

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Aidez-moi Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation