Admin Admin
عدد المساهمات : 77 تاريخ التسجيل : 13/02/2010
| موضوع: تقني في الاعلام الالي الإثنين نوفمبر 28, 2011 1:18 pm | |
| exercice 0 2 On appelle trace d'une matrice carrée d'ordre m la somme des élément de sa diagonale principale . * Ecrire un programme en langage pascal qui permet de : - saisir les élément de matrice puis - Déterminer le minimum de la matrice - calculer la trace de la matrice
;program matrice var (mat : array (1...N,1....N MIN , T,I,J:integre; BEGIN FORE i := 1 to N DO FOR j : = 1 to N DO ;((read (mat (I,J (M : = mat (1,1 FOR i :=1 TO N DO FOR J := 1 TO N DO IF MAT ( I ,J )<MIN THEM ;(MIN := MAT( I,j ;(WRITE (MIN T := 0 FOR I:= 1 TO N DO FOR J:= 1 TO N DO FOR I = J THEN (T:= T+MAT( I,J ;(WRITE (T END .
عدل سابقا من قبل Admin في الجمعة ديسمبر 02, 2011 1:19 pm عدل 4 مرات | |
|
Admin Admin
عدد المساهمات : 77 تاريخ التسجيل : 13/02/2010
| موضوع: رد: تقني في الاعلام الالي الإثنين نوفمبر 28, 2011 9:13 pm | |
| EXERCICE 03 ECRIRE UN PROGRAMME EN LANGAGE PASCAL PERMETTANT DE SAISIR LES NOTES D'ne classe de 25 stagiaires puis afficher la note moyenne de la classe et le nombre de stagiaires ayant une note supérieur a la note moyenne de la classe . ******************************************************************************************* .;programmee tableau VAR T :array (1...25) OFintegre; C , MOY , SOM , I : integr;
BEGIN FOR I := 1 TO 25 DO READ ( T(I)); SOM := SOM + T (I); MOY := SOM/25; WRITE (MOY); C:=0; FOR I:=1 TO 25 IF T(I)>MOY THEN C:= C+1; WRITE (C); EN
D [/left]
عدل سابقا من قبل Admin في الجمعة ديسمبر 02, 2011 3:21 pm عدل 3 مرات | |
|
Admin Admin
عدد المساهمات : 77 تاريخ التسجيل : 13/02/2010
| موضوع: رد: تقني في الاعلام الالي الأربعاء نوفمبر 30, 2011 8:25 am | |
| EXERCICE 01 *********** QUESTION 01
01- Quelle est la différence entre le type structuré ARRAY et le type ENREGISTREMENT en langage pascal 02- Donner la syntaxe permettant de déclarer un type ARRAY et un type ENREGISTREMENT
QUESTION 02 ************* - le type ficher est une structure de donnée en langage pascal pour manipuler le type fichier en utilise un ensemble de procédures et fonctions . - donner le rôle des procédures suivantes : ASSIGN . RESET . WRITE . REWRITE . SEEK
EXERCICE 02
************ On appelle trace d une matrice carrée d’ordre m la somme des éléments de sa diagonale principale. Ecrire un programme en langage pascal qui permet de - Saisir les éléments de la matrice puis - Déterminer le minimum de la matrice - Calculer la trace de la matrice
EXERCICE 03 ************ Ecrire un programme en langage pascal permettant de saisir les notes d’une classe de 25 stagiaires puis afficher la note moyenne de la classe et le nombre de stagiaires ayant une note supérieur a la note moyenne de la classe Exemple
Note 1 Note 2 Note 3 Note 4 Note 5 Note 6 14 07 15 06 17 13
La note moyenne est : 12 Le nombre de stagiaires ayant une note supérieure a 12 est 4
EXERCICE 04 ************
Ecrire un programme pascal qui permet de compter le nombre des élément nuls d’un tableau T Exemple
1 2 3 4 5 6 1 50 0 3 6.3 0
Le nombre des éléments nuls est 2 | |
|
Admin Admin
عدد المساهمات : 77 تاريخ التسجيل : 13/02/2010
| موضوع: رد: تقني في الاعلام الالي الجمعة ديسمبر 02, 2011 3:29 pm | |
|
PROGRAM COMPT ; VAR
T :array (1...N) OFintegre; C ,I : integr;
BEGIN C:= 0; FOR I := 1 TO N DO BEGIN
READ T(I); C:=C+1; WRITE (C); .END
| |
|
Admin Admin
عدد المساهمات : 77 تاريخ التسجيل : 13/02/2010
| موضوع: رد: تقني في الاعلام الالي السبت ديسمبر 03, 2011 2:32 pm | |
| الفرق بين التعليمة array و النوع enregistrement
المصفوفة ARRAY كلمة محجوزة تمثل مجموعة من العناصر من نفس النوع ومخزنة تحت إسم واحد يمثل إسم المصفوفة، ويمكن الوصول إلى أي عنصر من عناصر المصفوفة بمعرفة ترتيبه فيها.
يحتوي على مجموعة من العناصر كل عنصر يعرف على حدى الجدول يسجل في الداكرة المركزية في حين التسجيلة تسجل في ملفات فى الداكرة الثانوية
la syntaxe خاص بالجدول var نوع العننصر( ARRAY ( 1......N
N _- قيمة ثابتة
خاص بالملف
var type recorde اسم التسجيلة التصريح بمتغيرات مختلفة حسب الحاجة .end
| |
|