Exercice Algorithmique
GKA
Messages postés
341
Date d'inscription
Statut
Membre
Dernière intervention
-
weld 3aycha -
weld 3aycha -
Sachant que le language de programmation est PASCAL, pouvez vous m'aidez à résoudre ce probléme:
- Saisir deux tableaux T1 et T2 par m caractéres distincts.
- Remplir un 3éme tableau INTER par les éléments de l'intersection de T1 et T2
- Afficher les 3 tableau
et Merci d'avance.
- Saisir deux tableaux T1 et T2 par m caractéres distincts.
- Remplir un 3éme tableau INTER par les éléments de l'intersection de T1 et T2
- Afficher les 3 tableau
et Merci d'avance.
A voir également:
- Fonction distinct algorithme
- Fonction si et - Guide
- Fonction miroir - Guide
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
- Fonction moyenne excel - Guide
- Fonction remplacer sur word - Guide
12 réponses
alors,comme grad l'a dit ça n'a rien avoir avec le language(directement):
apparamment la taille de t1 et t2 egale m ,tu en fait une déclaration (t1 et t2 du meme type)
tu saisie(read) le premier tableau (boucle for)puis de même pour le 2ieme
tu peut utiliser la deuxieme boucle en même temps :
chaque element saisie de t2 tu le compare avec tous les éléments de t1,si égale à un enregistre dans t3 .
une toisiéme boucle pour l'affichage.
fait attention aux indices des tableaux,ils ne doivent pas forcemment s'incrémenter en même temps.
apparamment la taille de t1 et t2 egale m ,tu en fait une déclaration (t1 et t2 du meme type)
tu saisie(read) le premier tableau (boucle for)puis de même pour le 2ieme
tu peut utiliser la deuxieme boucle en même temps :
chaque element saisie de t2 tu le compare avec tous les éléments de t1,si égale à un enregistre dans t3 .
une toisiéme boucle pour l'affichage.
fait attention aux indices des tableaux,ils ne doivent pas forcemment s'incrémenter en même temps.
oui mec mais mon probléme c'est que les 2 tableaux t1 et t2 doivent être remplies par des caractéres distincts, c'est ici ou se pose le prob!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
c'est le type CHAR cad: des symboles ? ; / ! § $ ... des lettres majiscules de A à Z et lettre minuscules de a à z, des chiffres 1,2,3,....
c'est claire maintenant
c'est claire maintenant
ok maintenant voici le programme:
program ex;
uses wincrt;
var t1,t2,t3:string; //string est un tableau de chaînes de caractères
i,j,a:integer;
label lab;
Begin
read(t1,t2);
a:=0;
For i:=1 to lenght(t1) do
begin
For j:=1 to lenght(t2) do
begin
if t1[i]=t2[j] then
begin
a:=a+1;
t3[a]:=1t[i]; // et en même temps t2[j]
end
else
begin
goto lab;
lab:
end;
end;
end;
write(t3);
readln;readln;
end.
program ex;
uses wincrt;
var t1,t2,t3:string; //string est un tableau de chaînes de caractères
i,j,a:integer;
label lab;
Begin
read(t1,t2);
a:=0;
For i:=1 to lenght(t1) do
begin
For j:=1 to lenght(t2) do
begin
if t1[i]=t2[j] then
begin
a:=a+1;
t3[a]:=1t[i]; // et en même temps t2[j]
end
else
begin
goto lab;
lab:
end;
end;
end;
write(t3);
readln;readln;
end.
une bonne idée, mais ce programme n'est pas bien traduit pour Pascal, mais quand même merci bien pour l'aide et j'aurais voulu que ca sera en algorithmique, en tt cas cé bon.
Merci mon pote
Merci mon pote
c trops simple
voila la solution mais peut etre vous devez faire quelques correction syntaxique car j'ai pas le turbo pascal sur mon poste et j'ai ecrit directement le programme};
program intersection;
uses wincrt; { cette instructionn n'est uliliser qu'avec le TPW 1.5 si tu a le trubo pascal 7 tu dit ecrir uses crt;}
type tab = array[1..50] of char;
var
t1, t2, t3: tab;
n1, n2, k : integer;
{ cette fonction on va l'utiliser pour remplir un tableau par n elements distincts}
function existe(t: tab; f:integer; c:char):boolean;
var i: ineteger;
begin
i:= 0;
repeat
i:= i+1;
until(t[i]=c) or (i=f);
existe:= t[i]=c;
end;
{procedure remplir, pour le remplissage d'un tableau}
procedure rempli(var t:tab; var n: integer);
var i:integer;
begin
readln(n); { taille du tableau}
readln(t[1]); { 1 er element du tableau}
for i:=2 to n do { la suite des elements distincts}
repeat
readln(t[i]);
untill( not existe(t,i-1, t[i])); { l'appel de cette fonction va verifier si t[i] existe dans tout la partie précédente du tableau}
end;
procedure inter( var t3:tab; t1, t2: tab; n1,n2: integer; var n:integer); { t3 c'est le tableau d'intersection; n c sont taille}
var i:integer;
begin
for i:= 1 to n1 do
if not existe(t2, n2, t1[i]) then
begin
n:=n+1;
t3[n]:= t1[i];
end;
for i:= 1 to n2 do
if not existe(t1, n1, t2[i]) then
begin
n:=n+1;
t3[n]:= t1[i];
end;
end;
{programme principal}
begin
remplir(t1, n1);
rempli(t2, n2);
inter(t3, t1, t2, n1, n2, n);
writeln('le tablleau d'intersection est');
for k:= 1 to n do
writeln(t3[k]);
end;
voila la solution mais peut etre vous devez faire quelques correction syntaxique car j'ai pas le turbo pascal sur mon poste et j'ai ecrit directement le programme};
program intersection;
uses wincrt; { cette instructionn n'est uliliser qu'avec le TPW 1.5 si tu a le trubo pascal 7 tu dit ecrir uses crt;}
type tab = array[1..50] of char;
var
t1, t2, t3: tab;
n1, n2, k : integer;
{ cette fonction on va l'utiliser pour remplir un tableau par n elements distincts}
function existe(t: tab; f:integer; c:char):boolean;
var i: ineteger;
begin
i:= 0;
repeat
i:= i+1;
until(t[i]=c) or (i=f);
existe:= t[i]=c;
end;
{procedure remplir, pour le remplissage d'un tableau}
procedure rempli(var t:tab; var n: integer);
var i:integer;
begin
readln(n); { taille du tableau}
readln(t[1]); { 1 er element du tableau}
for i:=2 to n do { la suite des elements distincts}
repeat
readln(t[i]);
untill( not existe(t,i-1, t[i])); { l'appel de cette fonction va verifier si t[i] existe dans tout la partie précédente du tableau}
end;
procedure inter( var t3:tab; t1, t2: tab; n1,n2: integer; var n:integer); { t3 c'est le tableau d'intersection; n c sont taille}
var i:integer;
begin
for i:= 1 to n1 do
if not existe(t2, n2, t1[i]) then
begin
n:=n+1;
t3[n]:= t1[i];
end;
for i:= 1 to n2 do
if not existe(t1, n1, t2[i]) then
begin
n:=n+1;
t3[n]:= t1[i];
end;
end;
{programme principal}
begin
remplir(t1, n1);
rempli(t2, n2);
inter(t3, t1, t2, n1, n2, n);
writeln('le tablleau d'intersection est');
for k:= 1 to n do
writeln(t3[k]);
end;
Merci mon pote, mé cé un peu en retard car on a corrigé l'exercice au lycée et c le même que tu vien d'ecrire. MERCI BIEN en tt cas.
mon msn est ghassen_khalil@hotmail.fr, je veu qu'on soi ami, j'attend ta réponse. a++
mon msn est ghassen_khalil@hotmail.fr, je veu qu'on soi ami, j'attend ta réponse. a++
salut a tous je suis en premiere année d'informatique et gestion et je désire avoir des sujet d'algorithme simple venant de vous por m'exercer merci
