רוטר - מה הטעות שלי פה?

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"מה הטעות שלי פה?"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #7334	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 7334

MO

דרג אמינות חבר זה

16:51 12.11.03

מה הטעות שלי פה?

{code}
program muli;
uses crt;
var x,y,g,a,b,s,i:longint;
begin
x:=0;
y:=0;
clrscr;
for i:=1 to 4 do
readln(g,a,b);
s:=a*3+b*7;
if g=1 then
begin
x:=x+s;
y:=y+s;
end;
if y>x then
begin
writeln('2');
else
writeln('1');
end;

end.
{code/}
ךמה זה רושם לי ERROR תעתיקו ותנסו ותסבירו לי בבקשה

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
איפה זה רושם לך error	E-do	12.11.03 17:29	1
כמה דברים	liranr	12.11.03 17:34	2
תודה רבה עזרת לי מאוד וזה שאלה ממבחן	MO	12.11.03 17:48	3
לא יודע מה השאלה	liranr	12.11.03 18:36	4

E-do
חבר מתאריך 29.10.03
2160 הודעות, דרג אמינות חבר זה

17:29 12.11.03

1. איפה זה רושם לך error
בתגובה להודעה מספר 0

ומה בדיוק רשום?
על הדרך - ככה יותר קל לקרוא את הקוד:

program muli;
uses crt;
var x,y,g,a,b,s,i:longint;
begin
x:=0;
y:=0;
clrscr;
for i:=1 to 4 do
readln(g,a,b);
s:=a*3+b*7;
if g=1 then
begin
x:=x+s;
y:=y+s;
end;
if y>x then
begin
writeln('2');
else
writeln('1');
end;
end.

-----------------
בברכה,
e-do

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

liranr

דרג אמינות חבר זה

17:34 12.11.03

2. כמה דברים
בתגובה להודעה מספר 0

דבר ראשון צריך לרשום [code] ו-[code/] ולא {code} ו {code/}
דבר שני, הקוד לא היה הרבה יותר קריא אם היית מקפיד על רווחים ("הזחה")?
דבר שלישי, אין צורך ב begin וב-end שרשמת במשפט ה-if האחרון שלך, והם גם
לא נכונים - כל חלק (החלק בין ה-if ל-else והחלק אחרי ה-else) הוא בלוק נפרד.
אתה לא יכול לרשום begin בבלוק הראשון ו-end בבלוק השני.
דבר רביעי , אין נקודה פסיק (;) לפני else
ככה הקוד יעבוד
program muli;
uses
crt;
var
x,y,g,a,b,s,i:longint;
begin
x:=0;
y:=0;
clrscr;
for i:=1 to 4 do
readln(g,a,b);
s:=a*3+b*7;
if g=1 then
begin
x:=x+s;
y:=y+s;
end;
if y>x then
writeln('2')
else
writeln('1');
end.

דבר חמישי ואחרון, מה בדיוק זה אמור לעשות?!

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

MO

דרג אמינות חבר זה

17:48 12.11.03

3. תודה רבה עזרת לי מאוד וזה שאלה ממבחן
בתגובה להודעה מספר 2

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

liranr

דרג אמינות חבר זה

18:36 12.11.03

4. לא יודע מה השאלה
בתגובה להודעה מספר 3

אבל אני די בטוח שזה לא הפיתרון הנכון שלה

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד