היי מה קורה

בניתי תוכנה בפסקל שברגע שמפעילים אותה אז היא אמורה לבקש סיסמה  ואם הסיסמה נכון אז לצאת מהתוכנית אבל אם היא לא נכונה אז לרשום שהסיסמה

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

ויש לי בעיה בקימפול זה רושם ERROR IN STATMENT

הינה הקוד

var
yxy:longint;
begin
write('enter the password: ');
readln(yxy);
if yxy = 1000 then
begin
writeln('this is the right password');
end
else
begin
writeln('this is the wrong password');
readln;
end;
var
xyx:longint
begin
repeat
writeln('access denied',xyx);
xyx:=1000;
until xyx=1000;
end.

למה יש לך VAR באמצע התוכנית שוב ?

נראה לי שבשורה של

readln;

אתה צריך לכתוב

readln (yxy);

או שזו אמור אמור להיות ירידת שורה ??? ואז זה אמור להיות:

writeln;

ניסיתי את מה שאמרתה אך זה לא עזר לי

תודה בכל זאת

מזמן לא תיכנתתי בפסקל אז אני צריך "רענון"

אני מחפש גם אתר שמלמד פסקל

יש לך פה שתי מבני קוד זהים, התוכנית לא יודעת איפה להתחיל, בראשון או בשני...

אתה צריך להפוך אחד מהם לפונקציה/פרוצדורה ולקרוא לו מהשני..

ניסיתי לעשות מה שאמרתה עם הפרוצדורה אך עדיין יש לי בעיה

אם תוכל לסדר את הקוד את אודה לך

אני לא בטוח שהבנתי מהקוד מה בדיוק ניסית לעשות אבל תנסה את זה

var
	yxy:longint;

begin
	repeat
		write('enter the password: ');
		readln(yxy);
		if yxy = 1000 then
		begin
			writeln('this is the right password');
		end else
		begin
			writeln('this is the wrong password');
			readln;
		end;
	until xyx=1000;
end.

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

לדעתי יותר פשוט להוסיף משתנה BOOLEAN ולעבוד עם לולאת WHILE:

אתה מציב בתחילת התוכנית FALSE בBOOLEAN ואז לולאת WHILE:

WHILE B=false DO (כאשר B זה המשתנה שמוגדר כBOOLEAN)

ובתוך הלולאה אתה מכניס שורת תנאי שאם הקוד נכון אז יוצב הערך TRUE בBOOLEAN ואז הוא לא יחזור על הלולאה שוב.

אני לא בטוח שהבנתי מהקוד מה בדיוק ניסית לעשות אבל תנסה את זה

var
	yxy:longint;

begin
	repeat
		write('enter the password: ');
		readln(yxy);
		if yxy = 1000 then
		begin
			writeln('this is the right password');
		end else
		begin
			writeln('this is the wrong password');
			readln;
		end;
	until xyx=1000;
end.

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

^^^^^^^^^^

סתם ביזבוז של שורות קוד ותנאי לוגי מיותר

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

זה עדיף

var
yxy:longint;

begin
	repeat
		write('enter the password: ');
		readln(yxy);
	until xyx=1000;
	write('correct ');
end.

אגב עדיף שססמא תהיה מחרוזת ולא מספר

אף אחד מהקודים שלכם לא עובד ,קימפלתם אותם לפני שרשמתם אותם פה???? ???

אני צריך אתר טוב שמלמד פסקל בכדי לחזור על החומר

תודה לכל העוזרים

ממש לא(מזמן כבר אין לי קומפיילר פסקל)

איזה שגיאה הוא מוציא לך על הקוד שלי?(ובאיזה שורה?)

אולי היה צריך Begin ו-end; בין ה-repeate וה-until?? אני פשוט כבר לא זוכר תנוסח אבל ניראה לי שזאת הבעיה

אין שום בעיה עם הקוד של Burton, פשוט הוא רשם XYX במקום YXY בUNTIL.

הנה הקוד ה"מתוקן":

var

yxy:longint;

begin

repeat

write('enter the password: ');

readln(yxy);

if yxy = 1000 then

begin

writeln('this is the right password');

end else

begin

writeln('this is the wrong password');

readln;

end;

until yxy=1000;

end.

אני צריך אתר טוב שמלמד פסקל בכדי לחזור על החומר

http://study.eitan.ac.il/sites/index.php?portlet_id=110516

אין שום בעיה עם הקוד של Burton, פשוט הוא רשם XYX במקום YXY בUNTIL.

אופס :-X

מה שגם מראה לך למה חשוב לתת למשתנים שמות עם משמעות ולא סתם אותיות

עריכה*

var
yxy:longint;

begin
repeat
write('enter the password: ');
readln(yxy);
if yxy = 1000 then
begin
writeln('this is the right password');
end else
begin
writeln('this is the wrong password');
readln;
end;
until yxy=1000;
end.

זה לא הקוד שלי

שוב חבל שיש פה שימוש בבדיקת אותו תנאי לוגי פעמיים

הנה הקוד שלי מתוקן

var
yxy:longint;

begin
repeat
write('enter the password: ');
readln(yxy);
until yxy=1000;
write('correct ');
end.

זה לא הקוד שלי

אופס :-X

רציתי לתקן את הקוד שלך, ובטעות העתקתי את הקוד של SpLAsH (גם הוא כתב XYX)

קובץ פסקל אמור להתחיל במילים Program, Unit או Pacakage, משהו מביניהם חסר לך.

תודה רבה לכולכם על העזרה