Помогите найти ошибку, пожалуйста! Паскаль

Aksinia · 29.12.2013, 23:19

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

На входе текстовый файл, состоящий из слов и символов '.,:;!? ';
слово = отрезок строки текста из букв.
На выходе текстовый файл, в который помещены построчно все слова, найденные в порядке появления во входном файле, причем каждое слово сопровождается через пробел некоторой своей инверсией, не перемещающей только 1-й и последний символы слова.
ПРИМЕР --
вася всая
example elmaxpe

PHP код:


			
program coffee;
var S:string;
f1,f2:text;
Type mnog= set of byte;

function Inversion(S:string):string;
var S2,S3,S4,s5:String;
A,B:mnog;
i,c,r:integer;
begin
  A :=[65 .. 90];
  B :=[97 .. 122];
  S2:=S;
  i:=1;
  S3:='';
  S4:='';
  S5:='';
  if length(S2)>0 then
  while i<(length(S2)) do
  begin
    if ((ord(S2[i]) in (A+B)) and (ord(S2[i+1]) in (A+B))) then
    begin
      S4:=S4+S2[i];
      s3:=s3+S2[i];
    end;
    if ((ord(S2[i]) in (A+B)) and not(ord(S2[i+1]) in (A+B))) then
    begin
      s3:=s3+S2[i];
      c:=1;
      while not c=(length(s3)-2) do
      begin
        r:=random(2)-(length(s3)-3);
        if (s5[r]<>chr(0)) then
        begin
          s5[r]:=s3[c];
          c:=c+1;
        end;
      end;
      S4:=S4+' '+S3[1]+s5+s3[length(s3)];
      S3:='';
      s5:='';
    end;
  end;
  Inversion:=s4;
end;

begin
  assign(f1, 'Input.txt');
  reset(f1);
  assign(f2, 'Output.txt');
  rewrite(f2);
  while not eof(f1) do
  begin
    readln(f1,S);
    writeln(f2,inversion(S));
  end;
  close(f1);
  close(f2);
end.

Николай_С · 29.12.2013, 23:37

А что с программой не так?
Не проходит компеляцию? В какой строке?
Не правильно работает? Тогда нужно увидеть результат.

Aksinia · 30.12.2013, 00:00

Программа проходит компиляцию. После запуска на экране появляется пустое окно, которое тут же не закрывается, хотя, должно бы. Файл "output" остается пустым.

Николай_С · 30.12.2013, 00:02

А в файле Input.txt что?

Aksinia · 30.12.2013, 00:04

Вот этот файл.

Николай_С · 30.12.2013, 00:08

Понятно.
Ставьте точку останова на writeIn и смотрите, что у Вас в инвертированной строке.

Aksinia · 30.12.2013, 00:20

Ничего? Ничего не изменилось. Я правильно поняла, что я должна была поставить точку после writeln(f2,inversion(S));
end;end ?

Николай_С · 30.12.2013, 01:04

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

Aksinia · 30.12.2013, 01:44

На экран выводится только первая не инвертированная строка.

Николай_С · 30.12.2013, 10:23

Значит ошибка в функции Inversion.
Метод отладки тот же.
Ставим тормоз, смотрим содержимое строковых переменных.
Удачи!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

29.12.2013, 23:19
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Советую вам обратить внимание на похожие обсуждения Помогите найти ошибку Помогите найти ошибку Помогите найти ошибку

29.12.2013, 23:37	#2 (permalink)
Николай_С Радиоинженер Регистрация: 25.09.2012 Адрес: г.Дзержинск Нижегородской обл. Сообщений: 25,298 Записей в дневнике: 7 Сказал(а) спасибо: 292 Поблагодарили 219 раз(а) в 70 сообщениях Репутация: 110185	А что с программой не так? Не проходит компеляцию? В какой строке? Не правильно работает? Тогда нужно увидеть результат.

30.12.2013, 00:00	#3 (permalink)
Aksinia Member Регистрация: 15.12.2013 Сообщений: 31 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 114	Программа проходит компиляцию. После запуска на экране появляется пустое окно, которое тут же не закрывается, хотя, должно бы. Файл "output" остается пустым.

30.12.2013, 00:02	#4 (permalink)
Николай_С Радиоинженер Регистрация: 25.09.2012 Адрес: г.Дзержинск Нижегородской обл. Сообщений: 25,298 Записей в дневнике: 7 Сказал(а) спасибо: 292 Поблагодарили 219 раз(а) в 70 сообщениях Репутация: 110185	А в файле Input.txt что?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

30.12.2013, 00:08	#6 (permalink)
Николай_С Радиоинженер Регистрация: 25.09.2012 Адрес: г.Дзержинск Нижегородской обл. Сообщений: 25,298 Записей в дневнике: 7 Сказал(а) спасибо: 292 Поблагодарили 219 раз(а) в 70 сообщениях Репутация: 110185	Понятно. Ставьте точку останова на writeIn и смотрите, что у Вас в инвертированной строке.

30.12.2013, 00:20	#7 (permalink)
Aksinia Member Регистрация: 15.12.2013 Сообщений: 31 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 114	Ничего? Ничего не изменилось. Я правильно поняла, что я должна была поставить точку после writeln(f2,inversion(S)); end;end ?

30.12.2013, 01:04	#8 (permalink)
Николай_С Радиоинженер Регистрация: 25.09.2012 Адрес: г.Дзержинск Нижегородской обл. Сообщений: 25,298 Записей в дневнике: 7 Сказал(а) спасибо: 292 Поблагодарили 219 раз(а) в 70 сообщениях Репутация: 110185	Точка останова - это отладочный маркер, где должен остановиться дебагер при отладке программы. Как я понял, Вы этим не пользуетесь. Тогда, между операторами чтения и записи поставьте вывод на экран прочитанной строки и строки после инверсии. Не забудьте поставить оператор паузы.

30.12.2013, 01:44	#9 (permalink)
Aksinia Member Регистрация: 15.12.2013 Сообщений: 31 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 114	На экран выводится только первая не инвертированная строка.

30.12.2013, 10:23	#10 (permalink)
Николай_С Радиоинженер Регистрация: 25.09.2012 Адрес: г.Дзержинск Нижегородской обл. Сообщений: 25,298 Записей в дневнике: 7 Сказал(а) спасибо: 292 Поблагодарили 219 раз(а) в 70 сообщениях Репутация: 110185	Значит ошибка в функции Inversion. Метод отладки тот же. Ставим тормоз, смотрим содержимое строковых переменных. Удачи!