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

24.12.2017, 18:20. Показов 764. Ответов 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 минут
Я изменил программу. Правильно или нет?

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

24.12.2017, 18:20

Ответы с готовыми решениями:

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

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

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

24.12.2017, 18:20

Помогаю со студенческими работами здесь

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

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

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

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

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

Наверх