برنامه پاسکال

[Keih@n.G]

سلام دوستان من 1 یک پروژه دارم می خواستم یک کمکی بهم بکنید 1 برنامه پاسکال هستش کسی میتونه کمک کنه؟

 
 
 
1. Give the user five chances.

2. Allow the user to play again until they wish to quit.

Use a Repeat-Until loop for the 'play again' option, and a For-Do loop for the 'five guesses' limit. You will have to determine how to set the exit condition if the user guesses correctly. 

[MoBiN.R]

کیهان جان سوالت مفهوم نیست .. بیشتر توضیح بده

[Keih@n.G]

ببینید من 1 بازی باید بسازم 1 شماره انتخاب کنه بین 1 و 10 بعد از user بپرسه که اون بعد جواب بده که عدد User کمه یا زیاد

یا درست

بعد اگه درست نبود 5 فرصت بده

بعد اگه 5 فرصت اشتباه بود یا اگه هرکدوم فرصت ها درست بود به user بگه میخواد بازم بازی کنه یا نه به صورت Y/N

بعد باید از Repeat Until استفاده کنم

[MoBiN.R]

والا من که متوجه نشدم . یعنی چی جواب بده عدد کمه یا زیاد ؟ .. در ضمن نمیدونم اشتباه تایپیه یا نه ، این "یوسر" یعنی چی ؟ ....

[sAsAn.K]

منم متوجه نشدم درست ، منظورتو واضح تر بگو کیهان جان .

[Keih@n.G]

یک بازی

بازی 1 عدد انتخاب می کنه

بعد از User می پرسه که Guess a Number Between 0to10 بعد عدد رو Readln کنه با عددی که در مرحله قبل انتخاب کرده مقایسه کنه جواب رو بگه که عددی انتخابی نسبت به عدد برنامه کمتر یا زیاد تر یا همون عدده

[MoBiN.R]

کیهان جان برنامتو نوشتم . در این کد عدد مورد نظر برنامه 5 هست که باید حدس زده بشه و 6 بار هم فرصت حدس زدن دارید . میتونید تغییرش بدید .. در ضمن من کامپایلر پاسکال نداشتم اجرا بگیرم اگر مشکلی بود در خدمتم

Program Game1;
Var
a,b,i:integer;
Begin
a:=5;
i:=0
While i<>6 do
Writeln('Please Guess a Number Between 0 to10 : ');
Readln(b);
i:=i+1;
if b>a then
begin
Writeln('\nLarger Than Your Number');
end
if b<a then
begin
Writeln('\nLower Than Your Number');
end
if b=a
begin
Writeln('\n is Equal');
end
end;
end.

[Keih@n.G]

Uses CRT;
Var RANDNUM,GUESS,COUNT : integer ;
CHOICE : Char; 
 
Begin 
CLRSCR;
Randomize;
Repeat 
RANDUM:= Random(10)+1;
For Count :=1to5 do 
Begin 
Write(‘GUESS a number Between 0 to 10 ‘);
Readln(GUESS);
If RANDNUM > GUESS Then 
Writeln(‘Number is too low ‘);
Else if RANDNUM < GUESS Then 
Writeln(‘Your Number is too High’);
Else 
Begin 
Writeln(‘You Are Correct ..!’)
Count:=5
End
End;
Write(‘Do You Wanna Play Again ?(Y/N)’);
Readln(CHOICE);
IF CHOICE = N ‘ n Then 
End.
Else If CHOICE = Y ‘ y Then 
Goto line 15

Bebin ta inja ro neveshtam Baghiasho nemidonam chi kar knm ..!

[MoBiN.R]

Uses CRT;
Var RANDNUM,GUESS,COUNT : integer ;
CHOICE : Char; 
 
Begin 
CLRSCR;
Randomize;
Repeat 
RANDUM:= Random(10)+1;
For Count :=1to5 do 
Begin 
Write(‘GUESS a number Between 0 to 10 ‘);
Readln(GUESS);
If RANDNUM > GUESS Then 
Writeln(‘Number is too low ‘);
Else if RANDNUM < GUESS Then 
Writeln(‘Your Number is too High’);
Else 
Begin 
Writeln(‘You Are Correct ..!’)
Count:=5
End
End;
Write(‘Do You Wanna Play Again ?(Y/N)’);
Readln(CHOICE);
IF CHOICE = N ‘ n Then 
End.
Else If CHOICE = Y ‘ y Then 
Goto line 15

Bebin ta inja ro neveshtam Baghiasho nemidonam chi kar knm ..!

خوب مشکل چیه اینجا ؟ تقریبا کامله کد

[Keih@n.G]

mizane

Error 113: Error in Statment