• Вступ
• 1. Загальна частина
• 1.1 Постановка задачі
• 1.2 Опис засобів програмної реалізації
• 1.3 Вимоги до апаратного та програмного забезпечення
• 2. Практична частина
• 2.1 UML-діаграма варіантів використання
• 2.2 Реалізований алгоритм
• 2.3 Опис програмної реалізації
• 2.4 Інструкція програміста
• 2.5 Інструкція оператора
• Висновок
• Список використаних джерел
• Додаток А. Код програми

Вступ

Кросворд - одна з найпоширеніших у світі ігор зі словами. це головоломка, в основі якої лежать переплетені ряди клітин, які заповнюються словами з заданими значеннями.

В курсовому проекті на тему "Кросворд", наведено приклад реалізації додатка, який дозволяє створювати кросворди, зберігати та розв'язувати їх.

Реалізувати цю задачу було вирішено на мові програмування Object Pascal в середовищі програмування Delphi XE7, а саме за допомогою використання об'єктно-орієнтованих можливостей С++.

Основне завдання курсової роботи на тему "Кросворд" полягає в тому, що необхідно створити додаток, який дозволяє створювати сітку кросворду, вводити в неї слова, вводити запитання до слів та реалізувати перевірку правильності слів при розв'язанні його.

Під час створення сітки кросворду згідно заданим правилам, до кожного введеного слова потрібно ввести запитання. Якщо запитань до слів немає, то про це слід повідомити користувача, або ж, в іншому випадку зберегти файл без запитань.

Додаток повинен передбачати, що коли немає запитань до слів, воно автоматично вважається не правильним при розгадуванні створеного кросворду.

алгоритм кросворд pascal програмування

Для курсового проекту було обрано операційну систему Windows 7, і мову Object Pascal (середовище Delphi XE7).

Операційна система. В якості операційної системи, для якої була реалізована програма, обрана система з серії Microsoft Windows. Головною причиною є те, що сім'я систем Microsoft на сьогоднішній день найпоширеніша, і в той же час є багатофункціональною системою. Даною програмою бажано користуватися на комп'ютерах з операційною системою Windows 7, що пов'язано з високою надійністю цієї системи.

Середовище програмування. Delphi XE7 - це інтегроване середовище швидкої розробки програмного забезпечення. Середовище Embarcadero Delphi працює під Microsoft Windows і підтримує розробку програмного забезпечення для операційних систем Microsoft Windows x86 та x64, Mac OSx86, Apple iOS та Android на мові програмування Delphi (Object Pascal). Object Pascal - об'єктно-орієнтована мова програмування, нащадок Pascal, більш відома як основна мова програмування середовища Delphi.

Об'ємктно-орієнтомване програмувамння (ООП) - одна з парадигм (Парадимгма програмувамння - це система ідей і понять, які визначають стиль написання комп'ютерних програм, а також спосіб мислення програміста.) програмування, яка розглядає програму як множину "об'єктів", що взаємодіють між собою. Основу ООП складають три основні концепції: інкапсуляція, ускладнювання та поліморфізм.

Одною з переваг ООП є краща модульність програмного забезпечення (тисячу функцій процедурної мови в ООП можна замінити кількома десятками класів із своїми методами).

1.3 Вимоги до апаратного та програмного забезпечення

2.2 Реалізований алгоритм

Рисунок 2 - Блок-схема алгоритму загальної роботи усією програми

2.4 Інструкція програміста

Висновок

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, extctrls, ComCtrls, OleServer, WordXP, Buttons;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

N8: TMenuItem;

N9: TMenuItem;

N3: TMenuItem;

Label4: TLabel;

N12: TMenuItem;

N13: TMenuItem;

Label5: TLabel;

PopupMenu1: TPopupMenu;

N15: TMenuItem;

N16: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N17: TMenuItem;

N2: TMenuItem;

N6: TMenuItem;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure N8Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

type //класс

tcross=record

stv,stg,razm,nvslova,nhslova:integer;

parol:string[15];

crswrd:array[0..500,0..500] of char;

hslova,vslova:array[1..255] of string[50];

hwords,vwords:array[1..255] of string[255];

end;

var

Form1: TForm1;

otgad,q,canclose:boolean;

cross:tcross;

implementation

uses unit2, Unit3, unit4, unit5, unit6, Unit7, Unit8, unit9, unit10,

Unit11;

{$R *.dfm}

function proverka:boolean;

var i:integer;

s:string;

begin

if not unit1.otgad then

begin

Result:=false;

s:='';

for i:=1 to cross.nhslova do

if Length(cross.hwords[i])=0 then s:=s+cross.hslova[i]+';';

