Разработка программы, позволяющей автоматизировать процесс разгадывания кроссворда. Обоснование языка программирования, руководство системного программиста. Характеристика и специфика требований, предъявляемых к программе или программному изделию.
Аннотация к работе
Задачи курсового проекта: необходимо реализовать программу, позволяющую автоматизировать процесс создания кроссворда. В данном проекте необходимо реализовать программу, позволяющую автоматизировать процесс разгадывания кроссворда. Delphi 7 предоставляет программисту встроенные шаблоны форм и приложений, которые можно использовать для того, чтобы быстро начать разработку собственных прикладных программ. Программа должна обеспечивать возможность выполнения следующих функций: - открытие схемы кроссворда; for i:=0 to words.Count-1 do //по всем словам из словаря слов begin if used.INDEXOF(words[i])-1 then continue; //в одном кроссворде одно слово дважды не встречается used.INSERTOBJECT(0,words[i],pointer(CURWORD)); //вставим в начало списка используемых слов if valid(used) then //проверка на правильность interior(used,CURWORD 1); //прошло-ищем следующее слово if ENDOFFIND then exit; //выход если не надо больше used.delete(0); //теперь удалим последнее слово, т.к. на его место в следующем обороте end; //цикла вставим новое end;В процессе выполнения данного проекта был проведен анализ требований к программе. При кодировании программы были изучены возможности среды программирования и классы доступные пользователю._W,_H,maxwords:integer; //ширина, высота, всего слов ENDOFFIND:boolean=false; //хватит искать SHNAME:string="1.scm"; //схема по умолчанию WDNAME:string="main.wds"; //словарь по умолчанию for i:=0 to matrix.Count-1 do begin for j:=1 to length(matrix[i]) do begin s:=matrix[i][j]; for i:=1 to ini.READINTEGER("main","height",6) do begin matrix.Add(ini.READSTRING("matrix",INTTOSTR(i),"111111")); begin str:=ini.readstring("words",INTTOSTR(words),"1,1,v"); //загрузка описания слова fi:=STRTOINT(Split(str,",")); //х,у и направление fj:=STRTOINT(Split(str,",")); for i:=0 to words.Count-1 do //по всем словам из словаря слов begin if used.INDEXOF(words[i])-1 then continue; //в одном кроссворде одно слово дважды не встречается used.INSERTOBJECT(0,words[i],pointer(CURWORD)); //вставим в начало списка используемых слов if valid(used) then //проверка на правильность interior(used,CURWORD 1); //прошло-ищем следующее слово if ENDOFFIND then exit; //выход если не надо больше used.delete(0); //теперь удалим последнее слово, т.к.