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

[AKKAINMOH]

السلام عليكم
اريد صنع هذه العملية باستعمال لغة pascal مع تحديد les variables et son types


Lire une chaine de caractères et et avec sa longueur

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

[AKKAINMOH]

السلام عليكم
اريد صنع هذه العملية باستعمال لغة pascal مع تحديد les variables et son types


lire un caractère est affiche son successeur

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

[AKKAINMOH]

شكرا يا آخ you92cef لاكن اريد كل عملية وحدها
وجعلها الله في ميزان حسناتكم

[tahar1974]

STP
'deux noumbre N et M sont dit amis si la somme des divideurs de N égale a M et la somme des diviseurs de M égal a N écrire un programme pascal qui permet tout devérifier si deux nombre sont amis ou poim.'
stp stp stp stp stp mes amis

[Morphus007]

Algo
var N,M,Nsomme,Msomme,i:entier;
debut
lire(N,M);
Nsomme:=0;
Nsomme:=0;
pour i:= 1 a (N div 2)
si N mod i = 0 alors Nsomme:=Nsomme+i;
pour i:= 1 a (M div 2)
si M mod i = 0 alors Msomme:=Msomme+i;
Si (M=Nsomme) et (N=Msomme) alors
ecrire('N et M sont des amis')
sinon ecrire ('N et M ne sont pas des amis')
fin


N'oublier pas AL DOAA et remerciment

[you92cef]

بخصوص anagramme
فتم وضع البرنامج وهو شغال 100/100 في الحالات التي يكون ترتيب الحروف فيها مثلا
prenom
nom
true

او الحروف الغير مرتبة ايضا
مثلا ainbendraoui
abdou
true

في حالة العكس مثلا
nom
prenom
فالنتيجة تكون خاطئة

program sol;
uses wincrt;
var m1,m2:string;
d1,d2:integer;
s:boolean;
function anag(m1,m2:string):boolean;
var i,j:integer;
mot1,mot2:string;
begin
d1:=length(m1);
d2:=length(m2);
if d2>d1 then anag:=false
else
i:=1;
j:=1;
if mot1[i]=mot2[j] then begin
i:=i+1;
j:=j+1
end
else begin
j:=j+1;
anag:=anag(mot1[i],mot2[j]);
end
end;
begin
writeln('entrer mot1,mot2');
readln(m1);
readln(m2);
s:=anag(m1,m2);
writeln(s);
end.

لا تنسونا من دعائكم وارجوا ممن لديه دروس خاصة بالسنة الثانية ان يزودنا بها او تمارين واذا امكن بعض الشروحات الخاصة بها ايضا وشكرا للجميع

[you92cef]

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

شكرا يا آخ you92cef لاكن اريد كل عملية وحدها
وجعلها الله في ميزان حسناتكم

للاسف اخي لقد وضعت ردا يوم الاربعاء ولكن ربما لخلل ما الرد لم يظهر

بخصوص البرنامج الاول الخاص بحساب طول chaine de charectére
فنتستعمل الدالة المعرفة length
le type de chaine de charéctere se declare en pascal sous le nom string

 var mot:string;

واذا اردنا تحديد عدد حروف الكلمة نستعمل [..]
مثال

 var nom:string[20]
هذا معناه ان عدد الاحرف لا يتجاوز 20 حروف

البرنامج الاول

program ex;
uses wincrt;
var mot:string;
begin
writeln('entre le mot');
readln(mot);
writeln(length(mot));
end.

للحصول على algo نعوض الكلمات الانكليزية بالفرنسية فقط وكلمة length لا نعوضها -*- البعض قد يغيرها ويضع مكانها taille

اذا كانت لدينا كلمة واردنا اخذ حرف من هذه الكلمة
مثلا prenom
اردنا اخذ p
فنكتب

 prenom[1]
معناه توجه الى الكلمة السابقة التي هي من نوع
 string 
وخذ الحروف الاول 
[1]
نفس الشيء اذا اردنا الحرف الثاني او الثالث بينما لو كتبنا
 [0] مثلا 
prenom[0] 
فيكتب لنا طول الكلمة 
اذن يمكن استعمل 
[0] بدل
 length 
في المثال السابق

