Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Fi4y
0 / 0 / 0
Регистрация: 21.03.2017
Сообщений: 1
1

Хеширование, исправить ошибки в коде

26.09.2017, 21:41. Просмотров 124. Ответов 1
Метки нет (Все метки)

Ошибка 39 строка link не объявлен в типе node
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
Program Hash;
{объявляем новый тип данных}
type
link = ^node;
node = record
key: integer;
st: string;
next: link;
end;
 
var
mas: array[0..9] of link; {создаем массив для хранения значений функции}
key2: integer;
string_s: string;
 
{вычисление значения хеш-функции}
function h(key: integer): integer;
begin
h:=key mod 10;
end;
 
{функция для организации поиска в таблице}
function search(key1: integer; st1: string): link;
var
i: integer;
q, p, s: link;
begin
i:= h(key1);
q:=nil;
p:=mas[i];
while p <> nil do
begin
if p^.key = key1 then
begin
    search:=p;
    exit;   
    end;
q := p;
p := p^.link;
end;
 
{Если ключ не найден, вставляем новую запись}
new(s);
s^.key:=key1;
s^.st:=st1;
s^.next:=nil;
if q = nil then
mas[i]:=s
else
q^.next:=s;
search:=s;
end;
 
Begin
  
write ('Enter key: ');
readln(key2);
write ('Enter string for search: ');
readln(string_s);
 
search(key2, string_s);
  
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2017, 21:41
Ответы с готовыми решениями:

Исправить ошибки в коде
Народ исправте ошыбку program tramvay; var n:integer; begin write('ДАНЫЕ:...

Исправить ошибки в коде
Всем привет! Спасибо что открыли эту тему! Мой друг уже несколько дней бьётся...

Заполнение и графический вывод массива - исправить ошибки в коде
помогите найти ошибку. Может кто-нибудь подскажет в чем проблема program...

Исправить ошибки в коде
Старая программа, помогите исправить ошибки или подскажите, какая программа...

Найти и исправить ошибки в коде
program ciklicheskie; var n1, n2, nom :integer; u1, u2, u3 : boolean; ...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26337 / 17667 / 6998
Регистрация: 22.10.2011
Сообщений: 31,083
Записей в блоге: 6
26.09.2017, 22:10 2
Ну, так поле называется next, а не link, правильно все компилятор говорит.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.09.2017, 22:10

Сортировка - исправить ошибки в коде
Const x:arrayof integer=(-1,2,4,-8,1,3,5,13,-4,7); Var i,s,k:integer; Begin...

Исправить ошибку в коде
Что не так? задание: Написать подпрограмму для вычисления ординаты точки...

Исправить ошибку в коде
var s,n,i:integer; a:array of integer; begin s:=0; readln(n); for...


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

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

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