Лаба по спискам, с допзаданием я совсем отчаялась
А в 3ей: из типизированного файла конвертировать в текстовый в форме:
"ФИО
Телефон, адрес
ФИО
Телефон, адрес
..."
Может Кто-нибудь подскажет, за что хвататься и с как реализовать=((
Я мучаюсь уже незнамо сколько времени:confused:
P.S. на форуме вам подскажут ответ на ВОПРОС, но программу делать, если и будут, то только за WMZ, WMR и т.д.
Я делала сама, я прошу подсказать путь работы, куда кидаться..
Цитата: BredoZavR
Я делала сама, я прошу подсказать путь работы, куда кидаться..
Собственно делать вам нужно совсем чуть-чуть.
В 4-й работе взгляните на процедуру
Код:
procedure delrec(num:pmyrec);
Переделайте ее таким образом, чтобы туда передавался номер записи из списка, а не сама запись. Внутри используя конструкцию вида
Код:
x:=x^.next;
перебираете записи списка в цикле, пока не дойдете до той, которая нужна.
Т.к. список у вас односвязный (т.е. есть ссылка только на следующию запись), то добавьте туда еще одну переменную для типа pmyrec, которая будет указывать на предыдущую запись, скажем y. Дальше
Код:
y^.next:=x^.next
чтобы убрать элемент x из списка, и освобождаете память, занятую под x.
В 3-й работе просто описываете в переменных текстовый файл ... кажется тип textfile, или text (как же давно это было :)).
Делаете привязку к физическому пути assign-ом, открываете для записи и пишете WriteLn-ом туда.
Читать можно ReadLn-ом.
Если вы сами это сделали, тогда респект вам, т.к. я лично не знаком ни с одной девушкой, которая могла бы написать 300-400 строк кода ;)
Спасибо! Вроде поняла)