אני צריך לכתוב תוכנית שקולט זוגות של מספרים והפלט צריך להיות המספר הגדול מבין שני המספרים
ובסוף שהתוכנית תרשום את מספר המספרים הזוגיים מבין כל המספרים
ועוד דבר אחד קליטת המספרים צריכה להעצר בקליטת הזוג 0,0
אני צריך עזרה כדי לדעת איפה טעיתי

אתה עושה לולאת WHILE
ושם לפני שאתה בודק מי יותר גדול, אתה בודק את שניהם אם הם זוגיים או לא (רמז: DIV )
אם כן תגדיל מונה
ואחרי זה אתה בודק איזה מספר יותר גדול.

לא ממש הבנתי ניסיתי לעשות
WHILE (num1) and (num2) <> 0 do
ואני לא ממש יודע איך לעלות את המונה ניסיתי עם IF אבל אני לא יודע איך להכניס לשם את NUM1וNUM2

בבקשה.. (כתבתי ממש מהר יכול להיות שיש טעויות)

קוד:

 
program bla;
var
mone,a,b:integer;
begin
mone:=0;
a:=1;
b:=1;
while not(a=0) and not(b=0) do
begin
writeln('enter two numbers');
readln(a,b);
if (a>b) then
writeln(a,':גדול יותר');
else
if (a<b) then
writeln(b,':גדול יותר');
if (a mod 2=0) then
mone:=mone+1;
if (b mod 2=0) then
mone:=mone+1;
end;
writeln(mone,':מספר המספרים הזוגיים הוא');
end.
 

עד היום לא הבנתי משהו, ואם מישהו יכול בבקשה להססביר לי.

קוד:

מה ההבדל בין
a<>b 
and
not (a=b)

אותו הדבר..

הראשון בודק אם A ו B שונים
והשני בודק אם השוויון של A ו B הוא לא נכון

תודה שחזרת אחריי

אני יודע שזה אותו הדבר,
אבל מבחינת המחשב, האם ביצוע הפעולה על ידי המחשב שונה ?

מה זה משנה? מבחינתך זו דרך כתיבה שונה וזהו

מה זה משנה? מבחינך זה אותו דבר בדרך כתיבה שונה

רוצה לראות משהו מאוד מעניין?
תנסה להכניס לתוכנית שלך זוג מספרים A=0 וB=2 ...

מה יהיה? קלט מסתיים, נכון? אבל למה??? הוא צריך להסתייס רק כשהכנסתי שני אפסים... אז צריך לשנות את התנאי:

קוד:

while not((a = 0) and (b = 0)) do begin
  writeln('enter a, b: '); readln(a, b);
  ...
end;

או שבכלל להשתמש ב REPEAT UNTIL:

קוד:

repeat
  writeln('enter a, b: '); readln(a, b);
  ...
until (a = 0) and (b = 0);

ציטוט:

במקור נכתב על ידי volvo רוצה לראות משהו מאוד מעניין? תנסה להכניס לתוכנית שלך זוג מספרים A=0 וB=2 ... מה יהיה? קלט מסתיים, נכון? אבל למה??? הוא צריך להסתייס רק כשהכנסתי שני אפסים... אז צריך לשנות את התנאי: while not((a = 0) and (b = 0)) do begin writeln('enter a, b: '); readln(a, b); ... end;

העניין נבדק עם קומפיילר ואתה טועה..

ציטוט:

במקור נכתב על ידי Err0R העניין נבדק עם קומפיילר ואתה טועה..

אפשר לדעת אם איזה קומפיילר בדקת ? ומה בדקת בדיוק ?
כי אני בדקתי עם VP, עם FPC ועם TP והבחור שענית לו צודק..

אוקיי חשבתי שמדובר בקוד:

קוד:

  
while not((a = 0) and (b = 0)) do begin
  writeln('enter a, b: '); readln(a, b);
  ...
end;

ולא בקוד שכתבתי.
הוא צודק.. באמת צריך לשנות את התנאי, טעות שלי.