В АБЦ паскаль все работает, в турбо не хочет,помогите найти ошибку
| Код |
program Lab2;
uses LAB3U;
var
InputString, srt_out: StrData;
WordOut, WordIn: StrData;
OutputString: StrData;
begin
writeln('ВВедите строку');
readln(InputString);
writeln('ВВедите слово, после которого надо вставить другое слово');
readln(WordOut);
writeln('Введите слово, которое надо вставить');
readln(WordIn);
Inp( InputString, WordOut, WordIn);
if ind<>11 then
begin
Writeln( ' результат');
Writeln(o);
end
else
writeln('слово не найдено');
readln;
end.
|
| Код |
unit LAB3U;
Interface
type StrData = string;
StrData1 = string;
var inputstring,WordOut,WordIn,outputt,srt_out,a,o: string;
i,len,ind:integer;
procedure Inp (Inputstring : StrData; WordOut:strData; var WordIn: StrData1 );
implementation
procedure Inp (Inputstring : StrData; WordOut:strData; var WordIn: StrData1 );
var
b:array[1..100]of string;
l,i:integer;
begin
if pos(WordOut+' ', Inputstring)>0 then
begin
i := 1; l := 0;
while (i <= length(Inputstring)) do
begin
while ((i <= length(Inputstring)) and (Inputstring[i] = ' ')) do
inc (i);
inc(l);
b[l]:='';
while ((i <= length(Inputstring)) and (Inputstring[i] <> ' ')) DO
begin
b[l]:=b[l]+Inputstring[i];
inc (i);
end;
end;
if (b[length(Inputstring)] = ' ')then dec(l);
for i:=1 to l do
if b[i] = WordOut then b[i]:=(WordOut) + ' ' + (WordIn);
for i:=1 to l do
begin
a:=(b[i] + ' ');
o:=o+a;
end;
end
else
ind:=11;
end;
end.
|
|
