IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Массив, процедура и модуль, Помогите избавиться от ошибки 26
Юрий
сообщение 6.06.2010 18:09
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Юрий

Репутация: -  0  +


Помогите, пожалуйста, найти ошибку, голову сломал:
Есть процедура, в которой в качестве параметра используется массив. Все работает:

Type matr=array [1..2,1..10] of real;
Var P:matr;
...
Procedure FN (Var P:matr; k:integer);
Begin
For k:=1 to 10 do
if P[1,k]<0 then
begin
P[1,k]:=0;
P[2,k]:=P[2,k]+R
end
end;
...
Begin
...

if R0<R then FN(P,J);


Но если выношу процедуру в отдельный модуль, то при точно таком же вызове процедуры после FN(P, компилятор дает ошибку 26. Что делаю не так? Пробовал в описании процедуры убирать Var, не помогло.

Unit Dva;
Interface
Type matr=array [1..2,1..10] of real;
Var P:matr;

R:real;

Procedure FN (Var P:matr);

Implementation
Procedure FN;
var
k:integer;
Begin
For k:=1 to 10 do
if P[1,k]<0 then
begin
P[1,k]:=0;
P[2,k]:=P[2,k]+R
end;
end;
end.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 6.06.2010 18:27
Сообщение #2


Гость






Цитата
Procedure FN (Var P:matr);
- ожидается один параметр. Ты пытаешься передать 2, как было без модуля.

Зачем поменял заголовок процедуры? Количество и порядок следования параметров должны быть неизменны, если хочешь вызывать подпрограмму так же, как и раньше...
 К началу страницы 
+ Ответить 
Юрий
сообщение 6.06.2010 19:10
Сообщение #3





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Юрий

Репутация: -  0  +


Это я уже экспериментировал. Вернул все как было. Ошибка осталась. Вот коды основного модуля и модуля с процедурой:

Program Osnova;
Uses Odin, Dva;

Type matr=array [1..2,1..10] of real;

Var
P:matr;
i,J:integer;
f1,f2:text;
R,R0:real;

Begin
assign(f1,'C:\pascal\is.txt');
assign(f2,'C:\pascal\vd.txt');
reset(f1);
rewrite(f2);

{vvod R}
write('Input R: ');
readln®;

for i:=1 to 2 do
for J:=1 to 10 do
begin
read(f1,P[i,j]);
end;

j:=0;
repeat
j:=j+1;
R0:=rast(P[1,J],P[1,J+1],P[2,J],P[2,J+1]);
until R0<R;

if R0<R then
begin
for i:=1 to 10 do FN(P,J);

writeln(f2,' ':35,'Rezyltat');
writeln(f2);

for i:=1 to 2 do
begin
for j:=1 to 10 do
write(f2,' ':3,P[i,J]:6:3);
writeln(f2);
end;

close(f1);
close(f2)
end;
end.



Unit Dva;
Interface
Type matr=array [1..2,1..10] of real;
Var P:matr;
k:integer;
R:real;

Procedure FN (Var P:matr, k:integer);

Implementation
Procedure FN;
Begin
For k:=1 to 10 do
if P[1,k]<0 then
begin
P[1,k]:=0;
P[2,k]:=P[2,k]+R
end;
end;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 6.06.2010 19:18
Сообщение #4


Гость






Цитата
Procedure FN (Var P:matr,  k:integer);
там должна стоять точка с запятой, а не запятая. Это первое.

Второе. Ты и в модуле и в основной программе описываешь тип matr. Зачем? Проблемы нужны? Вот ты их и получил: тот тип matr, что описан в модуле, и тот, что описан в основной программе - РАЗНЫЕ типы, хотя и очень похожи. Они несовместимы, и пока ты не уберешь описание типа matr из основной программы, программа компилироваться не будет.

Ну, и третье - вот я не понимаю, зачем передавать в процедуру параметр, который не будет внутри нее использоваться? Опиши K, как локальную переменную, и пусть процедура принимает только один параметр - саму матрицу.
 К началу страницы 
+ Ответить 
Юрий
сообщение 6.06.2010 20:57
Сообщение #5





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Юрий

Репутация: -  0  +


Цитата
там должна стоять точка с запятой, а не запятая. Это первое.

Невнимательность, спасибо.
Цитата
Ну, и третье - вот я не понимаю, зачем передавать в процедуру параметр, который не будет внутри нее использоваться? Опиши K, как локальную переменную, и пусть процедура принимает только один параметр - саму матрицу.

Это я и начал пытаться делать в первом листинге smile.gif
Цитата
Второе. Ты и в модуле и в основной программе описываешь тип matr. Зачем? Проблемы нужны? Вот ты их и получил: тот тип matr, что описан в модуле, и тот, что описан в основной программе - РАЗНЫЕ типы, хотя и очень похожи. Они несовместимы, и пока ты не уберешь описание типа matr из основной программы, программа компилироваться не будет.

Вот это и была моя главная ошибка, на которую убил целый день. Огромное спасибо за помощь! good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 0:33
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"