Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Тюменский Государственный Университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Курсовая Гилёвой Ольги.docx

Скачиваний:

Добавлен:

27.10.2018

Размер:

811.62 Кб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 78 / 98 9 > Следующая >>>

Приложение 1. Блок-схема

Процедура «Pht»

Приложение 2. Текст программы

program Project2;

uses SysUtils, Windows, CRT32;

{$APPTYPE CONSOLE}

var

F:textfile;

ns,n,sl,j,dl,i:integer;

alf1: array ['a'..'z'] of char;

s: set of Char;

l,bk,z:Char;

a,b,vis,vis1,vis2,vis3,vis4,vis5,str: string;

ochki,oshibka,otgadano: shortint;

procedure pht(bukva:char);

begin

Writeln('список букв:');

for l:= 'a' to 'z' do

Write(alf1[l]);

Write(' Введите букву ');

readln(bk);

oshibka:=0;

if bk in s= True then

begin

Writeln('Данная буква уже использована, нажмите ENTER , а затем введите другую букву');

Readln;

End

Else

for i:=1 to dl do

begin

if a[i]=bk then

begin b[i]:=bk; otgadano:=otgadano+1;

Include(s,bk);

end

else

begin

oshibka:=oshibka+1 ;

Include(s,bk)

end;

for l:='a' to 'z' do

if alf1[l]=bukva then alf1[l]:='*';

end;

if oshibka=dl then ochki:=ochki-1;

ClrScr;

If ochki=8 then begin Writeln(vis1);

Writeln(vis2);

Writeln(vis2)

end;

if ochki=9 then begin

Writeln(vis2);

Writeln(vis2)

end;

if ochki=7 then begin Writeln(vis1);

Writeln(vis2,' ',vis2);

Writeln(vis2);

Writeln(vis2)

end;

if ochki=6 then begin Writeln(vis1);

Writeln(vis2,' ',vis2);

Writeln(vis2,' ', vis5);

Writeln(vis2,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis2,'0 0',vis2);

Writeln(vis2,' ',vis2,' _ ',vis2);

Writeln(vis2,' ',vis4,vis5,vis3);

Writeln(vis2);

Writeln(vis2)

end;

if ochki=5 then begin Writeln(vis1);

Writeln(vis2,' ',vis2);

Writeln(vis2,' ', vis5);

Writeln(vis2,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis2,'0 0',vis2);

Writeln(vis2,' ',vis2,' _ ',vis2);

Writeln(vis2,' ',vis4,vis5,vis3);

Writeln(vis2,' ','_________');

Writeln(vis2,' ',vis4,' ',vis3);

Writeln(vis2);

Writeln(vis2)

end;

if ochki=4 then begin Writeln(vis1);

Writeln(vis2,' ',vis2);

Writeln(vis2,' ', vis5);

Writeln(vis2,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis2,'0 0',vis2);

Writeln(vis2,' ',vis2,' _ ',vis2);

Writeln(vis2,' ',vis4,vis5,vis3);

Writeln(vis2,' ','_________');

Writeln(vis2,' ',vis3,vis4,' ',vis3,vis4);

Writeln(vis2,' ',vis3,' ',vis4,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis4,' ',vis3);

Writeln(vis2);

Writeln(vis2)

end;

if ochki=3 then begin Writeln(vis1);

Writeln(vis2,' ',vis2);

Writeln(vis2,' ', vis5);

Writeln(vis2,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis2,'0 0',vis2);

Writeln(vis2,' ',vis2,' _ ',vis2);

Writeln(vis2,' ',vis4,vis5,vis3);

Writeln(vis2,' ','_________');

Writeln(vis2,' ',vis3,vis4,' ',vis3,vis4);

Writeln(vis2,' ',vis3,' ',vis4,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis4,' ',vis3);

Writeln(vis2,' ','___');

Writeln(vis2);

Writeln(vis2)

end;

if ochki=2 then begin Writeln(vis1);

Writeln(vis2,' ',vis2);

Writeln(vis2,' ', vis5);

Writeln(vis2,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis2,'0 0',vis2);

Writeln(vis2,' ',vis2,' _ ',vis2);

Writeln(vis2,' ',vis4,vis5,vis3);

Writeln(vis2,' ','_________');

Writeln(vis2,' ',vis3,vis4,' ',vis3,vis4);

Writeln(vis2,' ',vis3,' ',vis4,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis4,' ',vis3);

Writeln(vis2,' ','___');

Writeln(vis2,' ',vis2,' ',vis2);

Writeln(vis2);

Writeln(vis2)

end;

if ochki=1 then begin Writeln(vis1);

Writeln(vis2,' ',vis2);

Writeln(vis2,' ', vis5);

Writeln(vis2,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis2,'0 0',vis2);

Writeln(vis2,' ',vis2,' _ ',vis2);

Writeln(vis2,' ',vis4,vis5,vis3);

Writeln(vis2,' ','_________');

Writeln(vis2,' ',vis3,vis4,' ',vis3,vis4);

Writeln(vis2,' ',vis3,' ',vis4,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis4,' ',vis3);

Writeln(vis2,' ','___');

Writeln(vis2,' ',vis2,' ',vis2);

Writeln(vis2,' ',vis2,'______');

Writeln(vis2,' ',vis2,'______|');

Writeln(vis2,' ',vis2,' |');

Writeln(vis2,' ',vis2,' |')

end;

if ochki=0 then begin Writeln(vis1);

Writeln(vis2,' ',vis2);

Writeln(vis2,' ', vis5);

Writeln(vis2,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis2,'- -',vis2);

Writeln(vis2,' ',vis2,' _ ',vis2);

Writeln(vis2,' ',vis4,vis5,vis3);

Writeln(vis2,' ','_________');

Writeln(vis2,' ',vis3,vis4,' ',vis3,vis4);

Writeln(vis2,' ',vis3,' ',vis4,' ',vis3,' ',vis4);

Writeln(vis2,' ',vis4,' ',vis3);

Writeln(vis2,' ','___');

Writeln(vis2,' ',vis2,' ',vis2);

Writeln(vis2,' ','______');

Writeln(vis2,' ','| |');

Writeln(vis2,' ','__|_|___');

end;

writeln(' ',b);

Writeln('ochki=',ochki);

end;

begin

setconsoleoutputCP(1251);

setconsoleCP(1251);

{$I-}

Assign(F,'words.txt');

Reset(f);

{$I+}

if ioresult <>0 then write('Ошибка открытия файла') else

begin

Writeln('Здравствуйте, вас приветствует занимательная игра ВИСЕЛИЦА!');

Writeln('Правила игры: Компьютер загадывает слово на английском языке.Игрок должен отгадать это слово. В начале игры у него имеется 10 очков. При каждом неверном ходе игрок теряет одно очко. Если игрок теряет все очки, то он проиграл.');

for l:='a' to 'z' do

alf1[l]:=l;

vis1:='______________________________';

vis2:='|';

vis3:='/';

vis4:='\';

vis5:='___';

ochki:=10;

otgadano:=0;

Reset(f);

while Eof(f)=False do

begin

Readln(f,str);

inc(ns)

end;

Randomize;

n:=Random(ns-1)+1;

sl:=0;

Reset(f);

while Eof(f)=False do

begin

Readln(f,str);

inc(sl);

if sl=n then

a:=str;

end;

dl:=Length(a);

b:=a;

for j:=1 to dl do

b[j]:='-';

Writeln(b);

while ochki>0 do

begin

pht(bk);

if otgadano=dl then

begin

Writeln('Вы победили!!! ');

Readln;

break;

end

end;

if ochki=0 then

begin

Writeln('это было слово ',a);

Writeln('Вы проиграли, в следующий раз повезет');

Readln;

end;

readln;

end.

<<< < Предыдущая 1 2 3 4 5 6 78 / 98 9 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
23.05.20151.97 Mб6курсачна.docx
#
18.04.201537.89 Кб45Курсовая 12_13.doc
#
19.04.201548.57 Кб30курсовая 2.docx
#
23.03.201653.55 Кб101курсовая 2.docx
#
10.12.20181.03 Mб28курсовая Андреева Мария 592 гр..doc
#
27.10.2018811.62 Кб9Курсовая Гилёвой Ольги.docx
#
19.04.201552.57 Кб52курсовая готовая.docx
#
16.11.201984.48 Кб3курсовая измен.doc
#
19.04.201569.9 Кб8курсовая институты кусков.docx
#
19.07.201959.08 Кб5КУРСОВАЯ КАТЮХЕ.docx
#
04.09.2019116.22 Кб4Курсовая на распечатку.doc