Добавил:
Hist
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Паскаль (I семестр) / K01-172 / 05 / str2
.pas program str2;
const
ToReplace = '.';
ReplaceWith = '...';
N = 20;
type
str_input = string[N];
mystr = string[N*3];
procedure Input(var Str:mystr);
var
Str_in:str_input;
begin
write('‚ўҐ¤ЁвҐ Ёб室го бва®Єг (Ґ Ў®«ҐҐ ',N,' бЁ¬ў®«®ў): ');
readln(Str_in);
Str:=Str_in;
end;
procedure Replace(var Str:mystr);
var
TempStr:mystr;
begin
TempStr:='';
while pos(ToReplace,Str)<>0 do
begin
TempStr:=TempStr+copy(Str,1,pos(ToReplace,Str)-length(ToReplace)) +ReplaceWith;
delete(Str,1,pos(ToReplace,Str));
end;
Str:=TempStr+Str;
end;
procedure Output(Str:mystr);
begin
writeln('Џ®«гзҐ п бва®Є : ',Str);
end;
var
Str:mystr;
begin
Input(Str);{ўў®¤ Ёб室®© бва®ЄЁ}
Replace(Str);{§ ¬Ґ "." "..."}
Output(Str);{ўлў®¤ Ї®«г祮© бва®ЄЁ}
end.
const
ToReplace = '.';
ReplaceWith = '...';
N = 20;
type
str_input = string[N];
mystr = string[N*3];
procedure Input(var Str:mystr);
var
Str_in:str_input;
begin
write('‚ўҐ¤ЁвҐ Ёб室го бва®Єг (Ґ Ў®«ҐҐ ',N,' бЁ¬ў®«®ў): ');
readln(Str_in);
Str:=Str_in;
end;
procedure Replace(var Str:mystr);
var
TempStr:mystr;
begin
TempStr:='';
while pos(ToReplace,Str)<>0 do
begin
TempStr:=TempStr+copy(Str,1,pos(ToReplace,Str)-length(ToReplace)) +ReplaceWith;
delete(Str,1,pos(ToReplace,Str));
end;
Str:=TempStr+Str;
end;
procedure Output(Str:mystr);
begin
writeln('Џ®«гзҐ п бва®Є : ',Str);
end;
var
Str:mystr;
begin
Input(Str);{ўў®¤ Ёб室®© бва®ЄЁ}
Replace(Str);{§ ¬Ґ "." "..."}
Output(Str);{ўлў®¤ Ї®«г祮© бва®ЄЁ}
end.