Exercices algorithme tableaux
lola
-
x-2216 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
x-2216 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
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:
- Comment remplir un tableau en algorithme
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Organigramme a remplir word - Guide
11 réponses
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!!!!
