0 / 0 / 0
Регистрация: 22.12.2017
Сообщений: 2
1

Из текстового файла распечатать предложения в обратном порядке

24.12.2017, 18:20. Показов 548. Ответов 0
Метки нет (Все метки)

В файле input.txt задан текст. Распечатать его по предложениям, начиная с последнего и кончая первым!
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
36
37
38
39
40
41
42
43
44
45
46
47
48
var a:array [1..100] of string;
    p:array [1..100] of string;
    s,str:string;
    i,j,n,k,f:integer;
    f1:text;
begin
Assign(f1,'input.txt');
Reset(f1);
While not eof(f1) do
begin
n:=n+1;
readln(f1,s);
a[n]:=s;
end;
Close(f1);
For j:=1 to n do
 begin
  s:=a[j];
  While i<>length(s) do
  begin
   i:=i+1;
   str:=str+s[i];
   if length(s) - i > 1 then
   If (s[i] = '.') and (s[i+1] = '.') and (s[i+2] = '.') then
    begin
     k:=k+1;
     p[k]:=str+'.'+'. ';
     i:=i+2;
     str:='';
     f:=1;
    end;
   if f <> 1 then
   Case s[i] of
    '.':begin   k:=k+1;  p[k]:=str; str:=''; end;
    '?':begin   k:=k+1;  p[k]:=str; str:=''; end;
    '!':begin   k:=k+1;  p[k]:=str; str:=''; end;
   end;
    f:=0;
   
  end;
  i:=0;
  f:=0;
 end;
 For i:=k downto 1 do
  Write(p[i]);
 
 
end.
Добавлено через 6 минут
Я изменил программу. Правильно или нет?
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2017, 18:20
Ответы с готовыми решениями:

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

Перезаписать из текстового файла f в файл g строки в обратном порядке,элементы перевернуты
program fails; Var f,g:text; i,n:integer; st,st1:string; begin assign(f,'f.txt'); ...

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

Используя один просмотр текстового файла, вывести его строки в обратном порядке
Собственно вот: используя один просмотр текстового файлаб вывести его строки в обратном порядке (в...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2017, 18:20
Помогаю со студенческими работами здесь

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

Обработка текстового файла. Переставить слова в каждом предложении в обратном порядке и записать их в новый файл
Здравствуйте, никак не получается написать здачу - суть такова: Дан файл с текстом, в котором одно...

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

Распечатать слова предложения в алфавитном порядке
составьте программу распечатывающую слова предложения в алфавитном порядке


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru