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
A voir également:
- Exercice sur les tableaux en algorithme
- Algorithme euromillion excel gratuit - Forum Excel
- Tableaux croisés dynamiques - Guide
- Fusionner deux tableaux excel - Guide
- Le fichier contient un tableau présentant un extrait des livres les plus prêtés à paris en 2016. filtrez le tableau pour ne faire apparaître que les bandes dessinées ado. puis filtrez le tableau pour ne faire apparaître que celles dont l'auteur est zep. quel est le titre de la bande dessinée ado de zep qui a été la plus prêtée d'après ce tableau ? ✓ - Forum Windows 10
- À l’aide des tableaux ci-dessous, trouvez le mot dont le code ascii est le suivant : 72 65 6a 6f 69 6e 64 72 65 - Forum C
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!!!!
