Exercices algorithme tableaux
Fermé
lola
-
18 févr. 2010 à 18:16
x-2216 Messages postés 7 Date d'inscription jeudi 18 février 2010 Statut Membre Dernière intervention 19 février 2010 - 19 févr. 2010 à 19:13
x-2216 Messages postés 7 Date d'inscription jeudi 18 février 2010 Statut Membre Dernière intervention 19 février 2010 - 19 févr. 2010 à 19:13
salam alikom
svp aide moi a resolu ces exercices ....
algorithes les tableaux
ex 1:soit t un tableau contenant 10 mot supposés écrits en majuscule , ecrire un programme en pascal qui permet de suprimer les lettres "E"de chaque mot
exemple :t=elle ,text,non, pascal>=t=ll,text,nonpascal.
ex 2: soit un tableau t à deux dimension (12,8)préalable rempli de valeur numirique .erire un algorithme qui recherche la plus grand valeur au sein de ce tableau .
svp aide moi a resolu ces exercices ....
algorithes les tableaux
ex 1:soit t un tableau contenant 10 mot supposés écrits en majuscule , ecrire un programme en pascal qui permet de suprimer les lettres "E"de chaque mot
exemple :t=elle ,text,non, pascal>=t=ll,text,nonpascal.
ex 2: soit un tableau t à deux dimension (12,8)préalable rempli de valeur numirique .erire un algorithme qui recherche la plus grand valeur au sein de ce tableau .
A voir également:
- Procedure remplir tableau algorithme
- Tableau word - Guide
- Code ascii tableau - Guide
- Tableau croisé dynamique - Guide
- Trier tableau excel - Guide
- Tableau coefficient marge ✓ - Forum Excel
11 réponses
x-2216
Messages postés
7
Date d'inscription
jeudi 18 février 2010
Statut
Membre
Dernière intervention
19 février 2010
14
18 févr. 2010 à 19:16
18 févr. 2010 à 19:16
salut
pour l'ex 1:
program exercice;
uses wincrt;
type tab=array [1..10] of string;
var
x:string; T:tab;
i,j,y:integer;
test:boolean;
const n=10;
procedure remplir(var T:tab;n:integer);
begin
for i:=1 to n do
begin
repeat
write('T[',i,']=');
readln(T[i]);
x:=T[i];
for j:=1 to length(x) do
begin
if (x[j] in ['A'..'Z'])then
test:=true
else test:=false;
end;
until test=true;
end;
end;
procedure suppression(var T:tab;n:integer);
begin
for i:=1 to n do
begin
x:=T[i];
for j:=1 to length(x) do
begin
if (x[j]='E') then
delete(x,j,1);
T[i]:=x;
end;
end;
end;
procedure affichage(T:tab;n:integer);
begin
for i:=1 to n do
begin
writeln('T[',i,']=',T[i]);
end;
end;
BEGIN
writeln('donner des chaines de carcteres majuscules');
remplir(T,n);
suppression(T,n);
affichage(T,n);
END.
j'espere que ça vous aide!!!!
pour l'ex 1:
program exercice;
uses wincrt;
type tab=array [1..10] of string;
var
x:string; T:tab;
i,j,y:integer;
test:boolean;
const n=10;
procedure remplir(var T:tab;n:integer);
begin
for i:=1 to n do
begin
repeat
write('T[',i,']=');
readln(T[i]);
x:=T[i];
for j:=1 to length(x) do
begin
if (x[j] in ['A'..'Z'])then
test:=true
else test:=false;
end;
until test=true;
end;
end;
procedure suppression(var T:tab;n:integer);
begin
for i:=1 to n do
begin
x:=T[i];
for j:=1 to length(x) do
begin
if (x[j]='E') then
delete(x,j,1);
T[i]:=x;
end;
end;
end;
procedure affichage(T:tab;n:integer);
begin
for i:=1 to n do
begin
writeln('T[',i,']=',T[i]);
end;
end;
BEGIN
writeln('donner des chaines de carcteres majuscules');
remplir(T,n);
suppression(T,n);
affichage(T,n);
END.
j'espere que ça vous aide!!!!
