احلى المنتديات منتدى الزارات
مرحبا بك فى احلى المنتديات منتدى الزارات

انضم إلى المنتدى ، فالأمر سريع وسهل

احلى المنتديات منتدى الزارات
مرحبا بك فى احلى المنتديات منتدى الزارات
احلى المنتديات منتدى الزارات
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

bac informatique (cours.exercices.corrigé.devoirs...plus يتبع

اذهب الى الأسفل

bac informatique (cours.exercices.corrigé.devoirs...plus يتبع Empty bac informatique (cours.exercices.corrigé.devoirs...plus يتبع

مُساهمة  Admin الثلاثاء فبراير 23, 2010 12:04 pm

Tri Shell -Recursive-








Voici une procédure récursive qui permet de trier un tableau de n entiers en utilisant la méthode de tri Shell :

Procedure Tri_Shell_Rec (Var t: TAB; n,h : integer);
Var aux,i : integer;
begin
If h > 0 Then
Begin
If n > h Then
begin
Tri_Shell_Rec (t,n - h,h);
If t[n] < t[n - h] Then
Begin
aux:= t[n];
i := n;
Repeat
t[i] := t[i - h];
i := i - h;
Until (i = h) Or (aux > t[i - h]);
t[i] := aux;
End;
End;
Tri_Shell_Rec (t,n,h Div 3);

End;Remarque:

Tester cette procédure sur des tableaux de petites tailles, car si
n’est pas le cas le nombre des appels devient important et en aura le
problème de débordement de la pile (la limite technique de la
récursivité est la mémoire).
On peut augmenter la taille du tableau test on augmentant la taille de
la pile (Option\Compilateur\Paramètres mémoire\Taille pile)








exercice1








Soit les développements limités des fonctions suivantes :

Exp(x) = 1 + (x/1!) + (x^2/2!) + (x^3/3!) + …….

Sin(x)
= x – (x^3/3!) + (x^5/5!) - (x^7/7!) + ……

Cos(x) = 1 – (x^2/2!) + (x^4/4!) - (x^6/6!) + ……

1/(1-x) = 1 + x + x^2 + x^3 + x^4 + x^5 + ….

On demande de :

Ø
Analyser et déduire l’algorithme d’un programme qui permet pour chaque
fonction de calculer sa valeur approchée pour une valeur donnée de réel
x (x dans]-1,1[) à 10^(-6) près.

Ø
Déduire une analyse et un algorithme d’un programme qui calcule une approximation de tang(x) à 10^(-6) près.


Exercice N° 1 : (10 pts)

1) Déclarer en algorithmique et Pascal :
- Le type enregistrement Vols comprenant les champs suivants :
* matricule est une chaîne de 10 caractères ;
* dest est une chaîne de 10 caractères qui désigne la ville d’arrivée,
* décision un booléen qui indique si le vol est annulé ou non;
* compagnie est un énuméré parmi TUNISAIR, NOUVELAIR ou KARTAGO ;
* liste_ps désigne la liste des passagers enregistrés pour ce vol.
Le nombre de passagers est entre 10 et 150 et le champ dat_vol est un enregistrement composé de 2 champs (j: entier, m: chaîne).
- Le type enregistrement Passagers qui mémorise l’ensemble de passagers .Ce type comporte les champs suivants :
· Le champ num_passport est un entier.
· le champ nom est une chaîne de 20 caractères.
· le champ age est un entier.
· le champ e-mail est une chaîne de 20 caractères.
· le champ adresse est une chaîne de 30 caractères.
· Le champ qte_bg est un réel qui désigne la quantité de bagage. Ce nombre est égal à 0 si le passager est sans bagages.
- Les vols sont stockés dans un tableau T_Vol de n vols.

2) Ecrire l’analyse et l’algorithme d’une procédure Affiche qui permet
d’afficher les noms des passagers sans bagages pour un vol donné.

3) Ecrire l’algorithme d’une procédure AffichInf qui pour la compagnie
TUNISAIR affiche les informations concernant les vols annulés pendant
le mois de Juillet et ayant comme destination « Rome », ou bien affiche
le message"Pas de vol annulé " dans le cas ou aucun vol à Rome est
annulé pendant ce mois ou affiche le message " pas de vol", dans le cas
aucun vol n’est organisé à Rome dans ce mois.
N.B : Tracer le tableau de déclaration des objets pour chaque procédure (si cela est nécessaire).

Exercice N° 2 : (5 pts)
On se propose d’enregistrer la liste des passagers d’un vol dans un fichier « C:\Passager.dat ».
1- Ecrire une fonction Vérif qui permet de vérifier la validité de
l’adresse e-mail d’un passager. (Un e-mail est valide s’il contient le
caractère @).
2- Ecrire l’analyse et l’algorithme de la procédure Saisie qui permet
de saisir la liste des passagers et les sauvegarder dans le fichier.
(Utiliser la fonction Vérif définie à la question n°1)

