неправильная работа со строками в TP 7 Опции

[Altair]

напишем программу:

Код

var s : string[10];
     b : byte;
begin
for b :=1 to 10 do begin writeln('s[',b,']='); readln(s[b]) end;
{  это мы ввели посимвольно строку }

{ for b:=1 to 10 do s:=s+s[b];   }  {*******}

writeln('s=',s);  

{ ПОЧЕМУ СТРОКА НЕ ВЫВОДИТСЯ ? }
{ теперь раскоментируйте *******  и ВСЕ ПОЛУЧИТСЯ! }

end.

ПОЖАЛУЙСТА, ОБЪЯСНИТЕ ЭТО МНЕ, ЕСЛИ ЗНАЕТЕ! ??? ???

Сообщение отредактировано: volvo - 17.12.2004 21:18

[APAL]

Правильнее будет так:

>напишем программу:
>

Код

>var s : string[10];
>      ch : Char;
>      b : byte;
>begin
>s:='';
>for b :=1 to 10 do begin write('s[',b,']= '); readln(Ch); {Или вместо readln - Ch:=Readkey} s:=s+ch; end;
>{  это мы ввели посимвольно строку }
>
>{ for b:=1 to 10 do s:=s+s[b];   }  {*******}
>
>writeln('s=',s);  
>
>{ ПОЧЕМУ СТРОКА НЕ ВЫВОДИТСЯ ? }
>{ теперь раскоментируйте *******  и ВСЕ ПОЛУЧИТСЯ! }
>
>end.