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 ...
2 Suites & Matrice & Fichier!
 
 
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
Disdous


Hors ligne

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

Posté le: Mer 24 Fév - 06:49 (2010)    Sujet du message: 2 Suites & Matrice & Fichier! Répondre en citant

PublicitéSupprimer les publicités ?
les deux suites sont: U0=1 ; U1=1 et Un=U(n-1)+2*(Un-2);
                               V0=2; V1=3 et Vn=V(n-1)+2*V(n-2);
il s'agit d'une récurence d'ordre 2
LE probleme consiste a saisir n et m puis remplir une matrice de n lignes et m colonnes par des entiers entre 1 et 500
puis transferer les indices des elements se trouvant a la fois dans les suites V et U et la matrice dans un fichier nommé nombre.dat


Le probleme c'est que quand j'exécute le programme, une fenetre d'erreur s'ouvre: Runtime error 3 at 0001:00AE
voilà mon programme:
(c'est tres urgent, svp aider moi le plus tot possible!)Merci
Code:
program mat;
uses wincrt;
type
pat=array[1..30,1..30] of integer;
tab=array[0..100] of integer;
fich= file of string;
var
i,j,k,l,n,m:integer; oku,okv:boolean;
fichier:fich;
ch,k1,l1:string;
mm:pat; u,v:tab;
function rech(a,c:integer;b:tab):boolean;
var y:integer;
begin
y:=-1;
repeat
y:=y+1;
until (b[y]=c) or (y>c);
if b[y]=c then rech:=true else rech:= false; end; 
begin
assign(fichier,'C/Fichier.dat');
rewrite(fichier);
read(n);read(m);
for i:= 1 to n do
for j:= 1 to m do
read(mm[i,j]);
U[0]:=1 ; U[1]:=1; V[0]:=2;V[1]:=3;   i:=2;j:=2;
repeat
U[i]:=U[i-1]+U[i-2]; i:=i+1;
V[j]:=V[j-1]+2*V[j-2]; j:=j+1;
until   (v[j-1]>=500) and (u[i-1]>=500);
for k:= 1 to n do
begin
for l:= 1 to m do
begin
repeat
write('m[',k,',',l,'] =');read(mm[k,l]);
until (mm[k,l]>=1) and (mm[k,l]<=500);
end;
writeln;
end;
for k:= 1 to n do
begin
for l:= 1 to m do
begin
oku:= Rech(mm[k,l],i,u);
okv:=Rech(mm[k,l],j,v);
if (oku=true) and (okv=true) then
str(k,k1);str(l,l1);
ch:='M['+k1+','+l1+']';
write(fichier,ch);
end; end;
reset(fichier);
while not (eof(fichier)) do
begin
read(fichier,ch);
write(ch); end;
end.
 


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mer 24 Fév - 12:59 (2010)    Sujet du message: 2 Suites & Matrice & Fichier! Répondre en citant

ilya beaucoup de faute de déclaration des variable

 
Revenir en haut
Disdous


Hors ligne

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

Posté le: Mer 24 Fév - 13:19 (2010)    Sujet du message: 2 Suites & Matrice & Fichier! Répondre en citant

si cela ne vous dérange pas, pourriez vous m'aider?
indiquez moi les fautes. Rolling Eyes
Merci 


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mer 24 Fév - 14:48 (2010)    Sujet du message: 2 Suites & Matrice & Fichier! Répondre en citant



 
Revenir en haut
Disdous


Hors ligne

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

Posté le: Mer 24 Fév - 19:20 (2010)    Sujet du message: 2 Suites & Matrice & Fichier! Répondre en citant

Rech c'est la fonction recherche  déclaré a partir de la ligne 12
je crois que la faute que j'ai fait est catastrophique ( psk elle provoque l'erreur Run Time)
Je passerai demain mon devoir pratique, je dois m'en sortir!


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Jeu 25 Fév - 11:18 (2010)    Sujet du message: 2 Suites & Matrice & Fichier! Répondre en citant

il faux que tu vérifie tous les déclaration du procédure  et bon chance au devoir ...

 
Revenir en haut
Disdous


Hors ligne

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

Posté le: Jeu 25 Fév - 11:36 (2010)    Sujet du message: 2 Suites & Matrice & Fichier! Répondre en citant

ok, merci Okay
je m'y suis sortie
(pour le devoir c'etait 'nombre super premier", j'ai eu 16! Que ça fait mal de travailler et de ne pas pouvoir se satisfaire! Crying or Very sad )


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Jeu 25 Fév - 11:54 (2010)    Sujet du message: 2 Suites & Matrice & Fichier! Répondre en citant

c bien tu u bonne note est je souhaite en second devoir tu aura 20  Okay

 
Revenir en haut
Disdous


Hors ligne

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

Posté le: Jeu 25 Fév - 13:00 (2010)    Sujet du message: 2 Suites & Matrice & Fichier! Répondre en citant

merci, gentil de votre part :)mais c'est déjà un recul par rapport a la 1ere trimestre.

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 20:19 (2016)    Sujet du message: 2 Suites & Matrice & Fichier!

 
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