|
4 / 4 / 0
Регистрация: 18.09.2008
Сообщений: 47
|
|
| 1 | |
Файл прямого доступа.18.09.2008, 10:05. Показов 1635. Ответов 3
Метки нет (Все метки)
0
|
|
(|
|
| 18.09.2008, 10:05 | |
|
Ответы с готовыми решениями:
3
Файл прямого доступа
|
|
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
| 22.09.2008, 12:51 | 3 |
|
Рассказывать здесь то, что описано в сотне учебников, никто и не собирался. 1.Если лень скачать учебники, просто набери в Гугле "файл прямого доступа" и узнаешь, что это типизированные (fileof тип) и нетипизированные (file) файлы. Если не знаешь что это такое, смотри пункт 1. Вариант решения твоей задачи.
Сначала создаешь текстовый файл, лучше в папке с программой. Записываешь в него одно слово, лучше английское, иаче программа русский текст исковеркает. Можно написать по русски в каком-нибудь редакторе, типа TextEncoder, перевести его из Win в DOS и скопировать в свой файл. Крайний вариант писать процедуру перевода текста из ANSI в ASCII, что в принципе тоже несложно, имея под рукой эти таблицы символов. В программе есть строки, которые по заданию не нужны, но они позволяют следить за процессом. Я их отметил //, можешь выкинуть. Код
[SIZE=3][FONT='Courier New CYR']uses[/FONT][FONT='Courier New CYR']crt[/FONT][FONT='Courier New CYR'];[/FONT][/SIZE]
[FONT='Courier New CYR'][SIZE=3]var f:text;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] g:file of string;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] s:string;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] i,j:integer;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]begin[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]clrscr;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]assign(f,'slovo.txt');[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]reset(f);[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]readln(f,s);[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]write('Ishodnoe slovo: ');//[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]writeln(s);//[/SIZE][/FONT]
[SIZE=3][FONT='Courier New CYR']writeln;[/FONT][FONT='Courier New CYR']//[/FONT][/SIZE]
[FONT='Courier New CYR'][SIZE=3]i:=1;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]while i<=length(s) do[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] begin[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] j:=i+1;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] while j<=length(s) do[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] begin[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] if s[j]=s[i] then delete(s,j,1)[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] else j:=j+1;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] end;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] i:=i+1;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3] end;[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]write('Obrabotannoe slovo: ');//[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]writeln(s);//[/SIZE][/FONT]
[SIZE=3][FONT='Courier New CYR']writeln;[/FONT][FONT='Courier New CYR']//[/FONT][/SIZE]
[FONT='Courier New CYR'][SIZE=3]close(f);[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]assign(g,'slovo1.dat');[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]rewrite(g);[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]write(g,s);[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]close(g);[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]write('Proverka soderzania fajla: ');//[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]reset(g);//[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]read(g,s);//[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]write(s);//[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]readln[/SIZE][/FONT]
[FONT='Courier New CYR'][SIZE=3]end.[/SIZE][/FONT]
1
|
|
|
4 / 4 / 0
Регистрация: 18.09.2008
Сообщений: 47
|
|
| 22.09.2008, 13:27 [ТС] | 4 |
|
Есть у меня учебник, но про это "дело" нет там ни слова... ...в любом случае спасибо.
0
|
|
| 22.09.2008, 13:27 | |
|
Помогаю со студенческими работами здесь
4
Работа с модулями и файлами прямого доступа Курсовик. Паскаль+БД на файлах прямого доступа
Файл прямого доступа, поменять компоненты местами Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
