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

@gargantua · Регистрация: 13.11.2012

Студворк — интернет-сервис помощи студентам

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

Добавлено через 1 час 50 минут
помогите кто

@Paster Fob · 04.01.2013, 23:08

Pascal

const
  sep=['.','!','?'];
 
var
  ar:array [1..3] of string;
  i:integer;
  s:string;
  ch:char;
  f:text;
 
begin
  assign(f,'C:\Files for Program Pascal\CFin.txt');
  reset(f);
  s:='';i:=1;
  repeat
    read(f,ch);
    if ch in sep then
      begin
        s:=s+ch;
        ar[i]:=s;
        s:='';
        inc(i);
      end
    else
      s:=s+ch;
  until i>3;
  close(f);
  for i:=3 downto 1 do
    writeln(ar[i]);
  readln
end.

@gargantua · 05.01.2013, 20:18 **[ТС]**

Не выполняется условие. Пишет ошибка 003

Добавлено через 20 часов 6 минут
aп помогите кто..

@Paster Fob · 05.01.2013, 21:35

Ну чем вам помочь?Я вам дал принцип решения,на основе его и решайте.
К примеру многие электронные задачники требуют обязательного применения файловых переменных input и output.Насчёт вывода результата ничего не сказано(то ли в файл,то ли на экран).Для начала добавьте ещё разделителей в константу sep.

@gargantua 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 43
		1
	Программа считывает из текстового файла три предложения и выводит их в обратном порядке 04.01.2013, 22:04. Показов 1399. Ответов 3 Метки нет (Все метки) Написать программу, которая считывает из текстового файла три предложения и выводит их в обратном порядке, т. е. сначала третье предложение, потом второе, первое предложение выводится последним. Предложение – это набор символов, который заканчивается точкой, многоточием, вопросительным или восклицательным знаком Помогите а то скоро сессия... Добавлено через 1 час 50 минут помогите кто 0

@gargantua 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 43
	05.01.2013, 20:18 [ТС]	3
	Не выполняется условие. Пишет ошибка 003 Добавлено через 20 часов 6 минут aп помогите кто.. 0

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 570
	05.01.2013, 21:35	4
	Ну чем вам помочь?Я вам дал принцип решения,на основе его и решайте. К примеру многие электронные задачники требуют обязательного применения файловых переменных input и output.Насчёт вывода результата ничего не сказано(то ли в файл,то ли на экран).Для начала добавьте ещё разделителей в константу sep. 1

Опции темы