|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2009, 15:06 | #1 |
Пользователь
Регистрация: 28.12.2008
Сообщений: 16
|
задача на типизированный файл
дан тип файл структуры: NAME, POST, YEAR, Zrpl
исключить первого с данной должностью ( должность вводится с клавиатуры ) program kurs33; uses crt; const m=6; type worker=record NAME:string[10]; POST:string[10]; YEAR:integer; Zrpl:array [1..m] of real; end; var Fin:file of worker; s:worker; dolzh:string[10]; Nom,i:integer; BEGIN clrscr; ASSIGN(Fin,'D:\data.tip'); reset(Fin); write('vvedite dolzhnoctb:');readln(dolzh); repeat read(Fin,S); until (eof(Fin)) or (S.POST=dolzh); Nom:=filepos(Fin)-1; for i:=Nom+1 to filesize(Fin)-1 do begin seek(Fin,i); read(Fin,S); seek(Fin,i-1); write(Fin,S); end; truncate(Fin); close(Fin); readkey END. делаю все вроде правильно, но не работает, хелп |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Текстовый и типизированный файл | Пушистик | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 15.04.2009 20:19 |
Типизированный файл | aleksandrdss | Помощь студентам | 0 | 08.04.2009 05:01 |
Типизированный файл в Delphi | Dice | Помощь студентам | 1 | 15.12.2008 18:45 |
Типизированный файл | Лубышев | Помощь студентам | 2 | 11.10.2008 11:08 |