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

iko200 · 12.06.2012, 01:26

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

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

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

Vladimir_S · 12.06.2012, 09:07

Цитата:

Сообщение от iko200

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

Подскажет.
В принципе, программа написана правильно, за одним исключением, а именно СЧИТЫВАТЬ СТРОКИ ОПЕРАТОРОМ 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 · 12.06.2012, 18:29

Цитата:

Сообщение от Vladimir_S

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

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

Vladimir_S · 12.06.2012, 18:51

Цитата:

Сообщение от iko200

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

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

12.06.2012, 01:26	#1 (permalink)
iko200 Новичок Регистрация: 12.06.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Подскажите, в чем проблема? Изучил недавно тип String и функции для него... решил попробовать... В результате родилась простенькая програмка: var x,y,z: string; N: integer; begin writeln('Введите предложение'); read (x); writeln('Введите заменяемую часть'); read (z); writeln('Введите на что изменяется'); read (y); N:=pos (z,x); delete (x, n, length(z)); insert (y, x, N); writeln(x); end. В теории должна была читать строку, находить заменяемую часть(знаю, что первую, я работаю над этим) и, собственно, заменять ее на выборочную... проблема в том, что 2-ой и 3-й Read паскаль начисто игнорирует!!! без них (через константы) все прекрасно работает, в других форматах тоже... с учителем полчаса мучался, так ничего и не поняли... Подскажет кто-нить добрый, в чем причина?))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070