البرنامج الثاني الخاص succesife
هناك دالة في باسكال تعطينا لاحق الحرف *-* ندخل حرف وهي تعطينا الحرف الذي يليه هذه الدالة اسمها succ
وهي خاصة بالحروف charectére
le type de charéctre en pascal est char

var charecter:char

البرنامج

program ex;
uses wincrt;
var charectere:char;
begin
writeln('entre un charectere');
readln(charectere);
writeln(succ(charectere));
end.

[you92cef]

اعتذر هناك بعض الاخطاء في البرنامج الخاص بanagramme
بحيث عند ادخال مثلاabdوain فالنتيجة هي true
وعليه وجب تحسين البرنامج سواء باستعمال permutation entre les carectérre de la chaine pour kil le premierre lettre de la chaine1 soit diferent de la chaine2
ou
utiliser la fonction copy

merci

[pitchoudjo]

لدي مسابقة على اساس الشهادة ليسانس اعلام آلي اريد مساعدة مع قديم امثلة الله يجازيكم

[mino leo]

Soit une chaine de caractéres S,de longueur quelconque (nombre de caractére non fixé a l'avance) .Il ssagit d'en former l'inverse de cette chaine ,ou image miroir :la chaine résultat est écrit avec les mm caractéres que S,mais dan l'ordre inverse .exemple bonjour==>ruojnob.
ecrire une fonction itérative et une fonction récursive pour obtenir l'image miroir d'une chaine de caractéres.
Lenght:retourne la longueur d'une chaine
copy:retourne une partie b1 précise d'une chaine de caractéres.
+:concaténationde deux chaine.
":chaine vide.
texte: 'abcde'
C:=texte[4]====>c=d.
i:=lenght(texte)=====>i=6
copy(texte,2,4)=====>texrte=bcde.
texte:='al'+'go===>texte=algo.

[marwa.dz]

السلام عليكم
ممكن كتابة برنامج حل معادلة من الدرجة الثانية
x carr +a*x +b=0
وشكرا لكم على هذه الصفحة القيمة

[Arzt]

السلام عليكم

Ex01
Ecrire un Algorithme qui permet de lire un nombre et d'afficher le menu suivant
carré du nombre
racine carré du nombre
inverse du nombre
valeur absolu du nombre
-------------
Tapper votre choix
Lire, choisir et faire le traitement ci dessus
Lire nombre et afficher le menu

Ex02
Ecrire un Algorithme qui permet de lire la température de mois de novembre de la ville de Paris et de calculer la température moy et la température max et la température min

Ex03
Ecrire un Algorithme qui fait la table de multipli de nombre 5

Ex04
Ecrire un Algorithme qui permet de lire deux nombres positif A et B et calcule leur produit sans utiliser l'operateur de multiplication

[AKKAINMOH]

شكرا يا آخ you92cef
وجعلها الله في ميزان حسناتكم

[you92cef]

سيتم بحول الله مساءا وضع الحلول ومناقشتها
شكرا للجميع

[you92cef]

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

السلام عليكم

Ex01
Ecrire un Algorithme qui permet de lire un nombre et d'afficher le menu suivant
carré du nombre
racine carré du nombre
inverse du nombre
valeur absolu du nombre
-------------
Tapper votre choix
Lire, choisir et faire le traitement ci dessus
Lire nombre et afficher le menu

Ex02
Ecrire un Algorithme qui permet de lire la température de mois de novembre de la ville de Paris et de calculer la température moy et la température max et la température min

Ex03
Ecrire un Algorithme qui fait la table de multipli de nombre 5

Ex04
Ecrire un Algorithme qui permet de lire deux nombres positif A et B et calcule leur produit sans utiliser l'operateur de multiplication

 ex01
program sol;
uses wincrt;
var n:integer;
c,r,i,v,choix:char;
begin
writeln('Entrez un nombre>0:');
readln(n);
writeln('c-->carre de nombre');
writeln('r--> racine de nombre');
writeln('i--> inverse de nombre');
writeln('v-->valeur absolu de nombre');
writeln('Entrez votre choix:');
read(choix);
case choix of
'c':writeln(sqr(n));
'r':writeln(sqrt(n):3);
'i':writeln((1/n):3);
'v':writeln(abs(n));
end;
end.


راجع الردود السابقة وعوض الكلمات الانكليزية بالفرنسية للحصول غلى الالغوريتم