membuat games dengan program turbo pascal

<div class="posttitle"> <h2 class="pagetitle"> Membuat Games Dengan Program Turbo Pascal 7.0</h2> <small> </small></div> Ini salah satu Permaianan Denga Pemrograman Turbo Pascal 7.0<br /> uses crt;<br /> const<br /> havetry=10;<br /> s: array[0..18] of string=<br /> (‘hello’, ‘mouse’, ‘hacher’, ‘programmer’, ‘killer’, ‘teacher’, ‘splotchier’,<br /> ‘butcher’, ‘computer’, ‘pascal’, ‘house’, ‘poor’, ‘children’, ‘museum’,<br /> ‘security’, ‘spillway’, ‘stupidity’, ‘corrigenda’, ‘freebooter’);<br /> var ch: char;<br /> gue,b,nowwrd,trynow: byte;<br /> s1,wrs,alr: string;<br /> r: boolean;<br /> win: integer;<br /> begin<br /> win:=0;<br /> clrscr;<br /> writeln(‘Game Tebak Kata’);<br /> writeln(‘*****************************************************’);<br /> Writeln(‘Ketikkan huruf apa saja untuk menjawab! ESC for exit’);<br /> writeln;<br /> randomize;<br /> repeat<br /> writeln;<br /> nowwrd:=random(18);<br /> s1:=s[nowwrd];<br /> gue:=0;<br /> wrs:=”;<br /> alr:=”;<br /> trynow:=havetry;<br /> for b:=1 to length(s[nowwrd]) do write(‘_’);<br /> repeat<br /> gotoxy(20,wherey);<br /> write(‘You have ‘,trynow,’ tries ‘);<br /> ch:=readkey;<br /> r:=false;<br /> if ch#0 then<br /> repeat<br /> b:=pos(ch,s1);<br /> if (b0) and (s1[b]#0) then<br /> begin<br /> gotoxy(b,wherey);<br /> write(s1[b]);<br /> alr:=alr+ch;<br /> s1[b]:=#0;<br /> gue:=gue+1;<br /> gotoxy(40,wherey);<br /> write(‘ ‘);<br /> r:=true;<br /> end else<br /> if (pos(ch,alr)0) and (r=false) then<br /> begin<br /> gotoxy(40,wherey);<br /> write(‘Already tried!’);<br /> end else<br /> if (b=0) and (r=false) then<br /> begin<br /> trynow:=trynow-1;<br /> alr:=alr+ch;<br /> wrs:=wrs+ch;<br /> gotoxy(57,wherey);<br /> write(‘Wrong: ‘,wrs);<br /> gotoxy(40,wherey);<br /> write(‘ ‘);<br /> end;<br /> until (b=0) or (trynow=0);<br /> until (ch=#27) or (gue=length(s1)) or (trynow=0);<br /> if (trynow=0) then<br /> begin<br /> win:=win-1;<br /> delline;<br /> gotoxy(1,wherey);<br /> write(s[nowwrd]);<br /> gotoxy(20,wherey);<br /> write(‘You lost! Your scores is ‘,win);<br /> end else<br /> if (gue=length(s1)) then<br /> begin<br /> win:=win+1;<br /> delline;<br /> gotoxy(1,wherey);<br /> write(s[nowwrd]);<br /> gotoxy(20,wherey);<br /> write(‘You win! Your scores is ‘,win);<br /> end;<br /> until ch=#27;<br /> end.<br /> Dan ini gambar dari contoh program di atas<br /> <a href="http://ariblv47.files.wordpress.com/2013/06/program-jalan.jpg"><br /></a> untuk lebih jelas klik Gambar di atas….<br /> Silahkan mencoba dan Copy Paste aja neh Programnya ^^

membuat games dengan program turbo pascal

Membuat Games Dengan Program Turbo Pascal 7.0 Ini salah satu Permaianan Denga Pemrograman Turbo Pascal 7.0 uses crt; ...

+ Baca selengkapnya »