почему не компилирует?

[neBu4kaMaXiM]

С помощью этой программы я из заданной строки символов, разделённый пробелами (одним или несколькими) вывожу массив из максимум 20 чисел.


Program massiv;
var
s,sout: string;
n,len,m: integer;
A: array[1..20] of string;
BEGIN
Writeln('Задайте последовательность символов разделённые пробелами',s);
Readln(s);
sout:= ' ';
for m:= 1 to 20 do
A[m]:= ' ';
len:= Length(s);
for n:= 1 to len do
for m:= 1 to 20 do
while s[n]<>' ' do A[m]:= A[m]+s[n];
m:= m+1;
for m:= 1 to 20 do
Writeln('палучился массив ',A[m]);
Readln;
END.

[Serge_Bliznykov]

1) TurboPascal всё компилируется. Чем пытаетесь компилировать?!
2) "получился"
3) алгоритм разбора строки абсолютно запутан и неверен!
Например, программа всегда виснет на бесконечном цикле:
while s[n]<>' ' do A[m]:= A[m]+s[n];
(т.к. n внутри цикла не меняется!!!! Да и пробела в строке может не быть!!!)

[neBu4kaMaXiM]

pascal ABC...
а алгоритм вроде работал но чуть не верно))и цикл не бесконечный...если длина строки меньше шестидесяти,а слов в строке меньше 20 ,то вариантов конечное число

[p51x]

Именно, что бесконечный...

[neBu4kaMaXiM]

а вариант второй строки ,в которую записано всё с одним пробелом,а затем отдельная запись по словам в массив подойдёт ?

[Serge_Bliznykov]

а вариант второй строки ,в которую записано всё с одним пробелом,а затем отдельная запись по словам в массив подойдёт ?

хм... а попробуйте ещё раз объяснить, что Вы хотели сказать этим сообщением!

[kakawkin]

он просто жжет - не обращайте внимания

[neBu4kaMaXiM]

просто нельзя массив заставить наращивать значение поэтому пусть лучше принимает значения строки)

[neBu4kaMaXiM]

Program massiv;
var
s,sout:string;
n,len,m:integer;
A:array[1..20] of string;
BEGIN
Writeln('Задайте последовательность символов разделённые пробелами',s);
Readln(s);
for m:=1 to 20 do
sout[m]:=' ';
len:=Length(s);
for n:=1 to len do
for m:=1 to 20 do
while s[n]<>' ' do
sout[m]:= sout[m]+s[n];
for m:=1 to 20 do
A[m]:=sout[m];
for m:= 1 to 20 do
Writeln('палучился массив ',A[m]);
Readln;
END.


ругается на строке sout[m]:=sout[m]+s[n]

[Serge_Bliznykov]

sout[m]:=sout[m]+s[n]

sout[m] - это ОДИН символ строки (тип Char, если это Вам о чём то говорит.)

sout[m]+s[n] - операция конкатенации (объединения) двух символов.

а теперь расскажите, как в ОДИН символ можно поместить ДВА символа?!

p.s. сам алгоритм не смотрел, ибо не понимаю Вас...