TolkienDRR

ыыыыыыыы )))))) посоветовал и ушел ))))))) да я ж тебе всю навигацию сделал. зачем что-то переделывать? добавил бы только вывод инфы о записи (там где я это написал) и глобальную переменную n:integer.

Shumak ащще ))) больше года не бегал, такая отдышка =D зато хоть легкие прочистятся )) да, 4 команды по 5 человек )) и это еще некоторые ушли. а в начале играли где то 14 на 14 =(

Марко Ван Бастен?

Panzer угу, подошел, опоздал, а потом еще раньше свалил ))))))) ай как не стыдно )))) мы потом поделились на 4 команды и между собой сыграли ))))))) надо худеть мля =D

Shumak =) не знаю, старики вроде собирались подтянуться ))))

kaktus самый колючий ))))))))))

+ потыкал новую винду - встретил много багов =) оторвало ногу)))))))))

Нет. ЧН умрет? =)

завтра в 12 буду =)

42 как данные представлены не понятно. но смотря на остальные задачки, то скорее всего массив из 31 числа. решаешь как первую задачу + выводишь порядковый номер элемента в массиве (номер дня).

есть 2 типа построения таких субд. 1- твоя бд всегда открыта (файл с бд открывается в начале проги, и закрывается в конце) 2- перед и после каждого действия твоя бд открывается и закрывается соответственно. проще сделать вторым путем + иметь постоянный указатель на номер записи (N к примеру). если идти вторым путем, то надо сделать так function SeeRec(N):boolean; var Rec:TRec; begin clrscr; reset(F); if n>=0 and n<=filesize(F) then begin seek(F,N); read(F,Rec); //показываем запись end else SeeRec:=false; close(f); end; procedure next; begin inc(n); if not SeeRec(N) then dec(n); end; procedure previos; begin dec(n); if not SeeRec(N) then inc(n); end; procedure first; begin n:=0; seerec(N); end; procedure last; begin reset(f); n:=filesize(f); close(F); seerec(N); end; ну как то так навигация должна быть. докучи я не вставил еще проверку на файл: есть в нем хоть одна запись.

Cloud это курс всего семестра почти. читай лс. ЗЫ если берешься сам делать, то юзай фак по функциям работы с типизированными файлами. filepos, seek, close/reset/rewrite. лежит у мну на флехе больше 20 курсачей по этим страшным субд на паскале, твоей темы не нашлось =( Добавлено спустя 9 минут 50 секунд: Cloud while not eof(F) do дословно: пока не конец файла F (eof - end of file) выполнять. хотелось бы подметить в коде bayarookie procedure next1; begin reset (f); --------открыл файл //типа перемещение по бд seek(f, 1); ------- встал перед второй записью в файле read(f, auto); -----------считал вторую запись writeln(auto.FIO:30, ---------вывел данные второй записи auto.marka:10, auto.colour:13, auto.number:8); seek(f, 0); ---------встал в начало файла read(f, auto); ---------считал первую запись writeln(auto.FIO:30, ---------вывел данные первой записи auto.marka:10, auto.colour:13, auto.number:8); close(f); ---------закрыл файл writeln; end; это что? =)

OchirOchirov стадион всгту в 20а квартале =)

Greezly Самый опасный медвед =)

ИЯ, имя такое есть =)

гиф анимация =D

спрыгнул с парашютом + много позитива - может это был самый последний прыжок =) девушка обломила с сексом =)

а какие варинты имеются? =)

попсятина - одно и тоже, каждый день.

Viral Самый фанат Джерарда! =)

самый "секс по телефону" чтоли? )))))))))

ооооо аниме =\

улыбка - голливуд (голливудская улыбка)

ты уверен?

скоро лето, опять обливаться потом =( купить порш кайен =)