for i:=1 to cross.nvslova do

if Length(cross.vwords[i])=0 then s:=s+cross.vslova[i]+';';

if Length(s)>0 then if messagedlg('Нет вопросов к словам: '+copy(s,1,length(s)-1)+'. Продолжить?',mtInformation,[mbYes, mbNo],0)=mryes then Result:=true;

if Length(s)=0 then Result:=true;

end else result:=true;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

n17.Click;

if not form2.Showing then

begin

form10.Close;

form5.RadioGroup1.Enabled:=true;

otgad:=false;

form3.showmodal;

end;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form11.ShowModal

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

form2.SetFocus

end;

procedure TForm1.N12Click(Sender: TObject);

begin

inc(cross.stg);

form3.SpinEdit1.Value:=cross.stg;

form2.polecreate(form2);

end;

procedure TForm1.N13Click(Sender: TObject);

begin

inc(cross.stv);

form3.SpinEdit2.Value:=cross.stv;

form2.polecreate(form2);

end;

procedure TForm1.N11Click(Sender: TObject);

var

f:file of tcross;

x:TextFile;

i,j:integer;

begin

if otgad then

begin

savedialog1.FileName:='vasia';

SaveDialog1.DefaultExt:='crss';

savedialog1.InitialDir:=extractfilepath(application.ExeName)+'\save\solved';

SaveDialog1.Filter:='*.crss|*.crss';

if savedialog1.Execute then

begin

assignfile(x,savedialog1.FileName);

rewrite(x);

for i:=1 to unit2.i do

begin

write(x,form2.bt[i].caption);

end;

closefile(x);

end;

end else

if proverka then

begin

SaveDialog1.Filter:='*.kydrya|*.kydrya';

SaveDialog1.DefaultExt:='kydrya';

savedialog1.FileName:=opendialog1.FileName;

if (cross.parol='')and(form7.CheckBox1.Checked=false) then begin unit7.q:=true;form7.Showmodal;end;

if (cross.parol<>'')or(form7.CheckBox1.Checked) then

if savedialog1.Execute then

begin

savedialog1.InitialDir:=extractfilepath(application.ExeName)+'\save';

assignfile(f,savedialog1.FileName);

for i:=0 to cross.stg do

for j:=0 to cross.stv do cross.crswrd[i,j]:=chr(ord(cross.crswrd[i,j])-30);

for i:=1 to 50 do

for j:=1 to 255 do

begin

cross.hslova[j][i]:=chr(ord(cross.hslova[j][i])-100);

cross.vslova[j][i]:=chr(ord(cross.vslova[j][i])-100);

end;

for i:=1 to length(cross.parol) do cross.parol[i]:=chr(ord(cross.parol[i])-100);

rewrite(f);

write(f,cross);

for i:=0 to cross.stg do

for j:=0 to cross.stv do cross.crswrd[i,j]:=chr(ord(cross.crswrd[i,j])+30);

for i:=1 to 50 do

for j:=1 to 255 do

begin

cross.hslova[j][i]:=chr(ord(cross.hslova[j][i])+100);

cross.vslova[j][i]:=chr(ord(cross.vslova[j][i])+100);

end;

for i:=1 to length(cross.parol) do cross.parol[i]:=chr(ord(cross.parol[i])+100);

closefile(f);

end;

form7.CheckBox1.Checked:=false;

end;

end;

procedure TForm1.N10Click(Sender: TObject);

var

i:integer;

s:string;

f:file of tcross;

begin

n17.Click;

OpenDialog1.DefaultExt:='kydrya';

OpenDialog1.Filter:='*.kydrya|*.kydrya';

if not form2.Showing then

if opendialog1.Execute then if fileexists(opendialog1.FileName) then

begin

form2.OnCreate(form2);

form5.OnCreate(form5);

assignfile(f,opendialog1.FileName);

reset(f);

read(f,cross);

closefile(f);

for i:=1 to length(cross.parol) do cross.parol[i]:=chr(ord(cross.parol[i])+100);

{!!}label3.Caption:=cross.parol;

n9.Enabled:=true;

form1.Enabled:=false;

form8.Showmodal;

form10.Close;

s:=OpenDialog1.FileName;

repeat

