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

[أحلام]

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 للتأكد أن المقام يختلف على الصفر...

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

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

بالتوفيق.

[طيب القلب]

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

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 للتأكد أن المقام يختلف على الصفر...

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

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

بالتوفيق.

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