Аватар для ReM
4 / 4 / 0
Регистрация: 18.09.2008
Сообщений: 47
1

Файл прямого доступа.

18.09.2008, 10:05. Показов 1718. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Подскажите пожалуста, что есть такое "фаил прямого доступа" в Паскале? Если естьвозможность брости программку с примером работы. Заранее спасибо.
0
18.09.2008, 10:05
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.09.2008, 10:05
Ответы с готовыми решениями:

Файл прямого доступа
6 Ремонт аэродромных сооружений Наименование Шифр Вид Стоимость Наименование ...

Типизированный файл прямого доступа
Здравствуйте, не могу решить задачу.. прошу помощи, просто ставит в тупик. Вот сама задача: Файл прямого доступа. Напишите программу,...

Файлы прямого доступа
Используя технологию процедурного программирования, разработать программу обработки типизированных файлов с числом записей не менее 5,...

3
 Аватар для ReM
4 / 4 / 0
Регистрация: 18.09.2008
Сообщений: 47
22.09.2008, 10:34  [ТС] 2
Если не хотите подсказать что такое "фаил прямого доступа", то может хотя бы задачку решите про него. Выриант 17.
Вложения
Тип файла: doc Лабораторная работа 11.doc (49.0 Кб, 47 просмотров)
0
Почетный модератор
 Аватар для Puporev
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
 Аватар для ReM
4 / 4 / 0
Регистрация: 18.09.2008
Сообщений: 47
22.09.2008, 13:27  [ТС] 4
Есть у меня учебник, но про это "дело" нет там ни слова... ...в любом случае спасибо.
0
22.09.2008, 13:27
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.09.2008, 13:27
Помогаю со студенческими работами здесь

Типизированные файлы прямого доступа
помогите, пожалуйста, написать программу: Удлинить файл, вставляя после каждой компоненты новую, равную ей. Т.е, если исходный файл был...

Работа с модулями и файлами прямого доступа
Привет! Люди добрые, помогите пожалуйста нарисовать блок-схему для отдельной процедуры, входящей в главную программу. Текст процедуры...

Курсовик. Паскаль+БД на файлах прямого доступа
В институте &quot;обрадовали&quot;, что придется делать курсовую на Паскале практически без подготовки. Язык знаю хреново честно говоря, но делать...

Файлы прямого доступа. Найти сумму компонент, стоящих между минимальной и максимальной
Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в файл H сначала минимум, затем максимум,...

Файл прямого доступа, поменять компоненты местами
поменять местами 1-ый компонент с последним, 2-ой с предпоследним и т.д.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
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 предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru