Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на модуль
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
babyrka
Собственно сабж, помогите дописать модуль программы:
1)ввод списка работает
2)вывод списка работает
3)удаление записей нетsad.gif
4)поиск нет
5)редактирование записей нетsad.gif
6)сортировка нетуsad.gif(
babyrka
помогите мне нужно это все на завтраsad.gif а то полный капец sad.gif(
Rian

for i:=1 to filesize(f1) do
begin
read(f2,c1);
if filepos(f1) <> n then write(f1,c1);
end;



по поводу удаления
Если не секрет после этих операций исходный файл делается пустым?
babyrka
походу даsmile.gifа с остальными процедурами я без рамыsmile.gifпомоги написать модуль плиз=)
Rian
+Удаление надо просто поменять местами файлы местами ты читаешь из пустого в полный

+Для поиска можно тот же вывод только с проверкой на совпадение (типа того, что ты делаешь при удалении только наоборот)

procedure vyvod;
begin
...
for i:=1 to n do
begin
read(f1,c1);

if c1.firma=zapros then {--добавить
дальше уже фантазируй как у тебе прога работает}
writeln(c1.firmy:15, c1.tovar:10, c1.rik:7)
end;
readkey;
end;



+Редактирование
Тут конечно много вариантов и многое зависит от количества времени, которое можно потратить на украшательства
допустим ввёл номер записи и запрашиваешь изменение каждого поля.
Если первый символ '+' меняешь,
первый '-' не меняешь:


writeln(c1.firma+' изменить?')
readln(st);
if st[1]='+' then c1.firma:=copy(st,2,255) else
if st[1]='-' then writeln('без изменений');
{можешь использовать case
не плохо бы проверять ввёл ли пользователь команду
И так для каждого поля
потом пишешь запись в обратно в файл}



+сортировка
тут в принципе не сложно, даже недавно поднималась тема по поводу
быстрой сортировки прямо в файле (что в принципе невозможно smile.gif )
ну а так обычный одномерный массив
попробуй сам...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.