برنامج باسكال

[خديجة الجزائرية]

Ecrire un algorithme qui permet de saisir deux nombre,et un opérateur et d'évaleur l'expression arithmétique correspondante

ex 2

Ecrire un algorithme qui demande un nombre compris entre 10 et 20 jusqu'à ce que la réponse convienne,En cas de réponse superieure à 20 ,en fera apparaitre un message:"plus petit!", et inversement "plus grand" si le nombre est inferieur à 10.
ساعدوني في حل هذه التمارين
وشكرااا لكم

[أحلام]

exo 1

algorithm
begin
var
x : int;
y : int;
resultat : int;
op : char;

write('entrer une valeur');
read(x);
write('entrer une autre valeur');
read(y);
write('entrer l_operation a effectuer');
read(op);
if op="+" then resultat = x + y
else if op = "-" then resultat = x-y
else if op = "*" then resultat = x * y
else if y = 0 then write("la division par zero est impossible');
write('le resultat est: ', resultat);
end.

أختي فرضت في هذا الحل أن العمليات الحسابية هي أربعة فقط: الجمع، الطرح، الضرب والقسمة...

في هذه الحالة else الأخير يبقى فقط للقسمة، لذا أضفت if للتأكد أن المقام يختلف على الصفر...

إن شاء الله سأوافيك بحل التمرين الثاني.

إذا عندك استفسار أنا هنا.

بالتوفيق.

[خديجة الجزائرية]

شكرااا لك أختي
بارك الله فيك
وجعله في ميزان حسناتك ان شاء الله
وربي يوفقك ان شاء الله

[أحلام]

algorithm
begin
var
x : int;

repeat
write('entrer une valeur');
if x > 20 then write('Plus petit!!')
else if x< 10 then write('plus Grand!!);
until (x>10 and x<20)
END.

[خديجة الجزائرية]

algorithm
begin
var
x : Int;

repeat
write('entrer une valeur');
if x > 20 then write('plus petit!!')
else if x< 10 then write('plus grand!!);
until (x>10 and x<20)
end.
بارك الله فيك أختي وجزاك الله خيرااا ان شاء الله

[أحلام]

أكثري من الدعاء بظهر الغيب فلم يبقى على الامتحانات إلا ساعات http://www.emoticone-max.com/emoticones/grand_3d/Peur/167.gif...

ربي يوفقك أختي ويوفق الجميع.

[خديجة الجزائرية]

أكثري من الدعاء بظهر الغيب فلم يبقى على الامتحانات إلا ساعات http://www.emoticone-max.com/emoticones/grand_3d/peur/167.gif...

ربي يوفقك أختي ويوفقك الجميع.

ربي ينجحك أختي وسأتذكرك بالدعاء ان شاء الله فأنت تستحقين كل خير
وان شاء الله ربي يوفقك في قرايتك ويوفق الجميع ان شاء الله

[طيب القلب]

exo 1

algorithm
begin
var
x : Int;
y : Int;
resultat : Int;
op : Char;

write('entrer une valeur');
read(x);
write('entrer une autre valeur');
read(y);
write('entrer l_operation a effectuer');
read(op);
if op="+" then resultat = x + y
else if op = "-" then resultat = x-y
else if op = "*" then resultat = x * y
else if y = 0 then write("la division par zero est impossible');
write('le resultat est: ', resultat);
end.

أختي فرضت في هذا الحل أن العمليات الحسابية هي أربعة فقط: الجمع، الطرح، الضرب والقسمة...

في هذه الحالة else الأخير يبقى فقط للقسمة، لذا أضفت if للتأكد أن المقام يختلف على الصفر...

إن شاء الله سأوافيك بحل التمرين الثاني.

إذا عندك استفسار أنا هنا.

بالتوفيق.
الله يبارك انا متتالية حصلت فيها