0 / 0 / 0
Регистрация: 18.12.2008
Сообщений: 9
|
|
1 | |
Используя один просмотр текстового файла, вывести его строки в обратном порядке19.12.2008, 09:35. Показов 2031. Ответов 7
Метки нет Все метки)
(
Собственно вот: используя один просмотр текстового файлаб вывести его строки в обратном порядке (в начале выводится последняя строка исходного файла).
Плиzz помогите ...
0
|
19.12.2008, 09:35 | |
19.12.2008, 09:35 | |
Ответы с готовыми решениями:
7
Используя один просмотр текстового файла, вывести его строки в порядке увеличения содержания в них цифр Напечатать содержимое текстового файла ,выписывая символы каждой его строки в обратном порядке, используя стек. Используя стек напечатать содержимое текстового файла t, выписывая литеры каждой его строки в обратном порядке |
Почетный модератор
![]() 64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
19.12.2008, 09:50 | 2 |
Код
uses crt; var f:text; s:array[1..100]of string; i,n:integer; begin clrscr; assign(f,'Stroki.txt'); reset(f); n:=0; while not eof(f) do begin inc(n); readln(f,s[n]);//читаем строки в массив end; for i:=n downto 1 do//выводим массив задом наперед writeln(s[i]); readln; close(f); end.
1
|
5 / 5 / 3
Регистрация: 12.12.2008
Сообщений: 50
|
|
19.12.2008, 09:51 | 3 |
Меня опять опередили=(
Но делал, поэтому код выкладываю. Код
uses Crt; const n=4; { количество строк } type TMass = array [1..n] of string[20]; { объявляем массив } { процедура считывания массива из файла } procedure OpenFile(var Mass: TMass); var i: integer; f: text; fname: string[20]; begin fname:='test.txt'; assign(f,fname); {$I-} reset(f); {$I+} if IOResult<>0 then begin writeln('Error access to the file: the file "', fname, '" not found'); write('For ending press <Enter>'); readln; halt(1); end; writeln('File "',fname,'" has opened'); for i:=1 to n-1 do Readln(f,Mass[i]); Readln(f,Mass[n]); close(f); end; VAR i: integer; mass: TMass; { ОСНОВНАЯ ПРОГРАММА } BEGIN ClrScr; OpenFile(mass); { открытие и считывание массива из файла } for i:=n downto 2 do writeln(Mass[i]); writeln(Mass[1]); writeln('For ending press <ENTER>:'); readln; END.
1
|
Почетный модератор
![]() 64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
19.12.2008, 09:55 | 4 |
Небольшое замечание. Откуда Вы знаете, что в файле 4 строки, хотя сомневаетесь в самом существовании файла?
0
|
5 / 5 / 3
Регистрация: 12.12.2008
Сообщений: 50
|
|
19.12.2008, 09:57 | 5 |
Я предполагаю. Это шаблон, все понятно же, идея дана, а остальное можно же доработать. Можно усовершенствовать.
![]()
0
|
Почетный модератор
![]() 64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
19.12.2008, 10:01 | 6 |
К сожалению 90% посетителей этого раздела как раз дорабатывать и усовершенствовать не умеют, а если это сделают, то потом всем форумом не можем придать программе рабочий вид. Таковы наши реалии.
1
|
5 / 5 / 3
Регистрация: 12.12.2008
Сообщений: 50
|
|
19.12.2008, 10:02 | 7 |
Жестоко=)
0
|
0 / 0 / 0
Регистрация: 18.12.2008
Сообщений: 9
|
|
19.12.2008, 11:13 [ТС] | 8 |
Спасибо всем... очень благодарен....
0
|
19.12.2008, 11:13 | |
19.12.2008, 11:13 | |
Помогаю со студенческими работами здесь
8
Используя один просмотр текстового файла, вывести сначала содержащиеся в нем цифры, а затем остальные символы Используя один просмотр текстового файла, вывести сначала содержащиеся в нем цифры, затем остальные символы.
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
![]() |
Опции темы | |
|
Новые блоги и статьи
![]() |
||||
Отключение отслеживания файла, занесенного в .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 предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
|