hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Ch5 - Leçon 4, ex 3 p192
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Sam 29 Nov - 13:29 (2008)    Sujet du message: Ch5 - Leçon 4, ex 3 p192 Répondre en citant

PublicitéSupprimer les publicités ?
{Exercice 3 page 192 les sous programme, inversion d'un tableau d'entier avec 3 modules}

Program inverse_tableau;
uses wincrt;

Type
Tab=array[1..100] of integer;

var
T:Tab;
n:integer;

Procedure lecture(var T:Tab; var n:integer);
var
i:integer;
begin
repeat
write('Donner la taille du tableau : ');
readln(n);
until n in [1..100];

for i:=1 to n do
begin
Writeln('Donner la case n° ',i,' : ');
readln(T[i]);
end;
end;

procedure inverse(var a, b:integer);
var
p:integer;
begin
p:=a;
a:=b;
b:=p;
end;

procedure inverse_tout(var T:Tab; n:integer);
var
i:integer;
begin
for i:=1 to n div 2 do
inverse(T[i],T[n-i+1])
end;

procedure resultat(T:Tab;n:integer);
var
i : integer;
begin
for i:= 1 to n do
begin
writeln('l''élément ',i,' est : ',T[i]);
end;
end;

{****************PP***************}

begin
lecture(T,n);
inverse_tout(T,n);
resultat(T,n);
end.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 21:36 (2016)    Sujet du message: Ch5 - Leçon 4, ex 3 p192

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation