Курсовая работа: Створення програми гри "Шибениця"

exit;

End;

end;

function isinput (s: string): boolean;

var p: integer;

begin

isinput: =false;

for p: =1 to 26 do

if alphabet [ord (s [1]) - 64] =true then isinput: =true;

end;

begin

init;

redraw;

while fal<7 do

begin

if tru=length (second) then gexit ('You win! ');

if tru>26 then gexit ('Unknown! ');

let: =upcase (readkey);

if isinput (let) =false then

begin

isset: =false;

for j: =1 to length (second) do

begin

if first [j] =let then

begin

isset: =true;

first [j]: =' ';

inc (tru);

end;