Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
abay19941308
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 34
1

Ошибка в курсовой работе

29.10.2012, 16:48. Просмотров 306. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses graphabc,Events,ABCObjects;
const nmax=10;
type mas=array [1..nmax,1..nmax] of byte;
var Mk:array [1..10, 1..10] of PictureABC;
beef:array [1..10, 1..10] of integer;
a: mas; n: byte;ll:PictureABC;i,j,i1,j1:integer;
 
                     xk,yk: integer;
 
 
procedure numb(x,y,n: integer);
begin
ll:=PictureABC.Create(x,y,'e:\êóðñîâГ*Гї Г°Г*áîòГ*\bamboo'+inttostr(n)+'.png');
end;
 
 
procedure GenMap(var z: mas; var n: byte);
var i,j,ik,jk:byte;
begin
n:=9; ik:=random(n)+1; jk:=random(n)+1;
for i:=1 to n do
    for j:=1 to n do
        begin
        while z[ik,jk]<>0 do
              begin
              ik:=random(n)+1; jk:=random(n)+1;
              end;
        z[ik,jk]:=j;
        end;
end;
 
procedure DrawMap(z: mas; n: byte);
var i,j: byte; x,y: integer;
begin
n:=9;
for i:=1 to n do
    for j:=1 to n do
        begin
        xk:=25+(43*i); yk:=25+(60*j);
        numb(xk,yk,z[i,j]);
        end;end;
 
procedure mousedown(x,y,mb:integer);
begin
i1:=i1+1;j1:=j1+1;
Mk[i1,j1]:=pictureABC.create(x,y,'f:\êóðñîâГ*Гї Г°Г*áîòГ*\bamboo'+inttostr(a[i,j])+'.png');
a[i1,j1]:=1;
if mk[i1,j1].ptinside(x,y)=true then begin
mk[i,j].destroy;
mk[i+1,j+1].destroy;
end;end;
 
 
begin
 loadwindow('Г±Г*èìîê.png');
 GenMap(a,n);
 DrawMap(a,n);
 SetWindowSize(648,496);
 i1:=1;j1:=1;
 onmousedown:=mousedown;
end.
0 - выход за границы диапазона изменения индекса 1..10
не могу устранить данную ошибку
Помогите пожалуйста
0
Вложения
Тип файла: rar курсовая работа.rar (719.7 Кб, 4 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2012, 16:48
Ответы с готовыми решениями:

Ошибка при работе с массивом
var a:array of integer; i,L,M:integer; begin randomize; for i:=1 to n do begin...

Ошибка при работе с очередью
Вот программа program lab; uses lab1; var i:integer; begin write ('Введите кол-во элементов...

Ошибка в работе с файлами и функцией
Ввести массив А(4,6) целых чисел из существующего входного файла. Использьзуя функцию с параметром,...

Ошибка при работе с Windows 98 и Word 97
Ошибка следующая: Запрашиваем номер семейства не существует. Что за ошибка? Вывожу данные в Word.

Ошибка в программе при работе с файлами
Нужно сначала записать в файл 5 компонент целочисленного типа, далее нужно посчитать их сумму. Вот...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2012, 16:48

Ошибка при работе программы вещественное деление на 0
При работе программы вводятся значения A=1 N=16 эти значения необходимо вводить по условию в первом...

При работе с модулем WinGraph выдаетcя ошибка
При работе с модулем wingraph паскаль выдает ошибку , что не возможно запустить граф.мод и т.д ,...

Ошибка проверки диапазона при работе с типизированным типом файла
Возникает ошибка проверки диапазона? как это исправить? program Lab8; uses crt; type Pol =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru