Программа с символьными данными

SunHab · 07.05.2014, 11:04

Добрый день! Нужна помощь в написании программы для Pascal ABC
задача звучит так:
Программа, отделяющая из введенной строки символов отдельные
слова (пробел - символ-разделитель) и выводящую их перечень.
Заранее спасибо!

Vladimir_S · 07.05.2014, 11:30

Цитата:

Сообщение от SunHab

Добрый день! Нужна помощь в написании программы для Pascal ABC
задача звучит так:
Программа, отделяющая из введенной строки символов отдельные
слова (пробел - символ-разделитель) и выводящую их перечень.
Заранее спасибо!

Легко. Правда, это для НОРМАЛЬНОГО Паскаля, а не АВС, так что уж сами поправьте, если что.

Код:

Var
 S:string;
 i,N:integer;
 W:Array[1..128] of String;

Begin
 writeln('Enter the string: ');
 readln(S);
 N:=1;
 i:=0;
 Repeat
  Inc(i);
  W[N]:='';
  While (S[i]<>' ') and (i<=Length(S)) do
   begin
    W[N]:=W[N]+S[i];
    Inc(i);
   end;
  If S[i]=' ' then Inc(N);
 Until i>=Length(S);

 For i:=1 to N do Writeln(W[i]);
 Readln
End.

SunHab · 07.05.2014, 11:56

Цитата:

Сообщение от Vladimir_S

Легко. Правда, это для НОРМАЛЬНОГО Паскаля, а не АВС, так что уж сами поправьте, если что.

Код:

Var
 S:string;
 i,N:integer;
 W:Array[1..128] of String;

Begin
 writeln('Enter the string: ');
 readln(S);
 N:=1;
 i:=0;
 Repeat
  Inc(i);
  W[N]:='';
  While (S[i]<>' ') and (i<=Length(S)) do
   begin
    W[N]:=W[N]+S[i];
    Inc(i);
   end;
  If S[i]=' ' then Inc(N);
 Until i>=Length(S);

 For i:=1 to N do Writeln(W[i]);
 Readln
End.

Выдает ошибку:"Ошибка времени выполнения: Индекс находился вне границ массива" Что делать?

Vladimir_S · 07.05.2014, 13:03

Цитата:

Сообщение от SunHab

Выдает ошибку:"Ошибка времени выполнения: Индекс находился вне границ массива" Что делать?

Не знаю. У меня, естественно, работает исправно. Какую строку вводите?
И да, вроде этот идиотский АВС не любит открытых строк. Попробуйте поставить, например
S:String[200];
W:Array[1..10] of String[10];
Может быть, так сожрет?

07.05.2014, 11:04	#1 (permalink)
SunHab Новичок Регистрация: 28.04.2014 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программа с символьными данными Добрый день! Нужна помощь в написании программы для Pascal ABC задача звучит так: Программа, отделяющая из введенной строки символов отдельные слова (пробел - символ-разделитель) и выводящую их перечень. Заранее спасибо!

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

07.05.2014, 11:04
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Так же вы можете найти интересующую вас информацию в аналогичных топиках Программа на Си ДК Панасоник, диск с данными Помогите выбрать ноутбук с сильным звуком и хорошими техническими данными

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