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 ...
BAC pratique 2006 14 h
 
 
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
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 21 Avr - 10:07 (2010)    Sujet du message: BAC pratique 2006 14 h Répondre en citant

PublicitéSupprimer les publicités ?
EnoncéSurprisedn se propose d'ecrire un programme permettant de saisir les éléments d'un tableau T d n entiers de trois chiffres puid de chercher et d'afficher les nombres symétriques de T










Solution:
PROGRAM TEST;
USES WINCRT;
Type tab = array [1..100] of integer;
var t,v:tab;
n,p:integer;
f:boolean;


procedure saisie (var v:tab; var p:integer);


var i:integer;
begin
repeat
readln(p);
until p>=1;
for i:= 1 to p do
repeat
write('entrer n°',i,' ');
readln(v[i]);
until (v[i]>= 100) and (v[i]<= 999);
end;
Function verif (m:integer):boolean;
var f:boolean;
begin
f:=false;
if (m mod 10 )=(m div 100) then
f:=true;
verif:=f;
end;
procedure affiche (var v:tab; p:integer);
var i:integer;
begin
for i:= 1 to p do
begin
if (verif(v[i])) then
write (' ',v[i]);
end;
end;
begin
saisie(t,n);
write('les nombres symétriques de t sont: ');
affiche (t,n);
end.
_________________
Cordialement


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mer 21 Avr - 18:35 (2010)    Sujet du message: BAC pratique 2006 14 h Répondre en citant

Excellent travail merci pour ce partage  Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 05:04 (2016)    Sujet du message: BAC pratique 2006 14 h

 
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