ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[you92cef]

المشاركة الأصلية كتبت بواسطة سارق الأحزان

ايه يعني وااحد يعرف سي ميلقاش مشكل مع الباسكاال ؟؟

ايه نورمالمو ميلقاش مشكل

[سارق الأحزان]

ملييح عندي
صديق قراا ب سي
وحب يبدل سنة ثانية اعلام الي

[you92cef]

المشاركة الأصلية كتبت بواسطة سارق الأحزان

ملييح عندي
صديق قراا ب سي
وحب يبدل سنة ثانية اعلام الي

مي شوف اش كان يقرا؟
وكاش غادي يتعاملو معاه
ممكن ان المواد التي كانت مشتركة ;ونفسها تقريبا وكان مبلعها مغديش يقراها ولكن باقي المواد اظن انه عليه ان يدرسها
ولكن السي تختلف من تخصص الى تخصص
مثلا واحد كان يدرس رياضيات واعلام الي سنة الاولى
وبلع الكيمياء والكهرباء والميكانيك وبلع الجبر 1 واناليز1
فادا حول الى السنة الاولى علوم وتكنولوجيا فلن يدرس
physique1
/mecanique de mi/
physique2/electrique de mi/
chimie2/chimie de mi/
math1/anlyse1 et algebre 1

ولكن هده القوانين تختلف من جامعة الى اخرى ومن سنة الى اخرى
عموما يحاول مع الادارة وهما يعطوه الرسمي

[ASSIL92]

ارجو المساعدة في حل هذا الالغوريتم لانني لم اعرف كيف انشئ المتغير i بحكم اني استخدم الغوريتم للاعداد المركبة
*rècrire l'algorithme prècèdent pour donner la solution dans le cas ou Delta est infèrieur de 0 c'est-àdire dans les nombres complexes.*.

[you92cef]

المشاركة الأصلية كتبت بواسطة ASSIL92

ارجو المساعدة في حل هذا الالغوريتم لانني لم اعرف كيف انشئ المتغير i بحكم اني استخدم الغوريتم للاعداد المركبة
*rècrire l'algorithme prècèdent pour donner la solution dans le cas ou Delta est infèrieur de 0 c'est-àdire dans les nombres complexes.*.

ساهلا استخدمي
les commentaire
برك
سؤال يتكرر بزاف في الامتحانات والناس متعرفش تحجاوب عليه
ادا كان عندك مثلا
x1:=-b+sqrt(delta)/2a

ففي الاعداد المركبة يبقى نفسه فيقط نضيف
i
ففي التعليق نكتب هكدا

r1:=b+sqrt(delta);
writeln(r1i/2a);

ادا كان مثلا
r1:=5
2a:=2
ففي الحالة التي يكون دالطا موجب النتيجة تكون 2.5
5/2
بينما عندما يكون دالطا سالب
النتيجة تكون
5i/2

فقط نضع
i
بين
+b+sqrt(delta)
و
2a

[ASSIL92]

شكراااااااااا اخي ذك نحاول نكمل نديرها ونشوف جزاك الله كل خير

[marwa.dz]

L’un des plus vieux code secret est le chiffre de César. Il consiste en un décalage circulaire de N
positions de l’alphabet utilise.
Exemple:
Lettres a coder : A B C D E F G . . . Y Z
Pour un décalage circulaire de 4 positions :
Lettres après codage : E F G H I J K . . . C D
Le mot “BAC” est code “FEG”.

[salemk]

المشاركة الأصلية كتبت بواسطة marwa.dz

L’un des plus vieux code secret est le chiffre de César. Il consiste en un décalage circulaire de N
positions de l’alphabet utilise.
Exemple:
Lettres a coder : A B C D E F G . . . Y Z
Pour un décalage circulaire de 4 positions :
Lettres après codage : E F G H I J K . . . C D
Le mot “BAC” est code “FEG”.

program code;
uses wincrt;
var
ch:string;

procedure saisie(var s:string);
begin
repeat
writeln('donner le texte à coder');
readln(s);
until s<>'';
end;
        (************* Début du travail à faire***************)
procedure cesar(var s:string);
var
i,nb:byte;
begin
repeat
writeln('de combien de positions faut-il le décalé');
readln(nb);
until (nb>=0);
for i:=1 to length(s) do
 begin
        if upcase(s[i])in ['A'..'Z'] then

        if (ord(upcase(s[i]))+nb mod 26)>ord('Z') then
        s[i]:=chr(ord(upcase(s[i])) - ord('Z')+ord('A')-1+ nb mod 26)
        else
        s[i]:=chr(ord(upcase(s[i]))+nb mod 26);

   
 end;
end;
        (************* Fin du travail à faire***************)

begin
saisie(ch);
cesar(ch);
writeln('La texte final est',chr(13),ch);
end.

[ssissoume]

اخي يوسف كي نعبي الجدول كيفاه وكيفاه نستعملو في التشفير وجزاك الله كل خير

[you92cef]

المشاركة الأصلية كتبت بواسطة ssissoume

اخي يوسف كي نعبي الجدول كيفاه وكيفاه نستعملو في التشفير وجزاك الله كل خير

تم وضع الشرح بالصور

ارجوا مراجعة الصور ومتابعة الشرح خطوة خطوة

[marwa.dz]

L'ISBN (International Standard Book Number) est un numéro qui permet d'identifier le titre d'un
livre.
Ce numéro est formé de 20 caractères regroupés en 4 parties :
- La première correspond à la zone linguistique qui est un nombre de 3 chiffres hexadécimaux
distincts, et qui commence obligatoirement par une lettre :
Exemples : A12 pour Arabe
FB2 pour Français
- Les deux autres parties (indiquant l'éditeur et le numéro d'ordre dans la production de l'éditeur)
sont formes uniquement par des chiffres : 8 chiffres par partie.
- La dernière partie (chiffre ou lettre) correspond à la clé de contrôle :
La clé est le reste de la division d'un nombre intermédiaire N par 11 en utilisant la règle de
divisibilité.
- Si ce reste est non nul est formé d’un seul chiffre, la clé sera égale au reste.
- Si ce reste est 10 la clé sera notée X.
- Si le reste est 0 la clé sera égale à la somme des chiffres de la représentation binaire de la première
partie, le nombre intermédiaire N est obtenu en regroupant les deux chiffres de même position de la
2eme et la 3eme partie de numéro de l'ISBN suivis des deux chiffres de la position suivante jusqu'à
ajouter les deux chiffres de la 8eme position.
Exemple1

[you92cef]

المشاركة الأصلية كتبت بواسطة marwa.dz

L'ISBN (International Standard Book Number) est un numéro qui permet d'identifier le titre d'un
livre.
Ce numéro est formé de 20 caractères regroupés en 4 parties :
- La première correspond à la zone linguistique qui est un nombre de 3 chiffres hexadécimaux
distincts, et qui commence obligatoirement par une lettre :
Exemples : A12 pour Arabe
FB2 pour Français
- Les deux autres parties (indiquant l'éditeur et le numéro d'ordre dans la production de l'éditeur)
sont formes uniquement par des chiffres : 8 chiffres par partie.
- La dernière partie (chiffre ou lettre) correspond à la clé de contrôle :
La clé est le reste de la division d'un nombre intermédiaire N par 11 en utilisant la règle de
divisibilité.
- Si ce reste est non nul est formé d’un seul chiffre, la clé sera égale au reste.
- Si ce reste est 10 la clé sera notée X.
- Si le reste est 0 la clé sera égale à la somme des chiffres de la représentation binaire de la première
partie, le nombre intermédiaire N est obtenu en regroupant les deux chiffres de même position de la
2eme et la 3eme partie de numéro de l'ISBN suivis des deux chiffres de la position suivante jusqu'à
ajouter les deux chiffres de la 8eme position.
Exemple1

--------------------
هدا النوع من الدروس خاص ب
system information
بالطبع نستطيع برمجة المطلوب سواء بلغة البرمجة باسكال او غيرها واكن هدا يحتاج الى وقت وجهد ودوال وامور اخرى
عموما هده النوع من التمارين الخاصة بهده المادة تتطلب القيام بتفعيل الالغوريتم يدويا بورقة وقلم والاصح هو ان هدا الالغوريتم نقوم ببرمجته بلغات البرمجة الخاصة بقاعدة البيانتا ولكن هدا لا يمنع ان نبرمجه بواسطة باسكال مثلا باستعمال
les enregistrement
et des foncrtion ou procedure
dans le pp on fait des appelle

[algeriano9354]

السلام عليكم خاوتي ، أرجو المساعدة في تطبيق خاصة بالقوائم LES LISTES
التطبيق هدفه حساب مجموع اثنين POLYNOMES من درجات مختلفة ، حيث ندخل كل polynome على شكل liste حيث كل عنصر من القائمة مقسم إلى 3 أجزاء [ المعامل coefficiant ، الأس la puissanse ، دليل العنصر الذي يلي Next ]

اما البرنامج يكون باستعمال 3 PROCEDURES : الأولى لإدخال الـ POLYNOME ، الثانية تقوم بالجمع ، الثالثة تقوم باظهار النتيجة

و بارك الله فيكم

[you92cef]

المشاركة الأصلية كتبت بواسطة algeriano9354

السلام عليكم خاوتي ، أرجو المساعدة في تطبيق خاصة بالقوائم LES LISTES
التطبيق هدفه حساب مجموع اثنين POLYNOMES من درجات مختلفة ، حيث ندخل كل polynome على شكل liste حيث كل عنصر من القائمة مقسم إلى 3 أجزاء [ المعامل coefficiant ، الأس la puissanse ، دليل العنصر الذي يلي Next ]

اما البرنامج يكون باستعمال 3 PROCEDURES : الأولى لإدخال الـ POLYNOME ، الثانية تقوم بالجمع ، الثالثة تقوم باظهار النتيجة

و بارك الله فيكم

تم البدا في برمجة بعض البرنامج

طالما لدينا
polynome
فقد تم برمجة البرنامج على اساس ان يكون اقل حد في
polynome de degre 1
donc s'ecrit comme sa ax^b
avec a,b >0
ولكن في الجبر*** بحسب ما اعرف يمكن تكون المعلومة خاطئة^_^*** يمكن ان نجد حد يكون
coefficiant<=0
or
puissance<=0
يكفي فقط تغير
les test et les condition pour la lecture
ايضا من الطبيعي ان الحدود تكون مرتبة لدلك
ادا كان الحد الاول مثلا من الشكل
ax^b
فالحد الثاني
cx^d
يجب ان يكون بحسب ما هو مبرمج
يحقق الشروط التالية
c>a
et
d>b
فلا يمكن مثلا ادخال
الحد الاول
8x^8
والحد الثاني
7x^7
البرنامج يحتوي على
deux procedure
lire et afficher
se sont deux procedure appliquant dans les liste en generalement
puisque
se sont des procedure ''speciale'' pour les pointeure

par example pour le tableau soit pour lire ou ecire en utilise une boucle
le meme choose ici
-------
il reste la fonction qui fait la somme
j'essaye de programmer plutard
essayer de comprendre ce programme
avec un papier et stylo
en respectanrt biensur l'architacture et l'organisation des pointeur

البرنامج

program sol;
uses wincrt;
type tpoint=^tval;
     tval=record
     coe:byte;
     pui:byte;
     suiv:tpoint;
     end;
var prem:tpoint;
    n,p,pp:integer;
    c:char;
procedure lire(p:integer);
var prec,point:tpoint;
i:integer;
begin
write('conbien d''element pour le polynome n°',p,'?');
repeat
readln(n);
if n<1 then writeln('n doit etre >0 et puisque on utilise les pointeur il faut que n>=1');
until n>=1; 
new (prem);
writeln('1er coefficient=');
repeat
readln(prem^.coe);
if(prem^.coe<=0) then writeln('Entrez un coefficiant>0');
until(prem^.coe>0);
writeln('1er puissance=');
repeat
readln(prem^.pui);
if(prem^.pui<=0) then writeln('Entrez un puissance>0');
until(prem^.pui>0);
prec:=prem;
for i:=2 to n do begin
new(point);
writeln(i,'ieme coefficient=');
repeat
readln(point^.coe);
if (point^.coe<=prec^.coe) then writeln('Entrez un coefficiant> a la coefficiant precedant');
until(point^.coe>0)and(point^.coe>prec^.coe);
writeln(i,'ieme puissance=');
repeat
readln(point^.pui);
if (point^.pui<=prec^.pui) then writeln('Entrez un puissance> a la puissance precedant');
until(point^.pui>0)and(point^.pui>prec^.pui);
prec^.suiv:=point;
prec:=point;
end;
prec^.suiv:=nil;
end;
procedure afficher(p:integer);
var point:tpoint;
i:integer;
begin
point:=prem;
writeln('le polynome n°',p,'s''ecrit comme :');
for i:=1 to n do begin
writeln(point^.coe,'x^',point^.pui);
point:=point^.suiv;
end;
end;
begin
writeln('Entrez le numero de polynome ex:poly n°1');
repeat
readln(p);
if p<0 then writeln('numero de polynome>=0');
until(p>=0);
lire(p);
afficher(p);
writeln('Entrez le numero de polynome ex:poly n°1');
repeat
readln(pp);
if (pp<=p)then writeln('numero de cette polynome doit etre> a la numero de polynome precedent');
until pp>p; 
lire(pp);
afficher(pp);
end.

شكرا

[algeriano9354]

مشكوووووووووووووووووووووووووور أخي ،،،، لكن كيف تكون عملية الجمع ؟؟؟