|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
16.06.2011, 21:02 | #1 |
Пользователь
Регистрация: 16.06.2011
Сообщений: 22
|
создать файл содержащий те же элементы в обратном порядке
Дан файл целых чисел. Создать файл содержащий те же элементы в обратном порядке.
Программу нужно выполнить на языке PascalABC |
11.04.2012, 11:11 | #2 |
Пользователь
Регистрация: 11.04.2012
Сообщений: 18
|
Program SozdText; {Создание текстового файла}
Var Tx : Text; {Имя текстового файла} FilName : String; {Имя набора данных} Stroka : String; {Строка текста} i,n : Integer; {Вспомогательные переменные} Begin Writeln(’Введите имя набора данных’); Readln (FilName); {Ввести Имя Набора Данных} Assign(Tx,FilName); {Связать Файл с Набором Данных} Rewrite (Tx); {Открыть Файл для записи} Writeln (’Введите количество строк текста’); Readln(n); {Ввести количество строк} Writeln (’Введите строки’); For i:=1 to n do Begin Readln (Stroka); {Ввод строки с клавиатуры} Writeln(Tx,Stroka); {Запись в файл} End; Close(Tx); {Закрыть файл} End. |
11.04.2012, 12:33 | #3 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
[ Senya Black ]
в задании у ТС написано, что файл уже есть и нужно его просто переписать в обратном порядке. Код:
Правильно поставленная задача - три четверти решения.
|
11.04.2012, 13:47 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
во-первых, [ Senya Black ] занимается некропостерством (DiemonStar, Вы хоть бы на дату исходного сообщения посмотрели!!)
во-вторых, та банальность, которую он написал, никакого отношения к исходной задаче не имеет! в-третьих, подобные задачи на форуме неоднократно решались. код от DiemonStar вполне себе рабочий, ну, разумеется нужно цикл крутить от FileSize(A)-1 - это уж без всяких "возможно". ТЕМА ЗАКРЫТА |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Символьный файл F. Записать в файл G компоненты файла F в обратном порядке,сначала все нечетные, затем чётные. Паскаль. | ICE_LADY | Помощь студентам | 0 | 08.06.2011 17:32 |
Поместить элементы Одного массива, в начало другого в обратном порядке. | Adrenalin4 | Общие вопросы C/C++ | 2 | 15.11.2010 21:51 |
как реализовать функцию для того что бы скопировать элементы одного массива во второй в обратном порядке | mansp | Общие вопросы C/C++ | 8 | 28.10.2010 15:48 |
Создать файл содержащий сведения о том | kot i @ | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 25.05.2010 17:27 |
Дан файл, содержащий текст на русском языке.Составить в алфавитном порядке список слов в файл. | JiLiYa | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 26.12.2008 12:05 |