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 ...
pose vos question et demande ICI
 
 
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 -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
centpourcentjerbi


Hors ligne

Inscrit le: 01 Déc 2008
Messages: 30
Masculin
Point(s): 328
Moyenne de points: 0

Posté le: Sam 3 Oct - 10:35 (2009)    Sujet du message: pose vos question et demande ICI Répondre en citant

PublicitéSupprimer les publicités ?


pose vos demande et question ici je suis laa pour vous aidee

  

_________________
enchallah elbac fi ejjib


 
Revenir en haut
A7M3D92
recent membre
recent membre

Hors ligne

Inscrit le: 20 Oct 2009
Messages: 39
Point(s): 49
Moyenne de points: 0

Posté le: Mer 21 Oct - 22:12 (2009)    Sujet du message: pose vos question et demande ICI Répondre en citant

je n'ai pas compris la fonction verif
**pour verifier que un champ d'un enregistrement ne sera pas repeter**


 
Revenir en haut
assoum


Hors ligne

Inscrit le: 18 Oct 2009
Messages: 1
Point(s): 10
Moyenne de points: 0

Posté le: Ven 23 Oct - 06:38 (2009)    Sujet du message: pose vos question et demande ICI Répondre en citant

salem alykom : je veux cours de programmation et merci bac info------

merci Razz

NCHALLA LKOLNA NINJ7O FIL BAC AMIN


 
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: Ven 23 Oct - 08:01 (2009)    Sujet du message: pose vos question et demande ICI Répondre en citant

assoum a écrit:

salem alykom : je veux cours de programmation et merci bac info------

merci Razz

NCHALLA LKOLNA NINJ7O FIL BAC AMIN

Dont la parie algorithme et programmation ==>cour   tu trouve plusieurs cours et exercice du programmation

 
Revenir en haut
wissem wiss


Hors ligne

Inscrit le: 15 Oct 2009
Messages: 2
Point(s): 11
Moyenne de points: 0

Posté le: Mar 27 Oct - 20:38 (2009)    Sujet du message: pose vos question et demande ICI Répondre en citant

aidez moi svp pour ceux exercice je veux   l'analyse de cette exercice
On désire informatisé la gestion d'un hôpital pour chaque médecin on dispose les information suivante
le nom du médecin
la matricule du médecin
la spécialité du médecin
ecrire  un programme pascal qui permet de saisir dans un fichier nommé test.txt situé a la racine D des médecins jusqu'à l'utilisateur décide de s'arrêter par la réponse N a la question autre médecin (O/N)?
insère un médecin dans une position P donnée
supprimer un médecin dans une position donnée
afficher le fichier avant et après l'insertion                                                      merci d'avance Okay


 
Revenir en haut
soulef


Hors ligne

Inscrit le: 15 Nov 2008
Messages: 5
Féminin
Point(s): 38
Moyenne de points: 0

Posté le: Dim 1 Nov - 12:10 (2009)    Sujet du message: pose vos question et demande ICI Répondre en citant

je t'envoie mon msn sur tes msg priver
_________________
On travaille pour reussir


 
Revenir en haut
wissemsat


Hors ligne

Inscrit le: 08 Déc 2009
Messages: 3
Masculin
Point(s): 3
Moyenne de points: 0

Posté le: Ven 18 Déc - 20:34 (2009)    Sujet du message: pose vos question et demande ICI Répondre en citant

:besmellah1:
  
merci pour le sujet,
comment peut-on enregistrer les projets réalisés par TURBO PASCALL?



  

  
  


 
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: Sam 19 Déc - 08:08 (2009)    Sujet du message: pose vos question et demande ICI Répondre en citant

voila comment     file==>save as===> aprer tu choisie le nom du programme  et l'emplacement ===> valider par ok

 
Revenir en haut
dalio


Hors ligne

Inscrit le: 24 Oct 2010
Messages: 1
Masculin
Point(s): 1
Moyenne de points: 0

Posté le: Mer 3 Nov - 22:24 (2010)    Sujet du message: pose vos question et demande ICI Répondre en citant

slt kiféch procedure cryptage
exemple
avant cryptage
ch=aaaFbbssssss
apres cryptage
ch=3a1F2b6s
svp aidez moi


 
Revenir en haut
manianis


Hors ligne

Inscrit le: 11 Aoû 2010
Messages: 95
Masculin
Point(s): 102
Moyenne de points: 0

Posté le: Jeu 4 Nov - 13:16 (2010)    Sujet du message: pose vos question et demande ICI Répondre en citant

Je crois que la question est mal placée. Pour la réponse :

 
Code:

