Написать аналог процедуры Delete. Процедурой Delete и функцией Copy не пользоваться

@Rahmanur · Регистрация: 22.10.2014

Author24 — интернет-сервис помощи студентам

Написать аналог процедуры Delete. Процедурой Delete и функцией Copy не пользоваться. кто сможет? Помогите!!! На Паскале ABC!!!

@vint-81 · 23.10.2014, 08:18

Pascal

var a:string;
procedure delete1(var s:string;n,m:byte);
var s1:string;i:byte;
begin
    s1:='';
    for i:=1 to n-1 do s1:=s1+s[i];
    for i:=n+m to length(s) do s1:=s1+s[i];
    s:=s1
end;
begin
 a:='abcdefghigkl';
 writeln(a);
 delete1(a,4,2);
 writeln(a)
end.

@Puporev · 23.10.2014, 08:39

Можно без дополнительной строки

Pascal

Procedure MyDelete(var st:string;p,d:byte);
var n,i,j:byte;
begin
n:=ord(st[0]);
for i:=1 to d do
 begin
  for j:=p to n-1 do
  st[j]:=st[j+1];
  n:=n-1;
 end;
st[0]:=chr(n);
end;
var s:string;
    p,d:byte;
begin
writeln('Строка:');
readln(s);
write('С какой позиции удалить p=');
readln(p);
write('Количество символов d=');
readln(d);
MyDelete(s,p,d);
if s='' then write('Пустая строка')
else write(s);
end.

@Rahmanur 1 / 1 / 0 Регистрация: 22.10.2014 Сообщений: 37
		1
	Написать аналог процедуры Delete. Процедурой Delete и функцией Copy не пользоваться 23.10.2014, 07:19. Показов 4618. Ответов 2 Метки нет (Все метки) Написать аналог процедуры Delete. Процедурой Delete и функцией Copy не пользоваться. кто сможет? Помогите!!! На Паскале ABC!!! 0

	23.10.2014, 08:39

Написать аналог процедуры Delete. Процедурой Delete и функцией Copy не пользоваться

Решение