Подскажите, в чем проблема?

[iko200]

Подскажите, в чем проблема?

Изучил недавно тип String и функции для него... решил попробовать... В результате родилась простенькая програмка:

var x,y,z: string;
N: integer;
begin
writeln('Введите предложение');
read (x);
writeln('Введите заменяемую часть');
read (z);
writeln('Введите на что изменяется');
read ;
N:=pos (z,x);
delete (x, n, length(z));
insert (y, x, N);
writeln(x);
end.

В теории должна была читать строку, находить заменяемую часть(знаю, что первую, я работаю над этим) и, собственно, заменять ее на выборочную... проблема в том, что 2-ой и 3-й Read паскаль начисто игнорирует!!! без них (через константы) все прекрасно работает, в других форматах тоже... с учителем полчаса мучался, так ничего и не поняли... Подскажет кто-нить добрый, в чем причина?))

 

[Vladimir_S]

Подскажет кто-нить добрый, в чем причина?))

Подскажет.
В принципе, программа написана правильно, за одним исключением, а именно СЧИТЫВАТЬ СТРОКИ ОПЕРАТОРОМ Read(s) НЕЛЬЗЯ, ТОЛЬКО Readln(s).
Таким образом, вот полностью работающая программа. Подсказки можете заменить на русские обратно, у меня это связано с другой кодировкой кириллицы. Кроме того, желательно в самом конце добавить оператор Readln (пустой, без параметров), тогда выполнение программы приостановится и можно будет посмотреть на результат.

var
 x,y,z: string;
 N: integer;
begin    
 writeln('Enter the initial phrase:');
 readln(x);
 writeln('Enter the part to replace:');
 readln(z);
 writeln('Should be replaced by:');
 readln(y);
 N:=pos(z,x);
 delete(x,N,length(z));
 insert(y,x,N);
 writeln(x); 
 readln 
end.

 

[iko200]

В принципе, программа написана правильно, за одним исключением, а именно СЧИТЫВАТЬ СТРОКИ ОПЕРАТОРОМ Read(s) НЕЛЬЗЯ, ТОЛЬКО Readln(s).

Вы гений! Спасибо вам огромное)

 

[Vladimir_S]

Вы гений! Спасибо вам огромное)

Тот еще "гений". Но в любом случае - пожалуйста.