![]() 4 / 4 / 0
Регистрация: 18.09.2008
Сообщений: 47
|
|
1 | |
Файл прямого доступа.18.09.2008, 10:05. Показов 1718. Ответов 3
Метки нет Все метки)
(
Подскажите пожалуста, что есть такое "фаил прямого доступа" в Паскале? Если естьвозможность брости программку с примером работы. Заранее спасибо.
0
|
18.09.2008, 10:05 | |
18.09.2008, 10:05 | |
Ответы с готовыми решениями:
3
Файл прямого доступа
|
![]() 4 / 4 / 0
Регистрация: 18.09.2008
Сообщений: 47
|
|
22.09.2008, 10:34 [ТС] | 2 |
Если не хотите подсказать что такое "фаил прямого доступа", то может хотя бы задачку решите про него. Выриант 17.
0
|
Почетный модератор
![]() 64305 / 47602 / 32742
Регистрация: 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 | |
22.09.2008, 13:27 | |
Помогаю со студенческими работами здесь
4
Работа с модулями и файлами прямого доступа Курсовик. Паскаль+БД на файлах прямого доступа
Файл прямого доступа, поменять компоненты местами Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
![]() |
Опции темы | |
|
Новые блоги и статьи
![]() |
||||
Отключение отслеживания файла, занесенного в .gitignore в Git
hw_wired 10.02.2025
Git помогает следить за изменениями в проекте, но иногда требуется исключить определенные файлы из системы контроля версий. Это могут быть конфигурационные файлы с локальными настройками, временные. . .
|
Что такое use strict в JavaScript
hw_wired 10.02.2025
Директива use strict - способ перевода JavaScript-кода в строгий режим работы, который делает язык более безопасным и предсказуемым. Она появилась в ECMAScript 5 как ответ на многочисленные проблемы,. . .
|
Как в jQuery проверить, что элемент скрыт
hw_wired 10.02.2025
jQuery предоставляет несколько эффективных способов определить, скрыт элемент или отображается на странице. Самый простой метод использует специальные селекторы :hidden и :visible. Селектор :hidden. . .
|
Как проверить (check out) ветку Git в удаленном репозитории
hw_wired 10.02.2025
Проверка удаленной ветки в Git требует понимания нескольких базовых концепций и точного выполнения определенной последовательности действий. Для начала необходимо получить актуальную информацию о. . .
|
chucknorris в HTML и другие обозначения цветов
hw_wired 10.02.2025
HTML, как основной язык разметки веб-страниц, прошел длинный путь развития в плане работы с цветами. На заре развития веб-технологий разработчики могли использовать только базовый набор из 16. . .
|
Стек и куча: отличия и назначение
hw_wired 10.02.2025
Управление памятью - ключевой элемент работы любой программы. В современных языках программирования память делится на две основные области: стек и кучу. Каждая из них обладает уникальными. . .
|
Комментарии в JSON
hw_wired 10.02.2025
JSON - текстовый формат обмена данными, построенный на основе синтаксиса JavaScript. Этот формат отличается простотой, читаемостью и широкой поддержкой во всех современных языках программирования. . . .
|
Перезаписываем локальные файлы с помощью git pull
hw_wired 10.02.2025
Git pull - незаменимая команда для синхронизации локального репозитория с удаленным. При работе над проектом в команде разработчиков часто возникает необходимость получить актуальные изменения,. . .
|
Оператор --> в C++
hw_wired 10.02.2025
Оператор --> (называемый "spaceship operator" или оператор космического корабля) - важное нововведение в стандарте C++20, упрощающее реализацию операций сравнения в пользовательских типах данных. . . .
|
Отмена git add до коммита
hw_wired 10.02.2025
Git предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
|