Can someone give me code for hangman in watcom pascal please, thank you
jodhy
0
Newbie Poster
Recommended Answers
Jump to PostAny effort?
Try to send some of your code,then maybe I can help you.Thank you.
Jump to Postprogram Project1; {$APPTYPE CONSOLE} uses SysUtils; const ch = 'a'; var user,temp:string; i:byte; begin {main} temp:=''; write('Write me a word:'); readln(user);{catch the word...} {analize it,char by char} for i:=1 to length(user)do begin if user[i]<>ch then temp:=temp+user[i]; end; writeln('I deleted the whole ''',ch,''' character from that string.'); writeln('So …
All 8 Replies
FlamingClaw
98
Posting Pro
jodhy
0
Newbie Poster
FlamingClaw
98
Posting Pro
jodhy
0
Newbie Poster
FlamingClaw
98
Posting Pro
jodhy
0
Newbie Poster
jodhy
0
Newbie Poster
FlamingClaw
98
Posting Pro
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.