Howdy, Stranger!

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

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Just like every HK Student, wanna ask about crossword puzzle

anymananyman Posts: 19Member
[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 Posts: 19Member
    : [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 Posts: 6,349Member
    : : [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 Posts: 19Member
    : : : [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 Posts: 6,349Member
    : : : : [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 Posts: 19Member
    : : : : : [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 Posts: 5Member
    : : : : : : [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:henry_hk007@yahoo.com.hk
  • zibadianzibadian Posts: 6,349Member
    : : : : : : [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 Posts: 5Member

    : 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 Posts: 6,349Member
    :
    : : 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 Posts: 19Member
    : :
    : : : 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.