Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Mme Mkhinini Raja Bac Scientifiques Bac scientifiques fonction et procédure pro

Mme Mkhinini Raja Bac Scientifiques Bac scientifiques fonction et procédure prof:Mkhinini Raja 1) Saisir un caractère Majuscule. Def Proc saisie_majus (var c : caractère) Répéter Ecrire (‘’Donner un caractère’’) Lire(c) Jusqu'à c dans ["A".."Z’","a".."z"] Fin saisie_majus 2) Saisir une chaîne de caractère non vide et de longueur maximale égale à 20. Def Proc saisie_ch (var ch : chaine) Répéter Ecrire (‘’Donner une chaine’’) Lire(ch) Jusqu'à long(ch) dans [1..20] Fin saisie_ch 3) Saisir un entier compris entre 10 et 100 Def Proc saisie_n (var n : entier) Répéter Ecrire (‘’Donner un nombre") Lire(n) Jusqu'à n dans [10..100] Fin saisie_n 4) Vérifier si chaîne donnée est alphabétique ou non. Def FN Verif (ch : chaine) : booléen Testvrai i1 Répéter Si ch[i] dans ["A".."Z’","a".."z"] Alors ii+1 Sinon Test  faux FinSi Jusqu'à (i>long(ch)) ou (test=faux) Verif  test Fin Verif 5) Remplir un tableau T par N entiers positifs croissant. Def Proc CroiTab(var t : tab ; n : entier) Ecrire (‘’Donner élément 1 du tableau’’) Lire(t[1]) Pour i de 2 a n faire Répéter Ecrire (‘’Donner T[‘’,i,’’] ") Lire(t[i]) jusqu'à (t[i]>t[i-1]) FinPour Fin CroiTab 6) Remplir un tableau T par N caractères aléatoires Def Proc Aleatoire (var t : tab ; n : entier) Pour i de 1 à n faire T[i] chr(alea(256))) FinPour Fin Aleatoire 7) Afficher un tableau T de N éléments. Def Proc Affiche (T : tab ; n :entier) Pour i de 1 a n faire Ecrire ("T[",i,"]= ", T[i] ) Fin Pour Fin Affiche 8) Calculer la somme de 2 entiers Def FN somme(a,b:entier):entier; Sa+b Sommes Fin somme 9) Compter l'occurrence (nombre d'apparition) d'un caractère dans une chaîne. Def FN Occ (c : caractère, ch :chaine) :entier n  0 Pour i de 1 à n faire Si ch[i]=c alors n n+1 Fin Pour Occ n Fin Occ 10) Compter l'occurrence d'un entier dans un tableau. Def FN Occ (x : entier, t :tab) :entier n  0 Pour i de 1 à n faire Si t[i]=x alors n n+1 Fin Pour Occ n Fin Occ 11) Vérifier la présence d'un caractère dans une chaîne. Def FN Present (c : caractère, ch : chaine) : booléen Test  faux i  1 Repeter Si (ch[i]=c) alors Test  vrai FinSi i  i+1 jusqu'à ( i>long(ch)) ou (test=vrai) present test Fin Present Mme Mkhinini Raja Bac Scientifiques Bac scientifiques fonction et procédure prof:Mkhinini Raja 1) Saisir une chaine qui ne contient pas d'espaces et contient le '@'. DEF proc SAISIE(var ch:chaine) repetrer écrire("donner une chaine") lire(ch) jusqu'à (pos(" ",ch)=0) et (pos("@",ch)>0) Fin saisie. 2) Inverser une chaîne de caractère. Def FN Inverse ( ch : chaine):chaine ch1"" ilong(ch) repeter ch1ch1+ch[i] i i-1 jusqu’à (i<1) inversech1 Fin Inverse 3) Calculer la puissance de2 entiers Def FN puissance (a,b:entier):longint P1 Pour i de 1 à b faire pp*a Puissancep Fin puissance 4) Calculer le factoriel d'un entier Def FN factoriel (x:entier):longint f1 Pour i de 2 à x faire ff * i factoriel  f Fin factoriel 5) Déterminer le maximum dans un T Def FN maxi_t (t:tab;n:entier):entier Maxt[1] Pour i de 2 à n faire Si t[i]>max alors maxt[i] Maxi_tmax Fin max_t 6) Déterminer le minimum dans T Def FN min_t (t:tab;n:entier):entier Mint[1] Pour i de 2 à n faire Si t[i]<min alors mint[i] Min_t min Fin min_t 7) Vérifier l'existence d'un entier dans tableau Def FN exist (t:tab; n:entier ): booleen i1 test faux repeter si t[i]=x alors testvrai sinon ii+1 fin si jusqu'à (test = vrai) ou (i>n) existtext Fin exist 8) Vérifier si une chaine est palindrome ou non Def FN palaindrome (ch:chaine):booleen Testvrai ii+1 Répeter si ch[i]=ch[long(ch)-i+1] alors ii+1 sinon testfaux finsi jusqu'à (test=faux) ou (i> long(ch) div 2) palaindrometest Fin palaindrome 9) Déterminer si un entier est premier ou pas Def FN premier (n:entier):booleen i2 testvrai Répéter Si n mod i = 0 alors Testfaux Sinon i i+1 Jusqu’à (test=faux) ou (i> n div 2) Premiertest Fin premier Application : afficher tous les nombres premier € [1..100] program application; uses wincrt; var n:integer; j:integer; function premier (n:integer):boolean; var i:integer; test: boolean; begin i:=2; test:=true; repeat if n mod i = 0 then Test:=false else i :=i+1; until (test=false )or (i> (n div 2)); premier:= test; end; begin for j:=1 to 100 do begin if premier(j)=true then write(j,'/'); end; end. uploads/Litterature/ resume-info 1 .pdf