Динамические структуры(список) Turbo Pascal

[Son Of Pain]

Сделаем проще )

for rec:=1 to n do
begin
	beg:=rec+2;
	write(' ');
	gotoXY(15,beg); readln(LerBook[i].Fam);
	gotoXY(27,beg); readln(LerBook[i].Year);
end;

Попробуй вникнуть и понять, что делает этот цикл; что такое rec, beg, LerBook и i (и какие у них типы).
После этого все сразу встанет на свои места.

Hint 1: в паскале нельзя складывать числа и указатели; нельзя передавать указатели в gotoxy.
Hint 2: Попробуй возле каждой переменной написать комментарий с ее предназначением - множество великих открытий ждет тебя.
Hint 3: У тебя описаны 3 процедуры. Из них вызывается только две. Тебя это не смущает? )

[Dina 85]

прошу готовый код, потому что я знаю, что не успею разобраться до завтра, если вы разбираетесь в этом, то что сложно отредактировать, если не можете, то ладно
Я знаю, что вы направляете, чтобы я сама все освоила, но увы сроки поджимают

[Son Of Pain]

Не сложно, просто скучно и бесполезно ) Если написать готовый код - ты завтра сдашь его преподу без понимания (если он не станет ничего спрашивать), и точно так же придешь сюда со следующей лабой. Какой смысл?

А если разберешься в коде - следующие лабы напишешь сама, потом сможешь стать крутым программистом и написать что-то всемирно известное. А мы будем вспоминать этот воскресный вечер и гордиться сопричастностью :D

[Dina 85]

мое будущее - это web-дизайн и графика, а программирование это дополнительные предметы, так что я не акцентирую на них большого внимания, конечно пытаюсь что-то разобрать и пытаться понимать, ладно спасибо за помощь

Сообщение от Son Of Pain

что делает этот цикл; что такое rec, beg, LerBook и i (и какие у них типы).
После этого все сразу встанет на свои места.

Дайте подсказку какого типа должны быть эти переменные

[Son Of Pain]

Скажи, какую функцию они выполняют, и я скажу тебе, какого типа они должны быть )

[Dina 85]

цикл выполняется идет поиск однофамильцев, сравниваются все введенные строки, я не знаю, думаю нужно все переделать, а то какой-то ужас!

[Stilet]

какой-то ужас!

Не то слово
Смотри: http://www.programmersforum.ru/showthread.php?t=47462
Это пример подходящий для твоей задачи, только описать свои поля, и добавить проверку на однофамильность. Может он тебе что-то подскажет.

[Dina 85]

Сообщение от Stilet

Может он тебе что-то подскажет.

Ну во-первых, у меня тоже есть пример собственно по которому я и пыталась эту программу сделать, но к сожалению я очень туго с этим соображаю, во-вторых, я вижу что вы все любите тут водить вокруг, но если я прошу помощи, то мне нужна помощь конкретно по моему заданию, а указания на другие примеры как-то вообще не помогают, это все равно что учитель говорит сами разбирайтесь я вам лекцию прочитал и все!
Все, я выговорилась!

Кстати вот пример по которому пыталась разобраться, но так и не получилось. Мне же не ради оценки, хочу понять как программа по моему заданию должна выглядеть.

Program LISTLINKED; 
uses  Crt;
 type
Alfa=  String[10]; PComp=  ^Соmр; 
Comp=  record
sD: Alfa; pNext: PComp end;
var pBegin, pEnd, pAux, pCKey, pPreComp:
PComp;
sC, sKey: Alfa; bCond: Boolean;
Procedure  CreateLL(var  pBegin, pEnd: PComp; var  sC: Alfa); 
begin
New(pBegin); 
pBegin^.pNext: =NIL; рВеgin^.sD: =sC;
pEnd:=pBegin
end;
Procedure AddLL(var  pEnd: PComp; var sC: Alfa);
var  pAux: PComp; 
begin 
New(pAux); 
pAux^.pNext:=NIL; pEnd^.pNext:=pAux; pEnd:=pAux;
 pEnd^.sD: =sC
 end;
Procedure  Find(var  sKey: Alfa; var pBegin, pCKey, pPreComp: PComp;
var  bCond: Boolean);
 begin
pCKey:=pBegin;
while (pCKey<>NIL)and(sKey<>pCKey^.D)  do 
begin
pPreComp:=pCKey;
pCKey:=рСКеу^.pNext
 end;
if (pCKey=NIL) and (sKey<>pCKey^.sD) then bCond:=FALSE else  bCond: =TRUE
end;
Procedure InsComp(var sKey, sC:Alfa);
var  pAux: PComp; begin
Find(sKey, pBegin, pCKey, pPreComp, bCond); New(pAux);
pAux^.sD: =sC;
рАuх^.pNext:=рСКеу^.pNext;
рСКеу^.pNext:=pAux;
end;
Procedure DelComp(var  sKey: Alfa; var pBegin: PComp);
begin
Find(sKey, pBegin, pCKey, pPreComp, bCond); рРrеСоmр^.pNext:=рСКеу^.pNext;
end;
begin
ClrScr;
writeln('    ВВЕДИ  СТРОКУ  '); readln(sC);
CreateLL(pBegin, pEnd, sC); repeat
writeln('ВВЕДИ  СТРОКУ  '); readln(sC); AddLL(pEnd, sC) until sC='END';
writeln('   *****  ВЫВОД  ИСХОДНОГО  СПИСКА ***** ' );
I;
pAux:=pBegin;
repeat 
writeln(рАuх^.sD);
рАuх:=рАuх^.pNext; 
until pAux=NIL; 
writeln; writeln('ВВЕДИ КЛЮЧ ДЛЯ ВСТАВКИ СТРОКИ');
readln(sKey);
writeln ('ВВЕДИ  ВСТАВЛЯЕМУЮ  СТРОКУ); readln(sC); 
InsComp(sKey,sC); 
writeln;
writeln('ВВЕДИ  КЛЮЧ  УДАЛЯЕМОЙ СТРОКИ'); readln(sKey); 
DelComp(sKey,pBegin); 
writeln;
writeln ('   *****  ВЫВОД  ИЗМЕНЕННОГО СПИСКА  *****');
 pAux:=pBegin; 
repeat
writeln(рАuх^.sD) ; 
pAux:=рАuх^.pNext ; 
until  pAux=NIL 
end.

[Son Of Pain]

Все проще.

Если нужно готовое решение безо всяких заморочек (я не хочу ничего понимать, мне нужен код) - тебе туда.
Ну а здесь отвечают на конкретные вопросы и помогают тем, кто пытается понять.

Choose your destiny! )

[Stilet]

Все, я выговорилась!

Что ж. Очень жаль что ты не хочешь понять то что тебе предлагают. Впредь постараюсь не мешаться в твоих темах, раз мои советы для тебя бесполезны.
Желаю удачи.