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


تــــــــواصـــــــــــل بــــــــلا حـــــدود
 
الرئيسيةالبوابةأحدث الصورالتسجيلدخول

 

 تقني في الاعلام الالي

اذهب الى الأسفل 
كاتب الموضوعرسالة
Admin
Admin
Admin


عدد المساهمات : 77
تاريخ التسجيل : 13/02/2010

تقني في الاعلام الالي Empty
مُساهمةموضوع: تقني في الاعلام الالي   تقني في الاعلام الالي Emptyالإثنين نوفمبر 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 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://layal.yoo7.com
Admin
Admin
Admin


عدد المساهمات : 77
تاريخ التسجيل : 13/02/2010

تقني في الاعلام الالي Empty
مُساهمةموضوع: رد: تقني في الاعلام الالي   تقني في الاعلام الالي Emptyالإثنين نوفمبر 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 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://layal.yoo7.com
Admin
Admin
Admin


عدد المساهمات : 77
تاريخ التسجيل : 13/02/2010

تقني في الاعلام الالي Empty
مُساهمةموضوع: رد: تقني في الاعلام الالي   تقني في الاعلام الالي Emptyالأربعاء نوفمبر 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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://layal.yoo7.com
Admin
Admin
Admin


عدد المساهمات : 77
تاريخ التسجيل : 13/02/2010

تقني في الاعلام الالي Empty
مُساهمةموضوع: رد: تقني في الاعلام الالي   تقني في الاعلام الالي Emptyالجمعة ديسمبر 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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://layal.yoo7.com
Admin
Admin
Admin


عدد المساهمات : 77
تاريخ التسجيل : 13/02/2010

تقني في الاعلام الالي Empty
مُساهمةموضوع: رد: تقني في الاعلام الالي   تقني في الاعلام الالي Emptyالسبت ديسمبر 03, 2011 2:32 pm

الفرق بين التعليمة array و النوع enregistrement



المصفوفة ARRAY كلمة محجوزة تمثل مجموعة من العناصر من نفس النوع ومخزنة تحت إسم واحد يمثل إسم المصفوفة، ويمكن الوصول إلى أي عنصر من عناصر المصفوفة بمعرفة ترتيبه فيها.

يحتوي على مجموعة من العناصر كل عنصر يعرف على حدى
الجدول يسجل في الداكرة المركزية في حين التسجيلة تسجل في ملفات فى الداكرة الثانوية

la syntaxe
خاص بالجدول
var
نوع العننصر( ARRAY ( 1......N

N _- قيمة ثابتة


خاص بالملف

var
type
recorde
اسم التسجيلة التصريح بمتغيرات مختلفة حسب الحاجة
.end
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://layal.yoo7.com
 
تقني في الاعلام الالي
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» مواقع لمنتديات بها نماذج اسئلة تقني و تقني سامي اعلام آلي وبرمجة
» 23 نموذج أسئلة أمتحان مسابقة توظيف تقني سامي اعلام آلي

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