Удаление группы букв вида abcd

@Linnard · Регистрация: 07.06.2010

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

Здравствуйте. Задача звучит следующим образом: Даны натуральные число n, символы S1,...,Sn. Удалить из данной последовательности все группы букв вида abcd, используя Паскаль.

@koorya · 14.06.2010, 23:41

Pascal

var
  s:string;
  n:integer;
begin
  readln(n);
  readln(s);
  while pos('z'+s,'abcd')<>0 do
      delete(s,pos(s,'abcd'),4);
  writeln(s);
  readln;
end.

не проверял, если будут ошибки, пишите

Добавлено через 44 секунды
хотя похоже я её не верно решил, щря написал даже

@Linnard · 14.06.2010, 23:50 **[ТС]**

Программа запускается, но увы работает неправильно..

@koorya · 15.06.2010, 00:18

не ну можно как бы сделать и так

Pascal

var
  s:string;
begin
  readln(s);
  while pos('abcd',s)<>0 do
      delete(s,pos('abcd',s),4);
  writeln(s);
  readln;
end.

все работает, Но скорее всего придется переделывать, и писать еще много кода

@Linnard · 15.06.2010, 00:44 **[ТС]**

Спасибо! разобрался =)

@koorya · 15.06.2010, 08:14

Linnard, этого мало, она должна не таким образом работать...

@Puporev · 15.06.2010, 08:20

Даны натуральные число n, символы S1,...,Sn.

Pascal

1 2	var n:integer; s:array[1..1000] of char;

это на массивы задача и pоs, delete здесь не рулят.

@koorya · 15.06.2010, 17:11

Pascal

var
  s:array[1..1000] of char;
  n,i,g,j:integer;
begin
  readln(n);
  g:=0;
  for i:=1 to n do
    readln(s[i]);
  for i:=1 to n-4 do
    if s[i]+s[i+1]+s[i+2]+s[i+3]='abcd' then
      begin
        g:=g+4;
        for j:=i to n do
          s[j]:=s[j+4];
      end;
  for i:=1 to n-g do
    write(s[i]);
  writeln;
  readln;
end.

вроде бы так, но я снова не проверил.

@boo777 · 12.11.2010, 13:42

Вы не могли бы решить эту задачу только на С++

@koorya · 13.11.2010, 13:53

C++

#include <iostream>
using namespace std;
 
int main(){
    int n;
    char s[100];
    cin>>n;
    for(int i=0;i<n;i++)
        cin>>s[i];
    for(int i=0;i<n-4;i++)
        if((s[i]=='a')&&(s[i+1]=='b')&&(s[i+2]=='c')&&(s[i+3]=='d')){
            for(int j=i;j<n-4;j++)
                s[j]=s[j+4];
            n-=4;
        }
    for(int i=0;i<n;i++)
        cout<<s[i];
    cout<<"\n";
    return 0;
}

Добавлено через 56 секунд
Только это ведь раздел "Паскаль" как-никак.

@Puporev · 13.11.2010, 13:59

koorya, Это понятно что Паскаль и есть тип string, но любят преподы поиздеваться с символьными массивами, типа строка только 255 символов, а массив можно и 10000 сделать...

@koorya · 13.11.2010, 14:15

Да не, я не к тому, я к тому, что на си++ попросили написать то же самое

@Puporev · 13.11.2010, 14:17

Прошу прощения, не заметил...

@boo777 · 14.11.2010, 18:05

Спасибо!

Добавлено через 2 минуты
Да вот только в разлделе С++ никто не отвечает (((

@Linnard 10 / 10 / 1 Регистрация: 07.06.2010 Сообщений: 124
		1
	Удаление группы букв вида abcd 14.06.2010, 23:27. Показов 2998. Ответов 13 Метки нет (Все метки) Здравствуйте. Задача звучит следующим образом: Даны натуральные число n, символы S1,...,Sn. Удалить из данной последовательности все группы букв вида abcd, используя Паскаль. 0

@Linnard 10 / 10 / 1 Регистрация: 07.06.2010 Сообщений: 124
	14.06.2010, 23:50 [ТС]	3
	Программа запускается, но увы работает неправильно.. 0

@Linnard 10 / 10 / 1 Регистрация: 07.06.2010 Сообщений: 124
	15.06.2010, 00:44 [ТС]	5
	Спасибо! разобрался =) 0

@koorya 334 / 181 / 68 Регистрация: 18.03.2010 Сообщений: 586 Записей в блоге: 11
	15.06.2010, 08:14	6
	Linnard, этого мало, она должна не таким образом работать... 0

@boo777 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 12
	12.11.2010, 13:42	9
	Вы не могли бы решить эту задачу только на С++ 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	13.11.2010, 13:59	11
	koorya, Это понятно что Паскаль и есть тип string, но любят преподы поиздеваться с символьными массивами, типа строка только 255 символов, а массив можно и 10000 сделать... 0

@koorya 334 / 181 / 68 Регистрация: 18.03.2010 Сообщений: 586 Записей в блоге: 11
	13.11.2010, 14:15	12
	Да не, я не к тому, я к тому, что на си++ попросили написать то же самое 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	13.11.2010, 14:17	13
	Прошу прощения, не заметил... 0

@boo777 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 12
	14.11.2010, 18:05	14
	Спасибо! Добавлено через 2 минуты Да вот только в разлделе С++ никто не отвечает ((( 0

Опции темы