Exercice N° 3 : (5 pts)
Soit la procédure suivante :
Code:Procedure Inconnu (………………………………………………………. ) ;
Var …………………. ;
begin
For i : = 1 to (n-1) do
Begin
For j : = n downto (i 1) do
begin
IF T[ j ] < T [ j - 1] Then
begin
Permut (T[j] , T[j-1])
end ;
end ;
end ;
assign (F , 'C:\liste.dat') ;
…………………………. ;
For i:=1 to n do
Begin
Write (F , T[i]) ;
End;
End;

NB : Permut est une procédure qui fait la permutation de deux variables.

Questions
1. Compléter les pointillés par les données manquantes.
2. Si le tableau T contient :
d
b
A
z
R

Alors le fichier F contient : (mettre ici la réponse...)

3. Que fait cette procédure ?
4. Ajouter les directives de compilation nécessaires pour s’assurer que le fichier associé à F n’existe pas avant sa création.









telecharger flash mx








telecharger flash mx avec crack


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

aritmethique










e triangle de Pascal, est une présentation des
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

dans un
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

. À la ligne i et à la colonne j (0 ≤ ji) est placé le coefficient binomial [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]. Il fut très tôt utilisé pour développer des expressions de la forme [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]








[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] Le triangle de Pascal se construit de la manière suivante : placer 1 au sommet de
Variables :
Tableau de 1 à X de tableau de 1 à X d'entiers c (tableau bidimensionnel)
n ← 10
c[0][0] ← 1

pour i de 1 à n faire
c[0] ← 1
pour [i]j
de 1 à i-1 faire
c[i][j] ← c[i-1][j-1] + c[i-1][j]
finpour
c[i] ← 1
finpour

program triangle_pascal;
uses wincrt;
type Matrice=array[0..10,0..10]of integer;
var
n:integer;
m:Matrice;
procedure remplir(n:integer;var M:Matrice);
var
i,j:integer;
begin
M[0,0]:=1;
for i:=1 to n do
begin
M[i,0]:=1;
for j:=1 to i-1 do M[i,j]:=M[i-1,j-1]+M[i-1,j];
M[i,i]:=1;
end;
end;

procedure affi(n:integer;M:Matrice);
var
i,j:integer;
begin
For i:=0 to n do
begin
For j:=0 to i do
write(M[i,j]:5);
writeln;
end;

end;

begin
n:=10;
writeln('*********** Triangle de Pascal ***********');
readln(n);
remplir(n,m);
affi(n,m);
end.


Programme C++ ]

# include <iostream>
# include <vector>

using namespace std;
typedef vector< vector<int> > Matrice;

Matrice creerTableauPascal(int n)
{
// Création du tableau
Matrice tableau;
tableau.resize(n+1);
for (int i=0; i<=n; ++i)
tableau[i].resize(i+1);

// Remplissage du tableau
tableau[0][0]=1;
for (int i=1; i<=n; i++)
{
tableau[i][0]=1;
tableau[i][i]=1;
for (int j=1; j<i; ++j)
tableau[i][j]=tableau[i-1][j-1]+tableau[i-1][j];
**
return tableau;
**

void afficherTriangle(Matrice tableau)
{
int m = tableau.size();
for (int i=0; i<m; ++i)
{
for (int j=0; j<=i; ++j)
cout << tableau[i][j] << " ";
cout << endl;
**
**

int main()
{
int n=10;
Matrice tableau;
tableau = creerTableauPascal(n);
afficherTriangle(tableau);
return 0;
**



afficher_tableau([i]c
)

Entiers i, j, n, x
1 1 1 1 2 1 1
3 3 1 1 4 6 4 1 1 5 10 10 5 1 1 6 15 20 15 6 1 1 7 21 35 35 21 7 1 1 8
28 56 70 56 28 8 1 1 9 36 84 126 126 84 36 9 1 1 10 45 120 210 252 210
120 45 10 1 1 11 55 165 330 462 462 330 165 55 11 1














cours pdf
pour bac informatique
























الملفات المرفقة حذاري من تحميل ملفات مشبوه بها.

اغلب الاحيان قد تحتوي على ملفات exe صغيرة و تدعي اعمال حصرية !

<table border="0" cellpadding="0" cellspacing="3">
<tr>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]</td>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] (67,6 كيلوبايت, المشاهدات 89)</td>
</tr><tr>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]</td>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] (54,1 كيلوبايت, المشاهدات 51)</td>
</tr><tr>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]</td>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] (165,8 كيلوبايت, المشاهدات 65)</td>
</tr><tr>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]</td>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] (51,9 كيلوبايت, المشاهدات 57)</td>
</tr><tr>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]</td>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] (52,6 كيلوبايت, المشاهدات 48)</td>
</tr><tr>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]</td>
<td>[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] (115,5 كيلوبايت, المشاهدات 46)</td></tr></table>
















Admin
Admin
Admin

رقم العضوية : 01
عدد المساهمات : 3316
تاريخ التسجيل : 19/12/2009
العمر : 68

https://zarat.yoo7.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى