var
p:^string;
begin
new(p);
p^:='My string';
writeln('> ',p^);
dispose(p);
end.
Указалети
Розкажите и покажите как пользуватса указателями.
Мне нужно зделать базу. Ора должна работат на указателях.
Мне нужно зделать базу. Ора должна работат на указателях.
Ну так в книжках об этом пишут ;)
Или нет такои возможности :)
var
s:string;
p:^s;
begin
new(p);{создаем}
p^:='My string';{обращаеся}
writeln('> ',p^);
dispose(p);{унечтожаем}
end.
Должно работать :)
Хотя не гарантирую :)
Или нет такои возможности :)
var
s:string;
p:^s;
begin
new(p);{создаем}
p^:='My string';{обращаеся}
writeln('> ',p^);
dispose(p);{унечтожаем}
end.
Должно работать :)
Хотя не гарантирую :)
Цитата:
Originally posted by MFOB
Ну так в книжках об этом пишут ;)
Или нет такои возможности :)
var
s:string;
p:^s;
begin
new(p);{создаем}
p^:='My string';{обращаеся}
writeln('> ',p^);
dispose(p);{унечтожаем}
end.
Должно работать :)
Хотя не гарантирую :)
Ну так в книжках об этом пишут ;)
Или нет такои возможности :)
var
s:string;
p:^s;
begin
new(p);{создаем}
p^:='My string';{обращаеся}
writeln('> ',p^);
dispose(p);{унечтожаем}
end.
Должно работать :)
Хотя не гарантирую :)
Неа, не должно.
А вот так должно.
Код:
Цитата:
Originally posted by Sagittarius
Неа, не должно.
А вот так должно.
Неа, не должно.
А вот так должно.
Код:
var
p:^string;
begin
new(p);
p^:='My string';
writeln('> ',p^);
dispose(p);
end.
p:^string;
begin
new(p);
p^:='My string';
writeln('> ',p^);
dispose(p);
end.
А можете маленкую прогу на создание динамического масиву показать?
Цитата:
Originally posted by dr-diesel
А можете маленкую прогу на создание динамического масиву показать?
А можете маленкую прогу на создание динамического масиву показать?
Можно так:
Код:
Type
TAr = Array [0..65535] of Integer;
Var
ar: ^TAr;
i: Integer;
Razmer: Integer;
begin
Write('Введите размер массива: ');
ReadLn(Razmer);
GetMem(ar, SizeOf(Integer)*Razmer);
for i:=0 to Razmer-1 do ar^ := i;
FreeMem(ar, SizeOf(Integer)*Razmer);
end.
TAr = Array [0..65535] of Integer;
Var
ar: ^TAr;
i: Integer;
Razmer: Integer;
begin
Write('Введите размер массива: ');
ReadLn(Razmer);
GetMem(ar, SizeOf(Integer)*Razmer);
for i:=0 to Razmer-1 do ar^ := i;
FreeMem(ar, SizeOf(Integer)*Razmer);
end.
Примерно так.
База данных "на указателях" - наверное имеются в виду связанные списки :)
Цитата:
Originally posted by Archie
База данных "на указателях" - наверное имеются в виду связанные списки :)
База данных "на указателях" - наверное имеются в виду связанные списки :)
Если действительно речь про связанные списки, поищи в Инете описание и реализацию игры про угадывание животных. Вроде:
- Это кот?
- Нет.
- Сдаюсь, кто это?
- Кит.
- Задайте альтернативный вопрос, отличающий "кит" от "кот".
- Он живет в воде
и т. д.
Очень популярный пример в старых учебниках по программированию по этой теме.
Правда, там реализуются не связанные списки, а скорее, дерево.
Sagittarius Прав оказался :)
С болды написал и непроверил :(
dr-diesel извеняй мене :)
С болды написал и непроверил :(
dr-diesel извеняй мене :)
Цитата:
Originally posted by MFOB
Sagittarius Прав оказался :)
С болды написал и непроверил :(
dr-diesel извеняй мене :)
Sagittarius Прав оказался :)
С болды написал и непроверил :(
dr-diesel извеняй мене :)
Да я сам уже розоблалса