VPF::Подсчёт количества записей - Форум программистов

Kosya4ok

Дата 7.11.2007, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 132
Регистрация: 23.7.2007

Репутация: нет
Всего: нет

Всем добрый день!

Код


const maxn = 20;
type book = record;
        ID : integer;
        Number : integer;
end;
var zapis : array[1..maxn] of book;
rf : book;

function count(s : zapis; size : integer) : integer;
var j : integer;
begin
with rf do
     j := 0;
     for i := 1 to size do
     if (s[i].ID <> 0) then
        inc(j)
     else
         begin
         count := size - j;
         break;
         end;
end;

procedure ins;
var b : integerl
.....
        write('Book ID: ');
        readln(ID);
        zapis[i].ID := ID;
.....
        b := count(zapis, maxn);

Объясните пожалуста почему когда пишешь такой код то ругается на параметр функции s : zapis; и пишет Type identifier expected. А когда меняешь на type zapis = array[1..maxn] of book, то уже ругается на zapis[i].ID := ID и пишет "(" expected. Помогите плиз разобраться.

volvo877

Дата 7.11.2007, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Код


const maxn = 20;
type book = record
        ID : integer;
        Number : integer;
end;
type
  arr_zapis = array[1..maxn] of book;

var
  zapis: arr_zapis;
  rf : book;
function count(s : arr_zapis; size : integer) : integer;
...

... дальше код - без изменений... Ты должен указывать тип переменной в заголовке, а ты пытаешься передать имя_переменной:имя_переменной

Это сообщение отредактировал(а) volvo877 - 7.11.2007, 22:33

Kosya4ok

Дата 10.11.2007, 00:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 132
Регистрация: 23.7.2007

Репутация: нет
Всего: нет

Пасибки за ответ всё заработало. ЗАЧОТ!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »