أهلا بكم شباب
كيفكم
ان شاء الله بخير
حل التطبيق السابق
program test;
uses wincrt;
var a,b,c: integer;
begin
read (a);
read (b);
read (c);
if (a>b) then
begin
if (b>c) then
write (a)
else
begin
if (a>c) then
write (a)
else
write (c);
end;
end
else
begin
if (a>c) then
write (b)
else
begin
if (b>c) then
write (b)
else
write (c);
end;
end;
end.
هذه ليست الطريقة الوحيدة، هناك طرق أخرى تؤدي الى نفس النتيجة
و هنا لم استعمل حالة اذا كان عددان متساويان لأنه لم يطلب منا ذلك
يمكنك تطويره اذا أردت
درس اليوم هو عن العوامل المنطقية (و - أو)
لن أضع مقدمات لأن الدرس هو فيديو، صوت و صورة
يمكنك التحميل من هنا
أي سؤال لا تترددوا
التطبيق
أكتب برنامج حيث ندخل true و false
true true -> true
true false -> false
false true -> false
false false ->false
طريقة العمل
if (a = 'true') and (b = 'true')
write ....
else
if ((a='true') and (b='false')) or ((a='false') and (b='true'))
write ...
else
write ...