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
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 .

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
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!!!!
6