تصحيح عملية جمع في كل مرة
صفحة 1 من اصل 1
تصحيح عملية جمع في كل مرة
mah11 20/7/2013, 7:37 pm
تصحيح عملية جمع في كل مرة
- الكود:
program addition_reponse;
uses crt;
var a,b,c,i : integer;
ch : char;
bool : boolean;
function addition(a,b,c : integer):integer;
var x : integer;
begin
if c = a + b then x := c
else x := c + 1;
addition := x;
end;
function soustraction(a,b,c : integer):integer;
var x : integer;
begin
if c = a - b then x := c
else x := c + 1;
soustraction := x;
end;
begin
clrscr;
bool := false;
writeln('Presse Esc Quitter Le programmer');
i := 0;
randomize;
repeat
i := i + 1;
a := round(random(10));
b := round(random(10));
write(a,' + ',b,' = ');
readln(c);
if addition(a,b,c) = c then writeln(' Oui ce vrai egal ',c)
else writeln(' Non ce faux');
writeln;
writeln('Presse Esc Quitter');
writeln('Presse une clie contenie');
ch := readkey;
if ch = #27 then bool := true;
until (bool = true)or(i >= 200);
end.
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
مواضيع مماثلة» عملية الجمع والطرح والضرب والقسمة
» عملية الجمع في لغة جو Go
» كيف تتم عملية التصفية في TComboBox
» عملية الجمع في دلفي خمسة
» عملية القرآة والطباعة على المصفوفات
» عملية الجمع في لغة جو Go
» كيف تتم عملية التصفية في TComboBox
» عملية الجمع في دلفي خمسة
» عملية القرآة والطباعة على المصفوفات
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى