09.04.2012, 20:55 | #1 (permalink) |
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, 20:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, ваш вопрос уже получил решение на форуме Помогите пожалуйста исправить задачу на строки, Паскаль Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль, символы и строки Паскаль, строки Задача на строки, Паскаль Строки в паскаль |
10.04.2012, 20:14 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
10.04.2012, 21:54 | #5 (permalink) |
Member
Регистрация: 25.07.2011
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо Владимир,не раз меня дурака выручали)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|