var s:string;
N,i:byte;
c:char;
begin
clrscr;
writeln('Введите строку');
readln(s);
writeln('Введите число');
readln(N);
i:=0;
while i<=length(s) do
begin
c:='!';
i:=i+N+1;
insert(c,s,i);
end;
writeln(s);
readln;
end.
Дописать алгоритм(Pascal,строки)
Задача такая: задана строка и натуральное число N. Отделите каждые N символов в строке символом "!".
Результат работы программы:
Введите строку
фывапролджэ
Введите число
3
фыв!апр!олд!жэ!
или
Введите строку
фывапролджэч
Введите число
3
фыв!апр!олд!жэч!!
А надо чтобы было:
Введите строку
фывапролджэ
Введите число
3
фыв!апр!олд!жэ
или
Введите строку
фывапролджэч
Введите число
3
фыв!апр!олд!жэч!
Код:
Результат работы программы:
Введите строку
фывапролджэ
Введите число
3
фыв!апр!олд!жэ!
или
Введите строку
фывапролджэч
Введите число
3
фыв!апр!олд!жэч!!
А надо чтобы было:
Введите строку
фывапролджэ
Введите число
3
фыв!апр!олд!жэ
или
Введите строку
фывапролджэч
Введите число
3
фыв!апр!олд!жэч!
с таким небольшим дополением работает как надо
Код:
var s:string;
N,i:byte;
c:char;
begin
clrscr;
writeln('Введите строку');
readln(s);
writeln('Введите число');
readln(N);
i:=0;
while i<=length(s) do
begin
c:='!';
i:=i+N+1;
if i<=length(S)+1 then
insert(c,s,i);
end;
writeln(s);
readln;
end.
N,i:byte;
c:char;
begin
clrscr;
writeln('Введите строку');
readln(s);
writeln('Введите число');
readln(N);
i:=0;
while i<=length(s) do
begin
c:='!';
i:=i+N+1;
if i<=length(S)+1 then
insert(c,s,i);
end;
writeln(s);
readln;
end.
var
S: String;
c: char;
k,i: extended;
j,N: byte;
begin
N := 3;
c := '!';
S := Edit1.Text;
k := length(S);
k := k / N;
i := 1;
j := N+1;
while (i<=k) do
begin
insert(c,S,j);
j := j + N + 1;
i := i + 1;
end;
Edit2.Text := S;
end;
S: String;
c: char;
k,i: extended;
j,N: byte;
begin
N := 3;
c := '!';
S := Edit1.Text;
k := length(S);
k := k / N;
i := 1;
j := N+1;
while (i<=k) do
begin
insert(c,S,j);
j := j + N + 1;
i := i + 1;
end;
Edit2.Text := S;
end;
Код:
var s:string;
n,a,i,r,o,c:byte;
begin
writeln('vvedite stroku');
readln(s);
writeln('vvedite nuber');
readln(n);
c:=0;
n:=n+1;
a:=length(s);
r:=n;
c:=a mod n;
for i:=0 to c do
begin
insert('!',s,n);
n:=n+r;
end;
o:=length(s);
if (s[o]<>'!') and (s[o-1]<>'!') and (s[o-2]<>'!') then s:=s+'!';
writeln(s);
readln;
end.
n,a,i,r,o,c:byte;
begin
writeln('vvedite stroku');
readln(s);
writeln('vvedite nuber');
readln(n);
c:=0;
n:=n+1;
a:=length(s);
r:=n;
c:=a mod n;
for i:=0 to c do
begin
insert('!',s,n);
n:=n+r;
end;
o:=length(s);
if (s[o]<>'!') and (s[o-1]<>'!') and (s[o-2]<>'!') then s:=s+'!';
writeln(s);
readln;
end.
вот=)