delete(s,1,pos('\',s));

until pos('\',s)=0;

delete(s,pos('.kydrya',s),length(s));

form1.Caption:=form1.Caption+': "'+s+'"';

end;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

unit7.q:=false;

form7.Showmodal;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if form2.Showing then

if messagedlg('Вы действительно хотите выйти? Все несохраненные данные будут утеряны.',mtInformation,mbokcancel,0)=mrcancel then

Action := caNone;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

q:=false;

form9.showmodal

end;

procedure TForm1.N16Click(Sender: TObject);

begin

form9.OnShow(form9);

q:=true;

if otgad then begin form9.spinedit1.Value:=form9.spinedit1.Value+1; form9.spinedit2.Value:=form9.spinedit2.Value+1; end;

form2.crsmeshenie;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

q:=false;

canclose:=false;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

canclose:=true;

if form2.Showing then

if messagedlg('Вы действительно хотите закрыть этот кроссворд? Все несохраненные данные будут утеряны.',mtInformation,mbokcancel,0)=mrok then

Begin

form1.Caption:='Кроссворд';

cross.parol:='';

form2.OnCreate(form2);

form2.Nomera;

form2.Close;

form4.Close;

form5.OnCreate(form5);

form5.Close;

form6.Memo1.Clear;

form6.Close;

form7.Close;

form8.Close;

form9.Close;

form10.Memo1.Clear;

form10.Close;

n9.Enabled:=true;

n2.Enabled:=false;

n5.Enabled:=true;

n6.Enabled:=false;

n11.Enabled:=false;

n12.Enabled:=false;

n13.Enabled:=false;

n15.Enabled:=false;

n16.Enabled:=false;

end;

canclose:=false;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

if Left+Width>=screen.Width then Left:=screen.Width-Width;

if top+Height>=screen.Height then top:=screen.Height-Height;

end;

procedure TForm1.N2Click(Sender: TObject);

var

z,t1,t2,tx,nh,nv,otv:integer;

slovo:boolean;

s:string;

begin

nv:=0;

nh:=0;

otv:=0;

for t1:=1 to unit2.i do if form2.bt[t1].Caption<>cross.crswrd[(form2.bt[t1].left+form2.HorzScrollBar.Position)div cross.razm,(form2.bt[t1].Top+form2.VertScrollBar.Position)div cross.razm] then form2.bt[t1].Font.Color:=clred else form2.bt[t1].Font.Color:=clgreen;

for t2:=0 to cross.stv do

for t1:=0 to cross.stg do

begin

if (ord(cross.crswrd[t1,t2])>191)and((t1=0)or(ord(cross.crswrd[t1-1,t2])<192))and(ord(cross.crswrd[t1+1,t2])>191) then

begin

inc(nh);

tx:=t1;

s:='';

z:=0;

slovo:=true;

while ord(cross.crswrd[tx,t2])>191 do

begin

repeat

inc(z);

until (z=unit2.i)or(((form2.bt[z].left+form2.HorzScrollBar.Position) div cross.razm=tx)and((form2.bt[z].top+form2.VertScrollBar.Position) div cross.razm=t2));

if form2.bt[z].Caption<>cross.crswrd[tx,t2] then slovo:=false;

inc(tx);

end;

if slovo then inc(otv);

end;

if (ord(cross.crswrd[t1,t2])>191)and((t2=0)or(ord(cross.crswrd[t1,t2-1])<192))and(ord(cross.crswrd[t1,t2+1])>191) then

begin

inc(nv);

tx:=t2;

s:='';

z:=0;

slovo:=true;

while ord(cross.crswrd[t1,tx])>191 do

begin

repeat

inc(z);

until (z=unit2.i)or(((form2.bt[z].left+form2.HorzScrollBar.Position) div cross.razm=t1)and((form2.bt[z].top+form2.VertScrollBar.Position) div cross.razm=tx));

if form2.bt[z].Caption<>cross.crswrd[t1,tx] then slovo:=false;

inc(tx);

end;

if slovo then inc(otv);

end;

end;

if messagedlg('Правильно отвечено '+inttostr(otv)+' из '+inttostr(nh+nv),mtInformation,mbokcancel,0)=mrok then ;

for t1:=1 to unit2.i do form2.bt[t1].Font.Color:=form4.Button3.Font.Color;

end;

procedure TForm1.N6Click(Sender: TObject);

var

i:integer;

x:TextFile;

s:wideString;

begin

OpenDialog1.Filter:='*.crss|*.crss';

OpenDialog1.DefaultExt:='crss';

OpenDialog1.FileName:='vasia.crss';

if opendialog1.Execute then if fileexists(opendialog1.FileName) then

begin

AssignFile(x,opendialog1.FileName);

reset(x);

read(x,s);

if length(s)=unit2.i then

for i:=1 to length(s) do

form2.bt[i].Caption:=s[i] else

messagedlg('Неправильный формат файла.',mtInformation,mbokcancel,0);

end else messagedlg('Файла с таким именем не существует.',mtInformation,mbokcancel,0);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

n10.Click;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

n3.Click;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.