Procedure cryptage(ch : chaine ; var ch2 : chaine)
Résultat = ch2
ch2 = [ch2 <-- "" ; c <-- ch[1] ; cpt <-- 1]
           Pour i de 2 à Long(Ch) Faire
               Si ch[i] = c Alors
                   cpt <-- cpt + 1
               Sinon
                   ConvCh(cpt, ch3)
                   ch2 <-- ch2 + ch2 + c
                   cpt <-- 1
                   c <-- ch[i]
               Fin Si
          Fin Pour
          ConvCh(cpt, ch3)
          ch2 <-- ch2 + ch2 + c 
Je te propose de chercher comment écrire la fonction de décryptage.

 
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: Jeu 4 Nov - 19:27 (2010)    Sujet du message: pose vos question et demande ICI Répondre en citant

VOILA UNE AUTRE SOLUTION
Code:

Program decryptage;
 
uses crt;
 
var result,res,res1:string;var crypt,decrypt:Text;
 
var g,tail,dec,decallage,y:integer;
 
begin
 
clrscr;
 
 Assign(crypt,'C:\crypt.txt');
 
 reset(crypt);
 
 while not eof(crypt) do
 
 readln(crypt,result);
 
 writeln('Le message crypt‚ est:',result,'.');
 
Assign(decrypt,'C:\TP\decrypt.txt');
 
  rewrite(decrypt);
 
  write('Entrez le d‚calage utilis‚ pour le cryptage de ce message:');
 
  read(dec);
 
 tail:=length(result);
 
  for g:=1 to tail do
 
  begin
 
  y:=(((ord(result[g])-97-dec)mod 26)+97);res:=res+chr(y);
 
if ord(result[g])=42 then res:=res+'';end;res1:=res1+res;
 
readln; Writeln(decrypt,res1);
 
begin
 
writeln('Le message (originel) d‚crypt‚ est:',res1,'.');readln;
 
  close(decrypt);
 
 close(crypt); end;
 
 End.


 
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: Ven 5 Nov - 22:10 (2010)    Sujet du message: pose vos question et demande ICI Répondre en citant

VOILA UNE SOLUTION

program crydecry;
uses wincrt;
var
s:string[30];
...J:integer;
begin
writeln(' IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII');
writeln(' II le programme pour crypter ou decrypter votre texte II');
writeln(' II II');
writeln(' IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII');
writeln;
begin
writeln(' entrez votre texte S.V.P:>> ');
read(s);
for j:=1 to length(s)do
case s[j] of
'a','A':s[j]:='Z'; 'b','B':s[j]:='Y'; 'c','C':s[j]:='X'; 'd','D':s[j]:='W'; 'e','E':s[j]:='V';
'f','F':s[j]:='U'; 'g','G':s[j]:='T'; 'h','H':s[j]:='S'; 'i','I':s[j]:='R'; 'j','J':s[j]:='Q';
'k','K':s[j]:='P'; 'i','I':s[j]:='O'; 'm','M':s[j]:='N'; 'n','N':s[j]:='M'; 'o','O':s[j]:='L';
'p','P':s[j]:='K'; 'q','Q':s[j]:='J'; 'r','R':s[j]:='I'; 's','S':s[j]:='H'; 't','T':s[j]:='G';
'u','U':s[j]:='F'; 'V','v':s[j]:='E'; 'w','W':s[j]:='D'; 'x','X':s[j]:='C'; 'y','Y':s[j]:='B';
'z','Z':s[j]:='A'; '0':s[j]:='9'; '1':s[j]:='8'; '2':s[j]:='7'; '3':s[j]:='6';
'4':s[j]:='5'; '5':s[j]:='4'; '6':s[j]:='3'; '7':s[j]:='2'; '8':s[j]:='1';
'9':s[j]:='0'; '*':s[j]:='?'; '?':s[j]:='*'; '/':s[j]:='-'; '-':s[j]:='/';
'+':s[j]:='!'; '!':s[j]:='+'; ' ':s[j]:='#'; '(':s[j]:='@'; '@':s[j]:='(';
')':s[j]:='&'; '&':s[j]:=')'; '.':s[j]:='"'; '"':s[j]:='.'; '=':s[j]:='é';
'é':s[j]:='='; ':':s[j]:='?'; '?':s[j]:=':'; '?':s[j]:=','; ',':s[j]:='?';
end;
writeln(' voila votre texte: ');
writeln(s);
end;
end.


 
Revenir en haut
manianis


Hors ligne

Inscrit le: 11 Aoû 2010
Messages: 95
Masculin
Point(s): 102
Moyenne de points: 0

Posté le: Sam 6 Nov - 10:41 (2010)    Sujet du message: pose vos question et demande ICI Répondre en citant

Bonne proposition...

avant cryptage
ch=aaaFbbssssss
apres cryptage
ch=3a1F2b6s


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 13:09 (2016)    Sujet du message: pose vos question et demande ICI

 
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 -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯ 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