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

Користувач вводить символи поки не домалюються всі елементи вішалки, або слово буде відгадане. Є третій варіант завершення гри - "Невизначеність", коли літери названі всі, а слово не відгадане. Цей варіант спрацьовує коли у слові знаходяться недопустмі символи.

Алгоритм задачі

А) Головний алгоритм

Б) Алгоритм процедури ReDraw

В) Алгоритм процедури gExit

Г) Алгоритм процедури Init

Д) Алгоритм процедури IsInput

Реалізація програми

1

program Hangman;

uses crt,graph;

var

first: string [255] ;

second: string [255] ;

tru,fal: integer;

j,el: integer;

let: string [1] ;

alphabet: array [1. .26] of boolean;

isset: boolean;

f1: text;

Procedure redraw;

var k: integer;

begin

SetLineStyle (DottedLn, 0, NormWidth);

rectangle (1,1,275,275);