الموضوع: الخوارزميات-العدد 5

[ALIGN=CENTER][TABLETEXT="width:70%;background-colorrange;border:4px double red;"][CELL="filter:;"][ALIGN=center]






عدت لكم بعد عيد الفطر المبارك , اليوم درسنا خفيف وسهل

الموضوع : العمليات وبعض الدوال في الباسكال

** نحن اليوم نتحدث عن العمليات على العناصر وليس المجموعات لانفي المجموعات شيء أخر...

**انتم تعرفون العمليات سهلة وبسيطة

***ملاحظة هامة*****************

العلامة " = " تكتب في الباسكال "=:"

و العلامة " ≠" تكتب في الباسكال"<>"

***************************

1- الجمع: يرمز لعملية الجمع بــ "+"

مثال
a+b:=c

2- الضرب : يرمزله بــ "*"

مثال
c:=a*b

3- الطرح: يرمزله بــ "-"

مثال
c:=a-b

4- القسمة : يرمز لها بــ "/"

مثال
c:=a/b

*** و بهذا نكون انهينا شروحات العمليات

**** واليكم الأن بعض الدوال في المستخدمة في الباسكال ( الخوارزميات )


و أحببت أيضا ان أضع بعض الدوال الأخرى غير الموجود في الجدول وهي كذلك مهمة

1- concat :
وهي دالة الدمج , مثلا

كود:

concat(hamza,mochref);

يكون الناتج

hamzamochref بدون فاصلة بين الكلمتين

2- length :

وهي دالة حساب عدد الأحرف , مثلا

كود:

length(sciencecollector);

يكون الناتج

16 حرف , وهو طول الكلمة ( عدد أحرفها )

***و هناك دوال أخرى لستم بقادرين على فهمها الأن سأشرحها في أوانها ...وشكرا

انتهى الدرس ...الى الدرس القادم


هدية العدد

هدية العدد هي فيديو سأضعها بعد 3 من مشاركاتكم ,سكارة فيكم

ههههههههههههههههههههههههه ههه

[/ALIGN][/CELL][/TABLETEXT][/ALIGN]

بارك الله فيك أخيحمزة_89

مشكوووووووووووووووووووووو وووور على المرورووووووووور

شكرا أخي حمزة على دروسك الرائعة.
و هذا مثال على الدرس عملته للتو .
المثال يحتوي على تعليمات لم يتم التطرق لها بعد مثل الحلقات les boucles و الإجراءات les procedures و لكن لا بأس فهي فقط لتحسين البرنامج .
لقد قمت باستعمال دالة لكتابة الجمل حرفا حرفا و كذلك استعملت حلقة التكرار while من أجل البقاء في البرنامج إلى أن يدخل المستخدم حرف N 'لا'
و كذلك قمت باستعمال أداة الشرط if ..else .
دون إطالة هذا هو البرنامج :

كود:

program operation;
uses crt;
var str:string;
    op1:integer;
    op2:integer;
    resultat:integer;
    operation,repeter:char;
    rep:boolean;

procedure typing(str:string);
var i:integer;
begin
for i:=1 to length(str)
do
begin
write(str);
delay(30*30);
end;
end;

begin
clrscr;
rep:=true;
while rep=true do
begin
typing('	 PROGRAMME :SIMPLE CACULATRICE ');
writeln;
writeln;
typing('Saisie le premier operande:> ');
readln(op1);
typing('Saisie l''operation:> ');
readln(operation);
typing('Saisie le deuxieme operande:> ');
readln(op2);
case operation of
'+':resultat:=op1+op2;
'-':resultat:=op1-op2;
'*':resultat:=op1*op2;
'/':resultat:=op1 div op2;
end;

writeln('Resultat=',op1,' ',operation,' ',op2,'= ',resultat);
writeln;
typing('Repeter ? (O,N):>');
readln(repeter);
if (repeter='n') then
begin
rep:=false;
writeln;
writeln('  au revoir ! ');
end
else
begin
rep:=true;
clrscr;
end;
end;
readln;
end.

كما يمكن تحميل البرنامج مع ملف التنفيذ من المرفقات

شكرا لك تمت التجربة البرنامج رائع وبسيط ..

الدرس رائع بارك الله فيك

************************************************** ************************************



أن أسف للأعضاء الكرام لم يجهز الفيديو بعد , لخلل في الصوت عندي ..ولذلك وضعت لكم صور للبرنامج االتطبيقي لدرسنا....

و اصيروا علي قليلا كي اصلح العطل وأضع الفيديو لكم لتحملوه وتشاهدوه.....اليكم الصور







ووضعت هذه الصور لأن هناك من عنده النت ضعيف او هو في مقهى الانترنت ..لذلك قد لايستطيع تحميل الفيديو..

************************************************** *************************************

سأضع الفيديو قريبا

نحن ننتضر الفيديو و شكرا لك

مشكووور جدا