Немогу устранить ошибку , двумерный массив.

20.04.2010, 22:28. **Показов** 808. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Вообщем есть у меня задание, практически выполнено, но ступор стал на однок куске, не могу понять что не так.
С 31 по 58 строку ищется непарный столбец в котором следующий элемент больше предидущего минимум в 2 раза;Если такого столбца нету, берется последняя строка массива

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
62
63
64
65
66
67
program q; uses crt;
var
i,j,kStr,kStb,verifiX2,numColumn:integer;
z,x,u,g,gg:real;
a:array[1..1000,1..1000] of real;  {Ãëàâíûé ìàññèâ}
x1:array[1..1000] of real;         {Ìàññèâ Âåêòîðà Õ}
z1:array[1..1000] of real;         {Ìàññèâ îòâåòîâ Íåïîíÿòíîé ôîðìóëû èç òàáë.3}
begin
clrscr;
{Ââîä ðàçìåðíîñòè ìàññèâà}
writeln('Ââåäèòå êîë-âî ñòðîê ìàññèâà');
readln(kStr);
writeln('Ââåäèòå êîë-âî ñòîëáöîâ ìàññèâà');
readln(kStb);
clrscr;
{Çàïîëíåíèå ìàññèâà ïî ôîðìóëå}
for i:=1 to kStr do
for j:=1 to kStb do
begin
z:=(2*abs(3.3-i)-1.5)*(6.5-j)*exp(j*ln(2))*(i-3.4)*(j/3-1);
a[i,j]:=z;
end;
{Âûâîä Ìàññèâà}
for i:=1 to kStr do
begin
for j:=1 to kStb do
write(a[i,j]:2,' ');
writeln;
end;
{Âûäåëåíèå êîìïîíåòîâ âåêòîðà Õ}
 verifiX2:=0; g:=0;
j:=2;
         for j:=1 to kStb do
           numColumn:=j;
                                  begin
           for i:=1 to kStr do
           g:=a[i];        //Вот здесь появляется ошибка о том что массив имеет другое количество размерностей
           g:=g*2;
           gg:=a[i-1];
            if g>gg then begin
           verifiX2:=verifiX2+1
            if verifiX2=kStb then begin
           break;
           end;
           end;
           end;
           if verifiX2=kStb then begin
           for i:=1 to kStr do
           begin
           a[i,numColumn]:=x1[i];
           end;
j:=1;
           if verifiX2<>kStb then begin
           for j:=1 to kStb
           begin
           a[kStr,j]:=x1[i];
           end;
           end;
{Ðàñ÷åò íåïîíÿòíîé ôîðìóëû èç òàáë. 3}
u:=0;
for i:=1 to kStr do
begin
u:=(1/(1+(x1[i])));
z1[i]:=u;
end;
{Âûâîä ðåçóëòàòîâ}
end.

Добавлено через 15 минут
Ап, хотя бы намекните что здесь не так (:

@Artishok · 20.04.2010, 22:34

условие в студию.
не хватает одного ; -44 одного do-51 и одного end(смотрите где цикл не закрыли)

21.04.2010, 00:09

Вот условие:
По формуле z:=(2*abs(3.3-i)-1.5)*(6.5-j)*exp(j*ln(2))*(i-3.4)*(j/3-1); ввести двумерный массив, обработать полученный массив выделив из него вектора, за вектор принять первый непарный столбец в котором следующий элемент больше предыдущего минимум в 2 раза, используя вектор решить уравнение u:=(1/(1+(x1[i]))).
Закрыл пропущенный begin и вставил dо , но ступор все на том же месте

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
62
63
64
65
66
67
68
program q; uses crt;
var
i,j,kStr,kStb,verifiX2,numColumn:integer;
z,x,u,g,gg:real;
a:array[1..100,1..100] of real;  {Ãëàâíûé ìàññèâ}
x1:array[1..100] of real;         {Ìàññèâ Âåêòîðà Õ}
z1:array[1..100] of real;         {Ìàññèâ îòâåòîâ Íåïîíÿòíîé ôîðìóëû èç òàáë.3}
begin
clrscr;
{Ââîä ðàçìåðíîñòè ìàññèâà}
writeln('Ââåäèòå êîë-âî ñòðîê ìàññèâà');
readln(kStr);
writeln('Ââåäèòå êîë-âî ñòîëáöîâ ìàññèâà');
readln(kStb);
clrscr;
{Çàïîëíåíèå ìàññèâà ïî ôîðìóëå}
for i:=1 to kStr do
for j:=1 to kStb do
begin
z:=(2*abs(3.3-i)-1.5)*(6.5-j)*exp(j*ln(2))*(i-3.4)*(j/3-1);
a[i,j]:=z;
end;
{Âûâîä Ìàññèâà}
for i:=1 to kStr do
begin
for j:=1 to kStb do
write(a[i,j]:2,' ');
writeln;
end;
{Âûäåëåíèå êîìïîíåòîâ âåêòîðà Õ}
 verifiX2:=0; g:=0;
j:=2;
         for j:=1 to kStb do
           numColumn:=j;
                                  begin
           for i:=1 to kStr do
           g:=a[i];
           g:=g*2;
           gg:=a[i-1];
            if g>gg then begin
           verifiX2:=verifiX2+1
            if verifiX2=kStb then begin
           break;
           end;
           end;
           end;
           if verifiX2=kStb then begin
           for i:=1 to kStr do
           begin
           a[i,numColumn]:=x1[i];
           end;
           end;
j:=1;
           if verifiX2<>kStb then begin
           for j:=1 to kStb do
           begin
           a[kStr,j]:=x1[i];
           end;
           end;
{Ðàñ÷åò íåïîíÿòíîé ôîðìóëû èç òàáë. 3}
u:=0;
for i:=1 to kStr do
begin
u:=(1/(1+(x1[i])));
z1[i]:=u;
end;
{Âûâîä ðåçóëòàòîâ}
end.

Добавлено через 1 час 20 минут
Ап, что никто не знает в чем ошибка?)

@Artishok · 21.04.2010, 00:41

в нынешнем коде - 41 строка ----не хватает в ней ;

да куча там ошибок.
у Вас а-двумерный массив а,потом он стал одномерным.Вы присваиваете переменной g -типа real значения переменных из массива.
break вне цикла(не знаю как на Вашем компиляторе но у мой ругается)

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	20.04.2010, 22:34
	условие в студию. не хватает одного ; -44 одного do-51 и одного end(смотрите где цикл не закрыли) 0

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	21.04.2010, 00:41
	в нынешнем коде - 41 строка ----не хватает в ней ; да куча там ошибок. у Вас а-двумерный массив а,потом он стал одномерным.Вы присваиваете переменной g -типа real значения переменных из массива. break вне цикла(не знаю как на Вашем компиляторе но у мой ругается) 0