sc2mosta

LE LANGAGE DE PROGRAMMATION PASCAL .
 
AccueilPortailCalendrierGalerieFAQRechercherMembresGroupesS'enregistrerConnexion
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
» NOTE EMD1 + EMD2+ DS + RAT. 2010-2011
Dim 18 Sep - 13:58 par maachou mohamed

» TD NO 02
Mer 14 Sep - 18:12 par BENYAMINA MOHAMED RABEH

» cours numéro 03
Mer 14 Sep - 15:19 par belhocine faycal.g1

» cours numéro 02
Mar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 01
Mar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 06
Mar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 04
Mar 13 Sep - 18:18 par BENYAMINA MOHAMED RABEH

» pascal en arabe
Mar 13 Sep - 18:18 par BENYAMINA MOHAMED RABEH

» cours numéro 08
Mar 13 Sep - 18:17 par BENYAMINA MOHAMED RABEH

Marque-page social
Conservez et partagez l’adresse de sc2mosta sur votre site de social bookmarking
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Forum
Partenaires
Forum gratuit



Tchat Blablaland

Partagez | 
 

 Sujet EMD1 2008 - 2009

Aller en bas 
AuteurMessage
Admin
Admin
avatar

Messages : 23
Points : 39
Réputation : 16
Date d'inscription : 15/03/2008
Age : 57
Localisation : MOSTAGANEM

MessageSujet: Sujet EMD1 2008 - 2009   Mer 28 Jan - 10:21

UNIVERSITÉ DE MOSTAGANEM...........................Fevrier 2009
FACULTE DES DROITS ET DES SCIENCES COMMERCIALES
2EME ANNEES SCIENCES COMMERCIALES
MODULE : INFORMATIQUE



E.M.D.1

EXERCICE 01 : ( 8 pts )
Soit le programme suivant :
PROGRAM tva ;
CONST
Tx = 0.07 ;
N = 3 ;
VAR
PU , Qte , Totht , Tva , Totttc : REAL ;
I : INTEGER ;
BEGIN
Qte := 1500 ;
IF Qte>2000 then
PU := 25.99;
IF Qte<2000 then
IF Qte>1000 then
PU := 30.99 ;<----------------------Pas de point virgule parceque ELSE vient juste apres
ELSE
PU := 40.99;
Totht := PU * qte ;
Tva := 0.00;
FOR I := 1 TO N DO
BEGIN
Tva := Tva + Totht * Tx;
Totttc := totht + tva;
WRITELN(‘Annee ‘,I);
WRITELN(‘Total ht : ‘,Totht:10:2);
WRITELN(‘Tva: ‘,Tva:15:2);
WRITELN(‘ -------------‘);
WRITELN(‘Total ttc: ’, Totttc:10:2);<--Pas de point virgule parceque c'est la derniere instruction dans une instruction compose
END;
END.

CORRIGEZ LES ERREURES ET EXECUTEZ LE PROGRAMME.
صحح ونفذ البرنامج.


EXERCICE 02 : ( 6 pts )

Exécutez le programme Pascal Suivant : نفذ البرنامج بسكال الاتي

PROGRAM EX3 ;
VAR
A, B, C, D, E, F, G, H, I, J : REAL ;
BEGIN
A := 3.14159;
WRITELN(A:10:2);
IF A> 5 THEN B := A – 2 ELSE B := A + 2;
WRITE(B:5:2);
IF A<B AND B> 3 THEN C := B + 5 ELSE C:= B - 5;
WRITELN(C:8:1);
D := A – B / C ;
WRITELN(D:6:2);
E := C MOD B;
WRITE(E:9:1);
F := A + C / B - D ;
WRITE(F:5:2);
G := (D – B) * ( A + B * ( C – A) + D);
WRITELN(G:7:2);
H := C / G;
WRITELN(H:6:3);
I := H * D;
WRITELN(I:7:4);
J := I DIV B;
WRITELN(J:3:1);
END;


EXERCICE 03 : ( 6 pts )

Exécutez le programme Pascal Suivant : نفذ البرنامج بسكال الاتي

PROGRAM ex3 ;
VAR
I , N : INTEGER ;
BEGIN
N := 10 ;
FOR I := 1 TO N DO
WRITELN( I,’ ‘,I+I,’ ‘,I*3) ;
END;





AMMOUR A.


Dernière édition par Admin le Mar 3 Mar - 11:02, édité 4 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sc2mosta.forums-actifs.com
Berouasse Soufiane

avatar

Messages : 5
Points : 193
Réputation : 1
Date d'inscription : 17/04/2009

MessageSujet: Re: Sujet EMD1 2008 - 2009   Sam 18 Avr - 16:22

flower شكرا استاذنا على كل مجهوداتك، ونتمنى ان تلقى ثمرتها. flower
طالبك المخاص برواس بن عيسى

نرجو من كل الزملاء شكر الأستاذ، فمن لا يشكر الناس لا يشكر الله
ودمتم أوفياء
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.google.dz
KREIRI AKILA

avatar

Messages : 85
Points : 118
Réputation : 3
Date d'inscription : 09/12/2009
Age : 33
Localisation : mostaganem

MessageSujet: salam   Sam 19 Déc - 15:21

merci mon prof por les sujet et corction
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
chahraze
Invité



MessageSujet: slt   Ven 22 Jan - 23:21

BONNE SOIR MERCI POUR LE SUJET ET LA CORRECTION
Revenir en haut Aller en bas
zoubida



Messages : 33
Points : 39
Réputation : 0
Date d'inscription : 25/11/2009

MessageSujet: BOUKHOUDMI ZOUBIDA G03   Mer 27 Jan - 13:41

سألك يا رب باسمك الاعظم وبصفاتك العلى أن تفرش لاستاذي دربا من نور وتجعل وجهه دائما مسرور وتملأ قلبه بذكرك يا غفور وتجعل له الصراط سهلا للعبور وتجمعنا به في جنات النعيم امين[/size]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
khoussa
Invité



MessageSujet: les exercice   Jeu 28 Jan - 16:50

bon soir
Revenir en haut Aller en bas
fatima abbou

avatar

Messages : 41
Points : 62
Réputation : 0
Date d'inscription : 16/01/2010
Localisation : mostaganem

MessageSujet: &#1575;&#1604;&#1587;&#1604;&#1575;&#1605; &#1593;&#1604;&#1610;&#1603;&#1605;   Jeu 28 Jan - 19:30

شكرا جزيلا استادنا الكريم على كل المجهودات alien geek santa cherry
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
fatima abbou

avatar

Messages : 41
Points : 62
Réputation : 0
Date d'inscription : 16/01/2010
Localisation : mostaganem

MessageSujet: Re: Sujet EMD1 2008 - 2009   Jeu 28 Jan - 19:31

ان شاء الله امتحان هده السنة يكون سهل وفي متناول الجميع
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ب&
Invité



MessageSujet: Re: Sujet EMD1 2008 - 2009   Jeu 28 Jan - 19:52

سلام عليكم.......بوزيدي مريم g3
Revenir en haut Aller en bas
berrezou
Invité



MessageSujet: presentation   Lun 1 Fév - 16:53

salut prof
Revenir en haut Aller en bas
tahri im
Invité



MessageSujet: salam   Lun 1 Fév - 17:04

asalamo 3alaykom warahmato allah 3alaykom wabarakatoh. Shocked
Revenir en haut Aller en bas
tawfik Benziane



Messages : 12
Points : 17
Réputation : 0
Date d'inscription : 11/02/2010

MessageSujet: assalamo 3alaykom   Mar 11 Mai - 20:48

Admin a écrit:
UNIVERSITÉ DE MOSTAGANEM...........................Fevrier 2009
FACULTE DES DROITS ET DES SCIENCES COMMERCIALES
2EME ANNEES SCIENCES COMMERCIALES
MODULE : INFORMATIQUE



E.M.D.1

EXERCICE 01 : ( 8 pts )
Soit le programme suivant :
PROGRAM tva ;
CONST
Tx = 0.07 ;
N = 3 ;
VAR
PU , Qte , Totht , Tva , Totttc : REAL ;
I : INTEGER ;
BEGIN
Qte := 1500 ;
IF Qte>2000 then
PU := 25.99;
IF Qte<2000 then
IF Qte>1000 then
PU := 30.99 ;<----------------------Pas de point virgule parceque ELSE vient juste apres
ELSE
PU := 40.99;
Totht := PU * qte ;
Tva := 0.00;
FOR I := 1 TO N DO
BEGIN
Tva := Tva + Totht * Tx;
Totttc := totht + tva;
WRITELN(‘Annee ‘,I);
WRITELN(‘Total ht : ‘,Totht:10:2);
WRITELN(‘Tva: ‘,Tva:15:2);
WRITELN(‘ -------------‘);
WRITELN(‘Total ttc: ’, Totttc:10:2);<--Pas de point virgule parceque c'est la derniere instruction dans une instruction compose
END;
END.

CORRIGEZ LES ERREURES ET EXECUTEZ LE PROGRAMME.
صحح ونفذ البرنامج.


EXERCICE 02 : ( 6 pts )

Exécutez le programme Pascal Suivant : نفذ البرنامج بسكال الاتي

PROGRAM EX3 ;
VAR
A, B, C, D, E, F, G, H, I, J : REAL ;
BEGIN
A := 3.14159;
WRITELN(A:10:2);
IF A> 5 THEN B := A – 2 ELSE B := A + 2;
WRITE(B:5:2);
IF A<B AND B> 3 THEN C := B + 5 ELSE C:= B - 5;
WRITELN(C:8:1);
D := A – B / C ;
WRITELN(D:6:2);
E := C MOD B;
WRITE(E:9:1);
F := A + C / B - D ;
WRITE(F:5:2);
G := (D – B) * ( A + B * ( C – A) + D);
WRITELN(G:7:2);
H := C / G;
WRITELN(H:6:3);
I := H * D;
WRITELN(I:7:4);
J := I DIV B;
WRITELN(J:3:1);
END;


EXERCICE 03 : ( 6 pts )

Exécutez le programme Pascal Suivant : نفذ البرنامج بسكال الاتي

PROGRAM ex3 ;
VAR
I , N : INTEGER ;
BEGIN
N := 10 ;
FOR I := 1 TO N DO
WRITELN( I,’ ‘,I+I,’ ‘,I*3) ;
END;





AMMOUR A.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
larabi*maamar

avatar

Messages : 97
Points : 127
Réputation : 0
Date d'inscription : 17/12/2009
Age : 48
Localisation : algerie. mostaganem

MessageSujet: BONNE COURAGE   Jeu 20 Mai - 12:05

BONNE COURAGE POUR LES EXAMENS UN PEU DE PATIENCE

lol! lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
zakaria bachir bouiadjera



Messages : 22
Points : 26
Réputation : 0
Date d'inscription : 02/02/2011

MessageSujet: Re: Sujet EMD1 2008 - 2009   Jeu 3 Fév - 13:08

BON COURAGE
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Bachir Elezaar Faiza

avatar

Messages : 704
Points : 707
Réputation : 0
Date d'inscription : 26/11/2010
Age : 27

MessageSujet: Re: Sujet EMD1 2008 - 2009   Jeu 3 Fév - 16:16

Merci santa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
modta nounou(saiad a.e.k)

avatar

Messages : 45
Points : 47
Réputation : 0
Date d'inscription : 09/05/2011
Age : 28

MessageSujet: Re: Sujet EMD1 2008 - 2009   Ven 20 Mai - 21:19

شكرا استاذنا على كل مجهوداتك، ونتمنى ان تلقى ثمرتها. flower
طالبك المخاص برواس بن عيسى

نرجو من كل الزملاء شكر الأستاذ، فمن لا يشكر الناس لا يشكر الله
ودمتم أوفياء
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lahouel aicha



Messages : 220
Points : 239
Réputation : 15
Date d'inscription : 11/11/2010
Age : 27

MessageSujet: Re: Sujet EMD1 2008 - 2009   Sam 21 Mai - 0:17

bnsr professeur sava
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
oudia moh



Messages : 32
Points : 36
Réputation : 0
Date d'inscription : 11/05/2011

MessageSujet: Re: Sujet EMD1 2008 - 2009   Sam 21 Mai - 2:04

oudia Mohamed amine g4 lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
abdelrahman latroch



Messages : 27
Points : 32
Réputation : 0
Date d'inscription : 16/05/2011

MessageSujet: Re: Sujet EMD1 2008 - 2009   Sam 21 Mai - 2:41

abderahman latroch G3 lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
amell kharoubi



Messages : 29
Points : 36
Réputation : 0
Date d'inscription : 12/05/2011

MessageSujet: Re: Sujet EMD1 2008 - 2009   Sam 28 Mai - 0:26

bonne nuit
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
BENYAMINA MOHAMED RABEH



Messages : 35
Points : 35
Réputation : 0
Date d'inscription : 12/09/2011

MessageSujet: Re: Sujet EMD1 2008 - 2009   Lun 12 Sep - 21:31

merci mon prof
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Sujet EMD1 2008 - 2009   

Revenir en haut Aller en bas
 
Sujet EMD1 2008 - 2009
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Promo : East-Tec Backup 2009 gratuit (jusqu'au 31/7 seulement)
» En 2009: TOONIC et PANORAMIC
» E=M6
» [Résolu] avira version 9.0
» Windows Live Messenger 2009

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
sc2mosta :: TD et SUJET,CORRECTION ET NOTES EMD-
Sauter vers: