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

[SunHab]

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

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

 

[Vladimir_S]

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

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

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]

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

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]

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

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