помогите ребенку решить задачи по программированию

[baradydys]

Всем привет. Очень всех прошу помочь с решением задач. Курс за 10 клас по программированию Turbo Pascal. За мной не заржавеет.

1. Удалить из строки все символы "+", стоящие после символа "5": пример "ab+5+55a++b+" = "ab+555a5b"

2. Удалить из строки все слова "Link" пример "no link on the linking" = "no on the linking"

3. Удалить из строки все цифры 7 и 9. пример "135794775" = "13545"

4. Поменять местами четные и нечетные символы в строке. пример "micron" = "imrcno"

5. Удалить из строки символы, стоящие на нечетных позициях. пример "abcdefgh" = "bdfh"

6. Удалить из строки последний символ "*". пример "w*e3*3rw*f" = "w*e3*3rwf"

7. Вывести на экран часть строки, стоящую после первого символа "/". пример "abcd/efgh/ret" = "efgh/ret"

8. Переместить из строки первый и последний символы на вторую и третью позиции. пример "power" = "oprwe"

9. Удалить из строки гласные буквы. пример "the ground" = "th grnd"

10. Перевернуть строку, за исключением первого и последнего символов. пример "station" = "soitatn"

11. Удалить из строки все символы "a" и "b", кроме стоящих рядом. пример "a arbalbetaa" = "rbalbetaa"

12. Удалить часть строки, стоящую в скобках. пример "ten(past)five" = "ten()five"

13. Удвоить в строке все символы "+". пример "1+2+3++4" = "1++2++3++++4"

[Castor]

a sed не пойдёт? проще ведь будет
типа: 1) sed -e 's/5+/5/g'
2) sed -e 's/[^ ]link[ ,.]/ /g'
...
9) sed -e 's/[aeuo]//g'
и т.д.

[baradydys]

a sed не пойдёт? проще ведь будет
типа: 1) sed -e 's/5+/5/g'
2) sed -e 's/[^ ]link[ ,.]/ /g'
...
9) sed -e 's/[aeuo]//g'
и т.д.

не непойдет, там именно на паскале надо

[Castor]

Оффтопик

не непойдет, там именно на паскале надо

А чем, интересно знать, ребёнок весь десятый класс маялся?
P.S. Я помогать не буду, нет времени синтаксис вспоминать.

[baradydys]

Оффтопик

А чем, интересно знать, ребёнок весь десятый класс маялся?
P.S. Я помогать не буду, нет времени синтаксис вспоминать.

это надо у ребенка спросить, девушки не очень усваивают программирование. Я в свое время такие задачки как орешки щелкал, сейчас уже все забыл как это делается.

[v_b]

короче все кроме 11-ой

Оффтопик

var
a,b:string;
i,x:integer;
c,v:char;
z: set of char;
begin
 
//****1****
writeln('vvedite stroku');
readln(a);
x:=0;
i:=1;
repeat
begin
 if (a[i]='5') then x:=1;
 if (x=1) and (a[i]='+') then
  begin
  delete(a,i,1);
  i:=i-1;
  end;
 i:=i+1;
end;
until i>Length(a);
writeln(a);
 
//****2****
writeln('vvedite stroku');
readln(a);
for i:=1 to Length(a) do
begin
  x:=pos('link ',a);
  if x<>0 then delete(a,x,5);
end;
writeln(a);
 
//****3****
writeln('vvedite stroku');
readln(a);
for x:=1 to Length(a) do
for i:=1 to Length(a) do
begin
  if (a[i]='7') or (a[i]='9') then delete(a,i,1);
end;
writeln(a);
 
//****4****
writeln('vvedite stroku');
readln(a);
i:=1;
repeat
begin
   c:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=c;
   i:=i+2;
end;
until i>=Length(a);
writeln(a);
 
//****5****
writeln('vvedite stroku');
readln(a);
i:=1;
repeat
begin
  delete(a,i,1);
  i:=i+1;
end;
until i>Length(a);
writeln(a);
 
//****6****
writeln('vvedite stroku');
readln(a);
i:=Length(a);
x:=0;
repeat
begin
 if a[i]='*' then
 begin
  delete(a,i,1);
  x:=1;
 end;
 i:=i-1;
end;
until x=1;
writeln(a);
 
//****7****
writeln('vvedite stroku');
readln(a);
x:=0;
for i:=1 to Length(a) do
begin
  if (a[i]='/') and (x=0) then
  begin
   a:=copy(a,i+1,Length(a)-i+1);
   x:=1;
  end;
end;
writeln(a);
 
//****8****
writeln('vvedite stroku');
readln(a);
c:=a[1];
a[1]:=a[2];
a[2]:=c;
c:=a[3];
a[3]:=a[Length(a)];
for i:=4 to Length(a) do
begin
 v:=a[i]; a[i]:=c; c:=v;
end;
writeln(a);
 
//****9****
writeln('vvedite stroku');
readln(a);
z:=['a','e','i','o','u','y'];
for x:=1 to Length(a) do
for i:=1 to Length(a) do
if a[i] in z then delete(a,i,1);
writeln(a);
 
//****10****
writeln('vvedite stroku');
readln(a);
b:=a;
c:=a[1]; v:=a[Length(a)];
for i:=1 to Length(a) do
b[Length(a)-i+1]:=a[i];
b[1]:=c; b[Length(a)]:=v;
writeln(b);
 
//****12****
writeln('vvedite stroku');
readln(a);
for i:=1 to Length(a) do
begin
 if a[i]='(' then x:=i;
 if a[i]=')' then delete (a,x+1,i-x-1);
end;
writeln(a);
 
//****13****
writeln('vvedite stroku');
readln(a);
i:=1;
repeat
begin
 if a[i]='+' then
 begin
  insert('+',a,i);
  i:=i+1;
 end;
i:=i+1;
end;
until i>Length(a);
writeln(a);
readln;
end.

сделал 11ую, вроде должна канать

Оффтопик

var
a:string;
i:integer;
z1:set of char;
begin
//****11****
writeln('vvedite stroku');
readln(a);
i:=1;
z1:=['a','b'];
repeat
begin
 if (a[i]='a') and not (a[i+1] in z1) and not (a[i-1] in z1) then
 begin
  delete(a,i,1);
  i:=i-1;
 end;
 if (a[i]='b') and not (a[i+1] in z1) and not (a[i-1] in z1) then
 begin
  delete(a,i,1);
  i:=i-1;
 end;
 i:=i+1;
end;
until i>Length(a);
writeln(a);
readln;
end.

[baradydys]

короче все кроме 11-ой

Оффтопик

var
a,b:string;
i,x:integer;
c,v:char;
z: set of char;
begin
 
//****1****
writeln('vvedite stroku');
readln(a);
x:=0;
i:=1;
repeat
begin
 if (a[i]='5') then x:=1;
 if (x=1) and (a[i]='+') then
  begin
  delete(a,i,1);
  i:=i-1;
  end;
 i:=i+1;
end;
until i>Length(a);
writeln(a);
 
//****2****
writeln('vvedite stroku');
readln(a);
for i:=1 to Length(a) do
begin
  x:=pos('link ',a);
  if x<>0 then delete(a,x,5);
end;
writeln(a);
 
//****3****
writeln('vvedite stroku');
readln(a);
for x:=1 to Length(a) do
for i:=1 to Length(a) do
begin
  if (a[i]='7') or (a[i]='9') then delete(a,i,1);
end;
writeln(a);
 
//****4****
writeln('vvedite stroku');
readln(a);
i:=1;
repeat
begin
   c:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=c;
   i:=i+2;
end;
until i>=Length(a);
writeln(a);
 
//****5****
writeln('vvedite stroku');
readln(a);
i:=1;
repeat
begin
  delete(a,i,1);
  i:=i+1;
end;
until i>Length(a);
writeln(a);
 
//****6****
writeln('vvedite stroku');
readln(a);
i:=Length(a);
x:=0;
repeat
begin
 if a[i]='*' then
 begin
  delete(a,i,1);
  x:=1;
 end;
 i:=i-1;
end;
until x=1;
writeln(a);
 
//****7****
writeln('vvedite stroku');
readln(a);
x:=0;
for i:=1 to Length(a) do
begin
  if (a[i]='/') and (x=0) then
  begin
   a:=copy(a,i+1,Length(a)-i+1);
   x:=1;
  end;
end;
writeln(a);
 
//****8****
writeln('vvedite stroku');
readln(a);
c:=a[1];
a[1]:=a[2];
a[2]:=c;
c:=a[3];
a[3]:=a[Length(a)];
for i:=4 to Length(a) do
begin
 v:=a[i]; a[i]:=c; c:=v;
end;
writeln(a);
 
//****9****
writeln('vvedite stroku');
readln(a);
z:=['a','e','i','o','u','y'];
for x:=1 to Length(a) do
for i:=1 to Length(a) do
if a[i] in z then delete(a,i,1);
writeln(a);
 
//****10****
writeln('vvedite stroku');
readln(a);
b:=a;
c:=a[1]; v:=a[Length(a)];
for i:=1 to Length(a) do
b[Length(a)-i+1]:=a[i];
b[1]:=c; b[Length(a)]:=v;
writeln(b);
 
//****12****
writeln('vvedite stroku');
readln(a);
for i:=1 to Length(a) do
begin
 if a[i]='(' then x:=i;
 if a[i]=')' then delete (a,x+1,i-x-1);
end;
writeln(a);
 
//****13****
writeln('vvedite stroku');
readln(a);
i:=1;
repeat
begin
 if a[i]='+' then
 begin
  insert('+',a,i);
  i:=i+1;
 end;
i:=i+1;
end;
until i>Length(a);
writeln(a);
readln;
end.

огромное спасибо, я твой должник