Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Just like every HK Student, wanna ask about crossword puzzle

anymananyman Member Posts: 19
[b][red]This message was edited by anyman at 2004-12-12 3:37:8[/red][/b][hr]
The sample is here
program project;
uses wincrt;

var word : array[1..8,1..5] of char;
i,j,k,score,choice:integer;
secret:array[1..3] of string;
answer : string;


Procedure Initial;
begin
for i:=1 to 8 do
for j:= 1 to 5 do
word[i,j] := '*';
end;

Procedure display;
begin
for i := 1 to 8 do
begin
for j := 1 to 5 do
begin
write(word[i,j]);
end;
writeln;
end;
end;

procedure assign;
begin
{Assign the first secret word}
word[1,1] := '1';
for i := 2 to 8 do
begin
word[i,1] := '?';
end;
{Assign the second sercet word}
word[2,1] := '2';
for j:= 2 to 4 do
begin
word[2,j] := '?';
end;
word[6,1] := '3';
{Assign the third secret word}
for j := 2 to 4 do
begin
word[6,j] := '?';
end;
end;
procedure start;
begin
writeln;
writeln;
writeln;
write('Which word do you want to guess(1,2,3)?');
readln(K);
end;

Procedure Hint1;
var done : boolean;
begin
done := false;
secret[1] := 'CHANGJEI';
writeln;
writeln('Hint 1 : A 8 character word');
writeln('Meaning : The most common chinese typing method');
writeln;
Repeat
write('Enter your answer?');
readln(answer);
If answer = secret[1] then
begin
writeln('You are correct !');
done := true;
end
else
writeln('You are wrong! Try it again!');
until done;
end;

procedure hint2;
var done:boolean;
begin
done:= false;
secret[2] := 'HTML';
writeln;
writeln('Hint 2: A 4 character phrase');
writeln('Meaning : the programming language for the web page');
writeln;
Repeat
write('Enter your answer ?');
readln(answer);
if answer = secret[2] then
begin
writeln('You are correct!');
done := true;
end
else
writeln('You are wrong! Try it again!');
until done;
end;

Procedure Hint3;
var done: boolean;
begin
done := false;
secret[3] := 'JAVA';
writeln;
writeln('Hint 3: A 4 character phrase');
writeln('Meaning : The cross-platform programming language for the dynamic web page');
writeln;
Repeat
write('Enter your answer ?');
readln(answer);
if answer = secret[3] then
begin
writeln('You are correct!');
done := true;
end
else
writeln('You are wrong! Try it again!');
until done;
end;

Begin {main}
initial;
assign;
display;
start;
if k = 1 then
hint1
else
if k = 2 then
hint2
else
if k = 3 then
hint3;
End.




«1

Comments

  • anymananyman Member Posts: 19
    : [b][red]This message was edited by anyman at 2004-12-12 3:37:8[/red][/b][hr]
    : The sample is here
    : program project;
    : uses wincrt;
    :
    : var word : array[1..8,1..5] of char;
    : i,j,k,score,choice:integer;
    : secret:array[1..3] of string;
    : answer : string;
    :
    :
    : Procedure Initial;
    : begin
    : for i:=1 to 8 do
    : for j:= 1 to 5 do
    : word[i,j] := '*';
    : end;
    :
    : Procedure display;
    : begin
    : for i := 1 to 8 do
    : begin
    : for j := 1 to 5 do
    : begin
    : write(word[i,j]);
    : end;
    : writeln;
    : end;
    : end;
    :
    : procedure assign;
    : begin
    : {Assign the first secret word}
    : word[1,1] := '1';
    : for i := 2 to 8 do
    : begin
    : word[i,1] := '?';
    : end;
    : {Assign the second sercet word}
    : word[2,1] := '2';
    : for j:= 2 to 4 do
    : begin
    : word[2,j] := '?';
    : end;
    : word[6,1] := '3';
    : {Assign the third secret word}
    : for j := 2 to 4 do
    : begin
    : word[6,j] := '?';
    : end;
    : end;
    : procedure start;
    : begin
    : writeln;
    : writeln;
    : writeln;
    : write('Which word do you want to guess(1,2,3)?');
    : readln(K);
    : end;
    :
    : Procedure Hint1;
    : var done : boolean;
    : begin
    : done := false;
    : secret[1] := 'CHANGJEI';
    : writeln;
    : writeln('Hint 1 : A 8 character word');
    : writeln('Meaning : The most common chinese typing method');
    : writeln;
    : Repeat
    : write('Enter your answer?');
    : readln(answer);
    : If answer = secret[1] then
    : begin
    : writeln('You are correct !');
    : done := true;
    : end
    : else
    : writeln('You are wrong! Try it again!');
    : until done;
    : end;
    :
    : procedure hint2;
    : var done:boolean;
    : begin
    : done:= false;
    : secret[2] := 'HTML';
    : writeln;
    : writeln('Hint 2: A 4 character phrase');
    : writeln('Meaning : the programming language for the web page');
    : writeln;
    : Repeat
    : write('Enter your answer ?');
    : readln(answer);
    : if answer = secret[2] then
    : begin
    : writeln('You are correct!');
    : done := true;
    : end
    : else
    : writeln('You are wrong! Try it again!');
    : until done;
    : end;
    :
    : Procedure Hint3;
    : var done: boolean;
    : begin
    : done := false;
    : secret[3] := 'JAVA';
    : writeln;
    : writeln('Hint 3: A 4 character phrase');
    : writeln('Meaning : The cross-platform programming language for the dynamic web page');
    : writeln;
    : Repeat
    : write('Enter your answer ?');
    : readln(answer);
    : if answer = secret[3] then
    : begin
    : writeln('You are correct!');
    : done := true;
    : end
    : else
    : writeln('You are wrong! Try it again!');
    : until done;
    : end;
    :
    : Begin {main}
    : initial;
    : assign;
    : display;
    : start;
    : if k = 1 then
    : hint1
    : else
    : if k = 2 then
    : hint2
    : else
    : if k = 3 then
    : hint3;
    : End.
    :
    :
    :
    :
    :
    wt can I improve
    I donna wt should I do
  • zibadianzibadian Member Posts: 6,349
    : : [b][red]This message was edited by anyman at 2004-12-12 3:37:8[/red][/b][hr]
    : : The sample is here
    : : program project;
    : : uses wincrt;
    : :
    : : var word : array[1..8,1..5] of char;
    : : i,j,k,score,choice:integer;
    : : secret:array[1..3] of string;
    : : answer : string;
    : :
    : :
    : : Procedure Initial;
    : : begin
    : : for i:=1 to 8 do
    : : for j:= 1 to 5 do
    : : word[i,j] := '*';
    : : end;
    : :
    : : Procedure display;
    : : begin
    : : for i := 1 to 8 do
    : : begin
    : : for j := 1 to 5 do
    : : begin
    : : write(word[i,j]);
    : : end;
    : : writeln;
    : : end;
    : : end;
    : :
    : : procedure assign;
    : : begin
    : : {Assign the first secret word}
    : : word[1,1] := '1';
    : : for i := 2 to 8 do
    : : begin
    : : word[i,1] := '?';
    : : end;
    : : {Assign the second sercet word}
    : : word[2,1] := '2';
    : : for j:= 2 to 4 do
    : : begin
    : : word[2,j] := '?';
    : : end;
    : : word[6,1] := '3';
    : : {Assign the third secret word}
    : : for j := 2 to 4 do
    : : begin
    : : word[6,j] := '?';
    : : end;
    : : end;
    : : procedure start;
    : : begin
    : : writeln;
    : : writeln;
    : : writeln;
    : : write('Which word do you want to guess(1,2,3)?');
    : : readln(K);
    : : end;
    : :
    : : Procedure Hint1;
    : : var done : boolean;
    : : begin
    : : done := false;
    : : secret[1] := 'CHANGJEI';
    : : writeln;
    : : writeln('Hint 1 : A 8 character word');
    : : writeln('Meaning : The most common chinese typing method');
    : : writeln;
    : : Repeat
    : : write('Enter your answer?');
    : : readln(answer);
    : : If answer = secret[1] then
    : : begin
    : : writeln('You are correct !');
    : : done := true;
    : : end
    : : else
    : : writeln('You are wrong! Try it again!');
    : : until done;
    : : end;
    : :
    : : procedure hint2;
    : : var done:boolean;
    : : begin
    : : done:= false;
    : : secret[2] := 'HTML';
    : : writeln;
    : : writeln('Hint 2: A 4 character phrase');
    : : writeln('Meaning : the programming language for the web page');
    : : writeln;
    : : Repeat
    : : write('Enter your answer ?');
    : : readln(answer);
    : : if answer = secret[2] then
    : : begin
    : : writeln('You are correct!');
    : : done := true;
    : : end
    : : else
    : : writeln('You are wrong! Try it again!');
    : : until done;
    : : end;
    : :
    : : Procedure Hint3;
    : : var done: boolean;
    : : begin
    : : done := false;
    : : secret[3] := 'JAVA';
    : : writeln;
    : : writeln('Hint 3: A 4 character phrase');
    : : writeln('Meaning : The cross-platform programming language for the dynamic web page');
    : : writeln;
    : : Repeat
    : : write('Enter your answer ?');
    : : readln(answer);
    : : if answer = secret[3] then
    : : begin
    : : writeln('You are correct!');
    : : done := true;
    : : end
    : : else
    : : writeln('You are wrong! Try it again!');
    : : until done;
    : : end;
    : :
    : : Begin {main}
    : : initial;
    : : assign;
    : : display;
    : : start;
    : : if k = 1 then
    : : hint1
    : : else
    : : if k = 2 then
    : : hint2
    : : else
    : : if k = 3 then
    : : hint3;
    : : End.
    : :
    : :
    : :
    : :
    : :
    : wt can I improve
    : I donna wt should I do
    :
    You can do the following to improve it:
    - Add a loop to the main program so that the user can enter all three words
    - Move the hints, words and their location and directions into an array, which generalizes the code
    - Add the correct indentation, which makes the code itself more readable by others

  • anymananyman Member Posts: 19
    : : : [b][red]This message was edited by anyman at 2004-12-12 3:37:8[/red][/b][hr]
    : : : The sample is here
    : : : program project;
    : : : uses wincrt;
    : : :
    : : : var word : array[1..8,1..5] of char;
    : : : i,j,k,score,choice:integer;
    : : : secret:array[1..3] of string;
    : : : answer : string;
    : : :
    : : :
    : : : Procedure Initial;
    : : : begin
    : : : for i:=1 to 8 do
    : : : for j:= 1 to 5 do
    : : : word[i,j] := '*';
    : : : end;
    : : :
    : : : Procedure display;
    : : : begin
    : : : for i := 1 to 8 do
    : : : begin
    : : : for j := 1 to 5 do
    : : : begin
    : : : write(word[i,j]);
    : : : end;
    : : : writeln;
    : : : end;
    : : : end;
    : : :
    : : : procedure assign;
    : : : begin
    : : : {Assign the first secret word}
    : : : word[1,1] := '1';
    : : : for i := 2 to 8 do
    : : : begin
    : : : word[i,1] := '?';
    : : : end;
    : : : {Assign the second sercet word}
    : : : word[2,1] := '2';
    : : : for j:= 2 to 4 do
    : : : begin
    : : : word[2,j] := '?';
    : : : end;
    : : : word[6,1] := '3';
    : : : {Assign the third secret word}
    : : : for j := 2 to 4 do
    : : : begin
    : : : word[6,j] := '?';
    : : : end;
    : : : end;
    : : : procedure start;
    : : : begin
    : : : writeln;
    : : : writeln;
    : : : writeln;
    : : : write('Which word do you want to guess(1,2,3)?');
    : : : readln(K);
    : : : end;
    : : :
    : : : Procedure Hint1;
    : : : var done : boolean;
    : : : begin
    : : : done := false;
    : : : secret[1] := 'CHANGJEI';
    : : : writeln;
    : : : writeln('Hint 1 : A 8 character word');
    : : : writeln('Meaning : The most common chinese typing method');
    : : : writeln;
    : : : Repeat
    : : : write('Enter your answer?');
    : : : readln(answer);
    : : : If answer = secret[1] then
    : : : begin
    : : : writeln('You are correct !');
    : : : done := true;
    : : : end
    : : : else
    : : : writeln('You are wrong! Try it again!');
    : : : until done;
    : : : end;
    : : :
    : : : procedure hint2;
    : : : var done:boolean;
    : : : begin
    : : : done:= false;
    : : : secret[2] := 'HTML';
    : : : writeln;
    : : : writeln('Hint 2: A 4 character phrase');
    : : : writeln('Meaning : the programming language for the web page');
    : : : writeln;
    : : : Repeat
    : : : write('Enter your answer ?');
    : : : readln(answer);
    : : : if answer = secret[2] then
    : : : begin
    : : : writeln('You are correct!');
    : : : done := true;
    : : : end
    : : : else
    : : : writeln('You are wrong! Try it again!');
    : : : until done;
    : : : end;
    : : :
    : : : Procedure Hint3;
    : : : var done: boolean;
    : : : begin
    : : : done := false;
    : : : secret[3] := 'JAVA';
    : : : writeln;
    : : : writeln('Hint 3: A 4 character phrase');
    : : : writeln('Meaning : The cross-platform programming language for the dynamic web page');
    : : : writeln;
    : : : Repeat
    : : : write('Enter your answer ?');
    : : : readln(answer);
    : : : if answer = secret[3] then
    : : : begin
    : : : writeln('You are correct!');
    : : : done := true;
    : : : end
    : : : else
    : : : writeln('You are wrong! Try it again!');
    : : : until done;
    : : : end;
    : : :
    : : : Begin {main}
    : : : initial;
    : : : assign;
    : : : display;
    : : : start;
    : : : if k = 1 then
    : : : hint1
    : : : else
    : : : if k = 2 then
    : : : hint2
    : : : else
    : : : if k = 3 then
    : : : hint3;
    : : : End.
    : : :
    : : :
    : : :
    : : :
    : : :
    : : wt can I improve
    : : I donna wt should I do
    : :
    : You can do the following to improve it:
    : - Add a loop to the main program so that the user can enter all three words
    : - Move the hints, words and their location and directions into an array, which generalizes the code
    : - Add the correct indentation, which makes the code itself more readable by others
    :
    :
    well
    I don't know how to add your suggestion into the program
    can u help me
  • zibadianzibadian Member Posts: 6,349
    : : : : [b][red]This message was edited by anyman at 2004-12-12 3:37:8[/red][/b][hr]
    : : : : The sample is here
    : : : : program project;
    : : : : uses wincrt;
    : : : :
    : : : : var word : array[1..8,1..5] of char;
    : : : : i,j,k,score,choice:integer;
    : : : : secret:array[1..3] of string;
    : : : : answer : string;
    : : : :
    : : : :
    : : : : Procedure Initial;
    : : : : begin
    : : : : for i:=1 to 8 do
    : : : : for j:= 1 to 5 do
    : : : : word[i,j] := '*';
    : : : : end;
    : : : :
    : : : : Procedure display;
    : : : : begin
    : : : : for i := 1 to 8 do
    : : : : begin
    : : : : for j := 1 to 5 do
    : : : : begin
    : : : : write(word[i,j]);
    : : : : end;
    : : : : writeln;
    : : : : end;
    : : : : end;
    : : : :
    : : : : procedure assign;
    : : : : begin
    : : : : {Assign the first secret word}
    : : : : word[1,1] := '1';
    : : : : for i := 2 to 8 do
    : : : : begin
    : : : : word[i,1] := '?';
    : : : : end;
    : : : : {Assign the second sercet word}
    : : : : word[2,1] := '2';
    : : : : for j:= 2 to 4 do
    : : : : begin
    : : : : word[2,j] := '?';
    : : : : end;
    : : : : word[6,1] := '3';
    : : : : {Assign the third secret word}
    : : : : for j := 2 to 4 do
    : : : : begin
    : : : : word[6,j] := '?';
    : : : : end;
    : : : : end;
    : : : : procedure start;
    : : : : begin
    : : : : writeln;
    : : : : writeln;
    : : : : writeln;
    : : : : write('Which word do you want to guess(1,2,3)?');
    : : : : readln(K);
    : : : : end;
    : : : :
    : : : : Procedure Hint1;
    : : : : var done : boolean;
    : : : : begin
    : : : : done := false;
    : : : : secret[1] := 'CHANGJEI';
    : : : : writeln;
    : : : : writeln('Hint 1 : A 8 character word');
    : : : : writeln('Meaning : The most common chinese typing method');
    : : : : writeln;
    : : : : Repeat
    : : : : write('Enter your answer?');
    : : : : readln(answer);
    : : : : If answer = secret[1] then
    : : : : begin
    : : : : writeln('You are correct !');
    : : : : done := true;
    : : : : end
    : : : : else
    : : : : writeln('You are wrong! Try it again!');
    : : : : until done;
    : : : : end;
    : : : :
    : : : : procedure hint2;
    : : : : var done:boolean;
    : : : : begin
    : : : : done:= false;
    : : : : secret[2] := 'HTML';
    : : : : writeln;
    : : : : writeln('Hint 2: A 4 character phrase');
    : : : : writeln('Meaning : the programming language for the web page');
    : : : : writeln;
    : : : : Repeat
    : : : : write('Enter your answer ?');
    : : : : readln(answer);
    : : : : if answer = secret[2] then
    : : : : begin
    : : : : writeln('You are correct!');
    : : : : done := true;
    : : : : end
    : : : : else
    : : : : writeln('You are wrong! Try it again!');
    : : : : until done;
    : : : : end;
    : : : :
    : : : : Procedure Hint3;
    : : : : var done: boolean;
    : : : : begin
    : : : : done := false;
    : : : : secret[3] := 'JAVA';
    : : : : writeln;
    : : : : writeln('Hint 3: A 4 character phrase');
    : : : : writeln('Meaning : The cross-platform programming language for the dynamic web page');
    : : : : writeln;
    : : : : Repeat
    : : : : write('Enter your answer ?');
    : : : : readln(answer);
    : : : : if answer = secret[3] then
    : : : : begin
    : : : : writeln('You are correct!');
    : : : : done := true;
    : : : : end
    : : : : else
    : : : : writeln('You are wrong! Try it again!');
    : : : : until done;
    : : : : end;
    : : : :
    : : : : Begin {main}
    : : : : initial;
    : : : : assign;
    : : : : display;
    : : : : start;
    : : : : if k = 1 then
    : : : : hint1
    : : : : else
    : : : : if k = 2 then
    : : : : hint2
    : : : : else
    : : : : if k = 3 then
    : : : : hint3;
    : : : : End.
    : : : :
    : : : :
    : : : :
    : : : :
    : : : :
    : : : wt can I improve
    : : : I donna wt should I do
    : : :
    : : You can do the following to improve it:
    : : - Add a loop to the main program so that the user can enter all three words
    : : - Move the hints, words and their location and directions into an array, which generalizes the code
    : : - Add the correct indentation, which makes the code itself more readable by others
    : :
    : :
    : well
    : I don't know how to add your suggestion into the program
    : can u help me
    :
    Adding a loop to the main program should not be a problem, because you've done it before in procedures.
    If you know what indentation is (see english dictionary and my Crossword puzzle), then that should also not be a problem.
    You are already using the array to store your words in, but only for a short time. You should move all the Secret[] assignments to the Initial() procedure. If you then make an array for the hints, you can recode all the Hint() procedures into 1, with a single parameter to specify which word the user is entering.
  • anymananyman Member Posts: 19
    : : : : : [b][red]This message was edited by anyman at 2004-12-12 3:37:8[/red][/b][hr]
    : : : : : The sample is here
    : : : : : program project;
    : : : : : uses wincrt;
    : : : : :
    : : : : : var word : array[1..8,1..5] of char;
    : : : : : i,j,k,score,choice:integer;
    : : : : : secret:array[1..3] of string;
    : : : : : answer : string;
    : : : : :
    : : : : :
    : : : : : Procedure Initial;
    : : : : : begin
    : : : : : for i:=1 to 8 do
    : : : : : for j:= 1 to 5 do
    : : : : : word[i,j] := '*';
    : : : : : end;
    : : : : :
    : : : : : Procedure display;
    : : : : : begin
    : : : : : for i := 1 to 8 do
    : : : : : begin
    : : : : : for j := 1 to 5 do
    : : : : : begin
    : : : : : write(word[i,j]);
    : : : : : end;
    : : : : : writeln;
    : : : : : end;
    : : : : : end;
    : : : : :
    : : : : : procedure assign;
    : : : : : begin
    : : : : : {Assign the first secret word}
    : : : : : word[1,1] := '1';
    : : : : : for i := 2 to 8 do
    : : : : : begin
    : : : : : word[i,1] := '?';
    : : : : : end;
    : : : : : {Assign the second sercet word}
    : : : : : word[2,1] := '2';
    : : : : : for j:= 2 to 4 do
    : : : : : begin
    : : : : : word[2,j] := '?';
    : : : : : end;
    : : : : : word[6,1] := '3';
    : : : : : {Assign the third secret word}
    : : : : : for j := 2 to 4 do
    : : : : : begin
    : : : : : word[6,j] := '?';
    : : : : : end;
    : : : : : end;
    : : : : : procedure start;
    : : : : : begin
    : : : : : writeln;
    : : : : : writeln;
    : : : : : writeln;
    : : : : : write('Which word do you want to guess(1,2,3)?');
    : : : : : readln(K);
    : : : : : end;
    : : : : :
    : : : : : Procedure Hint1;
    : : : : : var done : boolean;
    : : : : : begin
    : : : : : done := false;
    : : : : : secret[1] := 'CHANGJEI';
    : : : : : writeln;
    : : : : : writeln('Hint 1 : A 8 character word');
    : : : : : writeln('Meaning : The most common chinese typing method');
    : : : : : writeln;
    : : : : : Repeat
    : : : : : write('Enter your answer?');
    : : : : : readln(answer);
    : : : : : If answer = secret[1] then
    : : : : : begin
    : : : : : writeln('You are correct !');
    : : : : : done := true;
    : : : : : end
    : : : : : else
    : : : : : writeln('You are wrong! Try it again!');
    : : : : : until done;
    : : : : : end;
    : : : : :
    : : : : : procedure hint2;
    : : : : : var done:boolean;
    : : : : : begin
    : : : : : done:= false;
    : : : : : secret[2] := 'HTML';
    : : : : : writeln;
    : : : : : writeln('Hint 2: A 4 character phrase');
    : : : : : writeln('Meaning : the programming language for the web page');
    : : : : : writeln;
    : : : : : Repeat
    : : : : : write('Enter your answer ?');
    : : : : : readln(answer);
    : : : : : if answer = secret[2] then
    : : : : : begin
    : : : : : writeln('You are correct!');
    : : : : : done := true;
    : : : : : end
    : : : : : else
    : : : : : writeln('You are wrong! Try it again!');
    : : : : : until done;
    : : : : : end;
    : : : : :
    : : : : : Procedure Hint3;
    : : : : : var done: boolean;
    : : : : : begin
    : : : : : done := false;
    : : : : : secret[3] := 'JAVA';
    : : : : : writeln;
    : : : : : writeln('Hint 3: A 4 character phrase');
    : : : : : writeln('Meaning : The cross-platform programming language for the dynamic web page');
    : : : : : writeln;
    : : : : : Repeat
    : : : : : write('Enter your answer ?');
    : : : : : readln(answer);
    : : : : : if answer = secret[3] then
    : : : : : begin
    : : : : : writeln('You are correct!');
    : : : : : done := true;
    : : : : : end
    : : : : : else
    : : : : : writeln('You are wrong! Try it again!');
    : : : : : until done;
    : : : : : end;
    : : : : :
    : : : : : Begin {main}
    : : : : : initial;
    : : : : : assign;
    : : : : : display;
    : : : : : start;
    : : : : : if k = 1 then
    : : : : : hint1
    : : : : : else
    : : : : : if k = 2 then
    : : : : : hint2
    : : : : : else
    : : : : : if k = 3 then
    : : : : : hint3;
    : : : : : End.
    : : : : :
    : : : : :
    : : : : :
    : : : : :
    : : : : :
    : : : : wt can I improve
    : : : : I donna wt should I do
    : : : :
    : : : You can do the following to improve it:
    : : : - Add a loop to the main program so that the user can enter all three words
    : : : - Move the hints, words and their location and directions into an array, which generalizes the code
    : : : - Add the correct indentation, which makes the code itself more readable by others
    : : :
    : : :
    : : well
    : : I don't know how to add your suggestion into the program
    : : can u help me
    : :
    : Adding a loop to the main program should not be a problem, because you've done it before in procedures.
    : If you know what indentation is (see english dictionary and my Crossword puzzle), then that should also not be a problem.
    : You are already using the array to store your words in, but only for a short time. You should move all the Secret[] assignments to the Initial() procedure. If you then make an array for the hints, you can recode all the Hint() procedures into 1, with a single parameter to specify which word the user is entering.
    :

    You should move all the Secret[] assignments to the Initial() procedure. If you then make an array for the hints, you can recode all the Hint() procedures into 1, with a single parameter to specify which word the user is entering.
    I don't exactly know what u mean
    Do u think that if I make the word into wordfile will be better
    by the way, do u hv e-mail,msn , icq or something like that, so I can contact u
  • henry_hk007henry_hk007 Member Posts: 5
    : : : : : : [b][red]This message was edited by anyman at 2004-12-12 3:37:8[/red][/b][hr]
    : : : : : : The sample is here
    : : : : : : program project;
    : : : : : : uses wincrt;
    : : : : : :
    : : : : : : var word : array[1..8,1..5] of char;
    : : : : : : i,j,k,score,choice:integer;
    : : : : : : secret:array[1..3] of string;
    : : : : : : answer : string;
    : : : : : :
    : : : : : :
    : : : : : : Procedure Initial;
    : : : : : : begin
    : : : : : : for i:=1 to 8 do
    : : : : : : for j:= 1 to 5 do
    : : : : : : word[i,j] := '*';
    : : : : : : end;
    : : : : : :
    : : : : : : Procedure display;
    : : : : : : begin
    : : : : : : for i := 1 to 8 do
    : : : : : : begin
    : : : : : : for j := 1 to 5 do
    : : : : : : begin
    : : : : : : write(word[i,j]);
    : : : : : : end;
    : : : : : : writeln;
    : : : : : : end;
    : : : : : : end;
    : : : : : :
    : : : : : : procedure assign;
    : : : : : : begin
    : : : : : : {Assign the first secret word}
    : : : : : : word[1,1] := '1';
    : : : : : : for i := 2 to 8 do
    : : : : : : begin
    : : : : : : word[i,1] := '?';
    : : : : : : end;
    : : : : : : {Assign the second sercet word}
    : : : : : : word[2,1] := '2';
    : : : : : : for j:= 2 to 4 do
    : : : : : : begin
    : : : : : : word[2,j] := '?';
    : : : : : : end;
    : : : : : : word[6,1] := '3';
    : : : : : : {Assign the third secret word}
    : : : : : : for j := 2 to 4 do
    : : : : : : begin
    : : : : : : word[6,j] := '?';
    : : : : : : end;
    : : : : : : end;
    : : : : : : procedure start;
    : : : : : : begin
    : : : : : : writeln;
    : : : : : : writeln;
    : : : : : : writeln;
    : : : : : : write('Which word do you want to guess(1,2,3)?');
    : : : : : : readln(K);
    : : : : : : end;
    : : : : : :
    : : : : : : Procedure Hint1;
    : : : : : : var done : boolean;
    : : : : : : begin
    : : : : : : done := false;
    : : : : : : secret[1] := 'CHANGJEI';
    : : : : : : writeln;
    : : : : : : writeln('Hint 1 : A 8 character word');
    : : : : : : writeln('Meaning : The most common chinese typing method');
    : : : : : : writeln;
    : : : : : : Repeat
    : : : : : : write('Enter your answer?');
    : : : : : : readln(answer);
    : : : : : : If answer = secret[1] then
    : : : : : : begin
    : : : : : : writeln('You are correct !');
    : : : : : : done := true;
    : : : : : : end
    : : : : : : else
    : : : : : : writeln('You are wrong! Try it again!');
    : : : : : : until done;
    : : : : : : end;
    : : : : : :
    : : : : : : procedure hint2;
    : : : : : : var done:boolean;
    : : : : : : begin
    : : : : : : done:= false;
    : : : : : : secret[2] := 'HTML';
    : : : : : : writeln;
    : : : : : : writeln('Hint 2: A 4 character phrase');
    : : : : : : writeln('Meaning : the programming language for the web page');
    : : : : : : writeln;
    : : : : : : Repeat
    : : : : : : write('Enter your answer ?');
    : : : : : : readln(answer);
    : : : : : : if answer = secret[2] then
    : : : : : : begin
    : : : : : : writeln('You are correct!');
    : : : : : : done := true;
    : : : : : : end
    : : : : : : else
    : : : : : : writeln('You are wrong! Try it again!');
    : : : : : : until done;
    : : : : : : end;
    : : : : : :
    : : : : : : Procedure Hint3;
    : : : : : : var done: boolean;
    : : : : : : begin
    : : : : : : done := false;
    : : : : : : secret[3] := 'JAVA';
    : : : : : : writeln;
    : : : : : : writeln('Hint 3: A 4 character phrase');
    : : : : : : writeln('Meaning : The cross-platform programming language for the dynamic web page');
    : : : : : : writeln;
    : : : : : : Repeat
    : : : : : : write('Enter your answer ?');
    : : : : : : readln(answer);
    : : : : : : if answer = secret[3] then
    : : : : : : begin
    : : : : : : writeln('You are correct!');
    : : : : : : done := true;
    : : : : : : end
    : : : : : : else
    : : : : : : writeln('You are wrong! Try it again!');
    : : : : : : until done;
    : : : : : : end;
    : : : : : :
    : : : : : : Begin {main}
    : : : : : : initial;
    : : : : : : assign;
    : : : : : : display;
    : : : : : : start;
    : : : : : : if k = 1 then
    : : : : : : hint1
    : : : : : : else
    : : : : : : if k = 2 then
    : : : : : : hint2
    : : : : : : else
    : : : : : : if k = 3 then
    : : : : : : hint3;
    : : : : : : End.
    : : : : : :
    : : : : : :
    : : : : : :
    : : : : : :
    : : : : : :
    : : : : : wt can I improve
    : : : : : I donna wt should I do
    : : : : :
    : : : : You can do the following to improve it:
    : : : : - Add a loop to the main program so that the user can enter all three words
    : : : : - Move the hints, words and their location and directions into an array, which generalizes the code
    : : : : - Add the correct indentation, which makes the code itself more readable by others
    : : : :
    : : : :
    : : : well
    : : : I don't know how to add your suggestion into the program
    : : : can u help me
    : : :
    : : Adding a loop to the main program should not be a problem, because you've done it before in procedures.
    : : If you know what indentation is (see english dictionary and my Crossword puzzle), then that should also not be a problem.
    : : You are already using the array to store your words in, but only for a short time. You should move all the Secret[] assignments to the Initial() procedure. If you then make an array for the hints, you can recode all the Hint() procedures into 1, with a single parameter to specify which word the user is entering.
    : :
    :
    : You should move all the Secret[] assignments to the Initial() procedure. If you then make an array for the hints, you can recode all the Hint() procedures into 1, with a single parameter to specify which word the user is entering.
    : I don't exactly know what u mean
    : Do u think that if I make the word into wordfile will be better
    : by the way, do u hv e-mail,msn , icq or something like that, so I can contact u
    :
    Interesting! Can I also have one?
    e-mail:[email protected]
  • zibadianzibadian Member Posts: 6,349
    : : : : : : [b][red]This message was edited by anyman at 2004-12-12 3:37:8[/red][/b][hr]
    : : : : : : The sample is here
    : : : : : : program project;
    : : : : : : uses wincrt;
    : : : : : :
    : : : : : : var word : array[1..8,1..5] of char;
    : : : : : : i,j,k,score,choice:integer;
    : : : : : : secret:array[1..3] of string;
    : : : : : : answer : string;
    : : : : : :
    : : : : : :
    : : : : : : Procedure Initial;
    : : : : : : begin
    : : : : : : for i:=1 to 8 do
    : : : : : : for j:= 1 to 5 do
    : : : : : : word[i,j] := '*';
    : : : : : : end;
    : : : : : :
    : : : : : : Procedure display;
    : : : : : : begin
    : : : : : : for i := 1 to 8 do
    : : : : : : begin
    : : : : : : for j := 1 to 5 do
    : : : : : : begin
    : : : : : : write(word[i,j]);
    : : : : : : end;
    : : : : : : writeln;
    : : : : : : end;
    : : : : : : end;
    : : : : : :
    : : : : : : procedure assign;
    : : : : : : begin
    : : : : : : {Assign the first secret word}
    : : : : : : word[1,1] := '1';
    : : : : : : for i := 2 to 8 do
    : : : : : : begin
    : : : : : : word[i,1] := '?';
    : : : : : : end;
    : : : : : : {Assign the second sercet word}
    : : : : : : word[2,1] := '2';
    : : : : : : for j:= 2 to 4 do
    : : : : : : begin
    : : : : : : word[2,j] := '?';
    : : : : : : end;
    : : : : : : word[6,1] := '3';
    : : : : : : {Assign the third secret word}
    : : : : : : for j := 2 to 4 do
    : : : : : : begin
    : : : : : : word[6,j] := '?';
    : : : : : : end;
    : : : : : : end;
    : : : : : : procedure start;
    : : : : : : begin
    : : : : : : writeln;
    : : : : : : writeln;
    : : : : : : writeln;
    : : : : : : write('Which word do you want to guess(1,2,3)?');
    : : : : : : readln(K);
    : : : : : : end;
    : : : : : :
    : : : : : : Procedure Hint1;
    : : : : : : var done : boolean;
    : : : : : : begin
    : : : : : : done := false;
    : : : : : : secret[1] := 'CHANGJEI';
    : : : : : : writeln;
    : : : : : : writeln('Hint 1 : A 8 character word');
    : : : : : : writeln('Meaning : The most common chinese typing method');
    : : : : : : writeln;
    : : : : : : Repeat
    : : : : : : write('Enter your answer?');
    : : : : : : readln(answer);
    : : : : : : If answer = secret[1] then
    : : : : : : begin
    : : : : : : writeln('You are correct !');
    : : : : : : done := true;
    : : : : : : end
    : : : : : : else
    : : : : : : writeln('You are wrong! Try it again!');
    : : : : : : until done;
    : : : : : : end;
    : : : : : :
    : : : : : : procedure hint2;
    : : : : : : var done:boolean;
    : : : : : : begin
    : : : : : : done:= false;
    : : : : : : secret[2] := 'HTML';
    : : : : : : writeln;
    : : : : : : writeln('Hint 2: A 4 character phrase');
    : : : : : : writeln('Meaning : the programming language for the web page');
    : : : : : : writeln;
    : : : : : : Repeat
    : : : : : : write('Enter your answer ?');
    : : : : : : readln(answer);
    : : : : : : if answer = secret[2] then
    : : : : : : begin
    : : : : : : writeln('You are correct!');
    : : : : : : done := true;
    : : : : : : end
    : : : : : : else
    : : : : : : writeln('You are wrong! Try it again!');
    : : : : : : until done;
    : : : : : : end;
    : : : : : :
    : : : : : : Procedure Hint3;
    : : : : : : var done: boolean;
    : : : : : : begin
    : : : : : : done := false;
    : : : : : : secret[3] := 'JAVA';
    : : : : : : writeln;
    : : : : : : writeln('Hint 3: A 4 character phrase');
    : : : : : : writeln('Meaning : The cross-platform programming language for the dynamic web page');
    : : : : : : writeln;
    : : : : : : Repeat
    : : : : : : write('Enter your answer ?');
    : : : : : : readln(answer);
    : : : : : : if answer = secret[3] then
    : : : : : : begin
    : : : : : : writeln('You are correct!');
    : : : : : : done := true;
    : : : : : : end
    : : : : : : else
    : : : : : : writeln('You are wrong! Try it again!');
    : : : : : : until done;
    : : : : : : end;
    : : : : : :
    : : : : : : Begin {main}
    : : : : : : initial;
    : : : : : : assign;
    : : : : : : display;
    : : : : : : start;
    : : : : : : if k = 1 then
    : : : : : : hint1
    : : : : : : else
    : : : : : : if k = 2 then
    : : : : : : hint2
    : : : : : : else
    : : : : : : if k = 3 then
    : : : : : : hint3;
    : : : : : : End.
    : : : : : :
    : : : : : :
    : : : : : :
    : : : : : :
    : : : : : :
    : : : : : wt can I improve
    : : : : : I donna wt should I do
    : : : : :
    : : : : You can do the following to improve it:
    : : : : - Add a loop to the main program so that the user can enter all three words
    : : : : - Move the hints, words and their location and directions into an array, which generalizes the code
    : : : : - Add the correct indentation, which makes the code itself more readable by others
    : : : :
    : : : :
    : : : well
    : : : I don't know how to add your suggestion into the program
    : : : can u help me
    : : :
    : : Adding a loop to the main program should not be a problem, because you've done it before in procedures.
    : : If you know what indentation is (see english dictionary and my Crossword puzzle), then that should also not be a problem.
    : : You are already using the array to store your words in, but only for a short time. You should move all the Secret[] assignments to the Initial() procedure. If you then make an array for the hints, you can recode all the Hint() procedures into 1, with a single parameter to specify which word the user is entering.
    : :
    :
    : You should move all the Secret[] assignments to the Initial() procedure. If you then make an array for the hints, you can recode all the Hint() procedures into 1, with a single parameter to specify which word the user is entering.
    : I don't exactly know what u mean
    : Do u think that if I make the word into wordfile will be better
    : by the way, do u hv e-mail,msn , icq or something like that, so I can contact u
    :
    The ways to contact me are listed on my page here at PH.
    A Pascal assignment is a line with uses this symbol: [b]:=[/b]
    In your code (in the Hint# procedures) you have various codes like this:
    [code]
    secret[3] := 'JAVA';
    [/code]
    If you move these to the Initial() procedure and create an array for the hints, you can delete 2 of the Hint#() procedures and only have a single Hint() procedure, which uses these arrays and the k variable.
  • henry_hk007henry_hk007 Member Posts: 5

    : The ways to contact me are listed on my page here at PH.

    "here at PH"? Where do you mean?
    What is PH?
    Thank you
  • zibadianzibadian Member Posts: 6,349
    :
    : : The ways to contact me are listed on my page here at PH.
    :
    : "here at PH"? Where do you mean?
    : What is PH?
    : Thank you
    :
    With PH I mean ProgrammersHeaven.
  • anymananyman Member Posts: 19
    : :
    : : : The ways to contact me are listed on my page here at PH.
    : :
    : : "here at PH"? Where do you mean?
    : : What is PH?
    : : Thank you
    : :
    : With PH I mean ProgrammersHeaven.
    :
    how can i readin data from the textfile in the random way
    and also how can i receive answer in both upper and lower letters
«1
Sign In or Register to comment.