Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 23.03.2012
Сообщений: 34
1

Текстовые файлы. Составить программу вывода на экран содержимого файла в обратном порядке

24.04.2012, 12:16. Показов 2616. Ответов 2
Метки нет (Все метки)

Дан текстовый файл. Составить программу вывода на экран его содержимого в обратном порядке.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2012, 12:16
Ответы с готовыми решениями:

Вывести на экран содержимого текстового файла в обратном порядке
Дан текстовый файл. Составить программу вывода на экран его содержимого в обратном порядке. Я знаю...

Составить рекурсивную программу ввода последовательности чисел и вывода в обратном порядке
Составить рекурсивную программу ввода с клавиатуры последовательности чисел (окончание ввода - 0) и...

Составить программу для вывода в обратном порядке слов заданного текста
Здравствуйте. Помогите пожайлуста составить программу на Турбопаскале. Задание:нужно составить...

Файлы. Программа, которая считывает текст из файла и выводит на экран все его предложения в обратном порядке
Помогите пожалуйста! Такая проблема, есть программа: #include "stdafx.h" #include <stdio.h>...

2
8 / 8 / 5
Регистрация: 24.04.2012
Сообщений: 28
24.04.2012, 12:49 2
Лучший ответ Сообщение было отмечено Natasha как решение

Решение

Не уверен,но может так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses Crt;
const z=[' ',',','.',';',':','?','!'];
var s,s1:string;
    a:array[1..1000] of string[100];
    b:string[100];
    i,k,p:byte;
    f:text;
begin
Assign(f,'TEXT.dat');
Reset(f);
  While not Eoln(f)  do
     begin
      Readln(f,s);
  end;
       Close(f);
for i:=1 to length(s) do
if s[i] in z then s[i]:=',';
s:=s+',';
while pos(',,',s)>0 do delete(s,pos(',,',s),1);
k:=0;
while pos(',',s)>0 do
 begin
  k:=k+1;
  a[k]:=copy(s,1,pos(',',s)-1);
  delete(s,1,pos(',',s));
 end;
for i:=1 to k div 2 do
 begin
  b:=a[i];
  a[i]:=a[k-i+1];
  a[k-i+1]:=b;
 end;
for i:=1 to k do
write(a[i],' ');
end.
Текст в файле только не большой должен быть не больше 1000 символов.
3
1 / 1 / 0
Регистрация: 23.03.2012
Сообщений: 34
24.04.2012, 13:27  [ТС] 3
спасибо большое...что-то кнопки +1 СПАСИБО нету
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2012, 13:27

Текстовые файлы.Организовать из программы вывод на экран содержимого исх.файлов
12)В редакторе создайте два текстовых файла, внесите в каждый файл по 10 строк произвольного...

Вывод содержимого файла в обратном порядке
Выведите в обратном порядке содержимое всего файла полностью. Для этого считайте файл целиком при...

Написать программу, которая считывает текст из файла и выводит на экран все его предложения в обратном порядке.
Написать программу, которая считывает текст из файла и выводит на экран все его предложения в...

Написать программу, которая считывает текст из файла и выводит на экран все его предложения в обратном порядке
Написать программу, которая считывает текст из файла и выводит на экран все его предложения в...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.