PDA

مشاهده نسخه کامل : برنامه پاسکال



Keih@n.G
05-11-09, 23:01
سلام دوستان من 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
06-11-09, 08:41
کیهان جان سوالت مفهوم نیست .. بیشتر توضیح بده

Keih@n.G
07-11-09, 04:27
ببینید من 1 بازی باید بسازم 1 شماره انتخاب کنه بین 1 و 10 بعد از user بپرسه که اون بعد جواب بده که عدد User کمه یا زیاد

یا درست

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

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

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

MoBiN.R
07-11-09, 15:46
والا من که متوجه نشدم . یعنی چی جواب بده عدد کمه یا زیاد ؟ .. در ضمن نمیدونم اشتباه تایپیه یا نه ، این "یوسر" یعنی چی ؟ ....

sAsAn.K
07-11-09, 16:29
منم متوجه نشدم درست ، منظورتو واضح تر بگو کیهان جان .

Keih@n.G
08-11-09, 01:28
یک بازی

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

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

MoBiN.R
08-11-09, 08:52
کیهان جان برنامتو نوشتم . در این کد عدد مورد نظر برنامه 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
09-11-09, 23:03
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
09-11-09, 23:09
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
09-11-09, 23:13
mizane

Error 113: Error in Statment

sAsAn.K
09-11-09, 23:48
کیهان جان ، عزیز اینو یه تست بزن :


program keihan;
uses crt;
var
a,i,r:integer;
begin
clrscr;
randomize;
r:= random(20);
while i<=3 do
begin
writeln('enter a number: ');
readln(a);
if a=r then
begin
writeln('you are so lucky! correct!');
break;
end;
if a<r then
writeln('entered number is lower than cpu s!');
if a>r then
writeln('entered number is higher than cpu s!');
i:=i+1;
writeln('cpu s randomly selected number is: ',r);
end;
readln
end.