Строки, Паскаль

Raep · 09.04.2012, 20:55

Заменить все слова "дом" на слово "домик".Удалить все буквосочетания "ой".Вставить после каждой буквы "к" три знака вопроса.
Вот программа:
Program labwork8;
var s:string;
i:byte;
begin
writeln('Исходная строка:');
Readln(s);
for i:=1 to length(s) do
if s[i]='дом' then s[i]:='домик';-ругается тут

repeat
i:=pos('ой',s);
if i>0 then delete(s,i,1);
until i=0;

i:=1;
repeat
if s[i]='к'
then begin
insert('???',s,i+1);
inc(i,2);
end;
inc(i)
until i>length(s);
writeln('Преобразованная строка:');
writeln(s);
end.
Найдите,пожалуйста,ошибки.Заранее спасибо.

Vladimir_S · 09.04.2012, 21:00

Цитата:

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

for i:=1 to length(s) do
if s[i]='дом' then s[i]:='домик';-ругается тут

И правильно ругается! Потому что s[i] - это величина типа Char, т.е. всего один символ, а вовсе не подстрока.

Raep · 09.04.2012, 21:30

можете написать переписать мою программу исправив ошибки?Если не составит труда

Vladimir_S · 10.04.2012, 20:14

Цитата:

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

можете написать переписать мою программу исправив ошибки?Если не составит труда

Да что Вы, право, - какой разговор? Исполнено:

Код:

var
 s,s1:string;
 i:byte;
begin
 writeln('Исходная строка:');
 Readln(s);

 i:=0;
 Repeat
  Inc(i);
  s1:=Copy(s,i,4);
  If s1=' дом' then
   begin
    Delete(s,i,4);
    s1:=' домик';
    Insert(s1,s,i);
    Inc(i,5);
   end;
 Until i>=Length(s);
 Writeln(s);

 i:=0;
 Repeat
  Inc(i);
  s1:=Copy(s,i,2);
  If s1='ой' then
   begin
    Delete(s,i,2);
    Dec(i,2);
   end;
 Until i>=Length(s);
 Writeln(s);

 i:=0;
 Repeat
  Inc(i);
  If s[i]='к' then
   begin
    s1:='???';
    Insert(s1,s,i+1);
    Inc(i,2);
   end;
 Until i>=Length(s);
 Writeln(s);

 Readln
End.

Raep · 10.04.2012, 21:54

Спасибо Владимир,не раз меня дурака выручали)

09.04.2012, 20:55	#1 (permalink)
Raep Member Регистрация: 25.07.2011 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Строки, Паскаль Заменить все слова "дом" на слово "домик".Удалить все буквосочетания "ой".Вставить после каждой буквы "к" три знака вопроса. Вот программа: Program labwork8; var s:string; i:byte; begin writeln('Исходная строка:'); Readln(s); for i:=1 to length(s) do if s[i]='дом' then s[i]:='домик';-ругается тут repeat i:=pos('ой',s); if i>0 then delete(s,i,1); until i=0; i:=1; repeat if s[i]='к' then begin insert('???',s,i+1); inc(i,2); end; inc(i) until i>length(s); writeln('Преобразованная строка:'); writeln(s); end. Найдите,пожалуйста,ошибки.Заранее спасибо.

09.04.2012, 21:30	#3 (permalink)
Raep Member Регистрация: 25.07.2011 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	можете написать переписать мою программу исправив ошибки?Если не составит труда

10.04.2012, 21:54	#5 (permalink)
Raep Member Регистрация: 25.07.2011 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо Владимир,не раз меня дурака выручали)

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