تعلم لغة الباسكال - التعليمات، بنية الشرط، تعليمات التكرار

زوروني في موقعي الشخصي
http://www.baekoasis.i8.com/



التعليمات :
إضافة إلى التعليمات البسيطة المذكورة آنفا أي الإسناد والقواعد والكتابة هناك تعليمات أخرى نذكر منها :
(1) التعليمات الشرطية : التعليمات الشرطية تسمح بتنفيذ تعليمة أو مجموعة تعليمات عند تحقق شرط ما أوعند عدم تحققه حسب ما
يريده المبرمج.

الشكل العام
الشكل الأول :

إذا تحقق الشرط أو الشروط ننفذ التعليمة أو التعليمات و إلا فلا شيء ينفذ.

الشكل الثاني :
إذا تحقق الشرط ننفذ expressions1 وعند عدم تحققه تنفذ التعليمات expressions2.

ملاحظات : (1) هناك فاصلة منقوطة ( واحدة لكل if .
(2) إذا كانت expression تحتوي أكثر من تعليمة فإننا نضعهم بين begin end

الشروط : الشرط هوعبارة عن مقارنة بين شيئين (متغيرات أو عبارات أو ثوابت) وتعطي نتيجة منطقية صح أو خطأ
true أو false ، ومعاملات المقارنة هي : > ، >= ، < ، <= ، = ، <> .

مثال :
إذا كانت قيمة X تختلف عن 4: فإن 4 <> X يعطي true كأن 6 = X مثلا .
أما إذا كانت قيمة X تساوي 4 فإن الشرط يعطي false .



أمثلة :
(1) برنامج يظهر كلمةPOSITIF إذا كان العدد المعطي موجبا أي يساوي 0 :

program positif;
var X : integer ;
begin
read (X );
if X > = O then
write ('POSITIF');
end .
(2) برنامج يحسب القيمة المطلقة لعدد حقيقي :

program absolu ;
var X , abs : real ;
begin
read (X) ;
if X > = 0 then
abs : = X
else
abs : = - x ;
write (abs ) ;
end .

(3) برنامج يحل معادلة من الدرجة الأولى : x = - b / a

program Eqd1 ;
var a , b, X : real ;
begin
read (a , b ) ;
if (a = 0 ) and ( b =0 ) then
write ( ' infinité de solutions' )
else
if a = 0 then
write (' impossible' )
else
begin
X : = - b / a;
write(X);
end ;
end .

(2) الإختيار المتعدد :
إذا كان الإختيار بين أكثر من خيارين التي في if ، فإننا نلجأ إلى case في مكان عدة if ، التي تسمح بتنفيذ تعليمة.
الشكل العام :
1) الشكل الأول :
case ch of
Ch1 : instruction1 ;
Ch2 : instruction2 ;
ChN : instructionN ;
end ;

أو عدة تعليمات من عدة خيارات متوفرة حسب قيمة المختار ،
2) الشكل الثاني :
case CH of
Ch1 : inst1;
Ch2 : inst2 ;
ChN : instN ;
else
Autre inst ;

مثال :
program operation ;
var A , B , X : real ;
C : char;
begin
readln( a , b ) ;
readln( c ) ;
Case C of
' + ' : X : = A + B ;
'-' : X : = A - B ;
'*' : X := A * B;
'/' : X := A / B;
end ;
writeln('les resultat est : ', X);
end .


program operation2 ;
var A ,B , X : real ;
i : integer ;
begin
readln ( A, B) ;
readln(i) ;
case i of
1: X : = A + B ;
2 : X : = A – B ;
3 : X : = A * B ;
else
X := A / B;
writeln (X);

end .
تعليمات التكرار :
لباسكال ثلاث تعليمات للتكرار :
1) التعليمة do … while (مادام ) :
تسمح بتكرار تعليمة أو مجموعة تعليمات مادام الشرط الموضوع متحققا .
الشكل العام : while conditions do instruction ;
ملاحظات :
1) مكونات الشرط لابد أن تتغير في تعليمات التعليمة حتى لا تصبح حلقة لانهائية .
2) إذا كانت في while أكثر من تعليمة فإننا نضعهم بين . end … Begin
أمثلة :
مثال 1: برنامج يحسب مجموع الأعداد الصحيحة من 1 إلى 100 .
program somme100 ;
var som , i : integer ;
begin
som : = 0 ;
i : = 1 ;
while i <= 100 do
begin
som := som + i;
i := i +1;
end ;
writeln (som) ;
end .
مثال :
program factoriel ;
var Fact , N : integer ;
begin
read ln (N) ;
Fact : = 1 ;
while N < > 1 do
begin
Fact : = fact * N ;
N : = N – 1 ;
End;
writeln (fact ) ;
end .
2/ التعليمة repeat until : كرر حتى :
تسمح بتكرار تنفيذ تعليمة أو مجموعة تعليمات حتى يصبح الشرط الموضوع محققا .
الشكل العام : repeat
Instructios ;
until conditions ;
ملاحظة :
1/ الشرط لابد أن يتغير في الحلقة .
أمثلة :
program multipcation10 ;
var Res , i : integer ;
Begin
Res : = 1 ;
i : = 10;
repeat
Res : = Res * i ;
i : = i – 1 ;
until i = 1 ;
writeln(res);
end .
التعليمة for لأجل :
التعليمة for تسمح بتكرار تنفيذ مجموعة تعليمات أثناء عداد يتحرك من قيمة إبتدائية إلى قيمة نهائية .
ولها شكلان :
الشكل الأول : for i : = valMin to valMax do
Instructions ;
الشكل الثاني : for i : = valMax downto valMin do
Instructions ;
ملاحظات :
1 / إذا كانت أكثر من تعليمة فإننا نضعهم بين . end … Begin
2 / العداد نوعه صحيح ويتحرك آليا بخطوة واحدة .
مثال1 :
program factoriel;
var Fact , N , i : integer ;
begin
read ln (N) ;
Fact : = 1 ;
for i : = N downto 1 do
Fact : = Fact * i ;
writeln (fact) ;
end .

مثال 2 :
program somme 100 ;
Var som , I : integer ;
Begin
Som : 0 ;
for i : = 1 to 100 do
Som : = som + i ;
write ln (som) ;
end .
المعطيات المركبة في باسكال :
http://www.baekoasis.i8.com/