0 / 0 / 0
Регистрация: 10.01.2010
Сообщений: 8
1

Выделить из строки подстроки, не содержащих знаков: больше, меньше, равно. Каждая выделенная подстрока должна быть выведена с новой строки.

11.01.2010, 03:24. Показов 2360. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ребят помогите,зачет завтра , а программы очень нужны) заранее благодарен!

Это две разные программы:

1.Выделить из строки подстроки, не содержащих знаков: больше, меньше, равно. Каждая выделенная подстрока должна быть выведена с новой строки.

2.Удалить из массива повторяющиеся элементы, оставив только первое вхождение каждого элемента.

Добавлено через 8 часов 29 минут
Вот первая почти работающая программа,но не знаю как вывести в подстроки....плз помогите...


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Uses Crt ; 
{Описание переменных} 
Var
Stroka : String ; {Строка символов }
i : integer; {Номер символа строки.}
{Начало программы}
Begin 
{Очистка экрана}
ClrScr;
{Вывод служебной информации}
Writeln('Домашняя работа 3');
Writeln('Фёдоров Иван');
Writeln('Группа С-11');
Writeln('Вариант 19');
Writeln('Выделить из строки подстроки, не содержащих знаков: больше, меньше, равно. Каждая выделенная подстрока должна быть выведена с новой строки.');
Writeln('Длина строки не более 40 символов');
Writeln ('Признак окончания ввода – Enter(“пустая строка”');
Repeat
         Writeln('ishodnaya stroka');
          Readln (Stroka);
          I:=1;
          While I<=Length(Stroka) do
                If ( Stroka[i] in ['<','>','='] ) then
                begin
                    delete(Stroka,I,1);
                    end
               Else 
                     I:= I+1;
           Writeln('preobrazovannaya stroka');
           Writeln(Stroka);
Until Stroka='';
End.
Добавлено через 3 часа 32 минуты
Ребят помогите пожалуйста! а то до экзамена не допустят((((
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2010, 03:24
Ответы с готовыми решениями:

Создать массив из 7 кнопок, каждая новая кнопка должна быть больше предыдущей
Создать массив из 7 кнопок, каждая новая кнапка должна быть больше предыдущей на 10 по ширине и на...

Строки. Выделить из строки все подстроки, содержащие числа, и преобразовать в тип integer
Буду очень признателен если вы поможете с этим заданием. А задание таково: у нас есть строка S, она...

Даны подстрока, строка и число N. Удалить из строки N первых вхождений подстроки (Lazarus)
Помогите решить.Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов...

Деление строки на подстроки размером 5 символов каждая
Здравствуйте товарищи программисты! Помогите решить задачу :cry:: пользователь вводит строку...

2
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
11.01.2010, 08:28 2
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Uses Crt ; 
{Описание переменных}
const zn=['>','<','='];
Var
Stroka,s: String ; {Строка символов }
i,j : integer; {Номер символа строки.}
{Начало программы}
Begin 
{Очистка экрана}
ClrScr;
{Вывод служебной информации}
Writeln('Домашняя работа 3');
Writeln('Фёдоров Иван');
Writeln('Группа С-11');
Writeln('Вариант 19');
Writeln('Выделить из строки подстроки, не содержащих знаков: больше, меньше, равно.');
writeln('Каждая выделенная подстрока должна быть выведена с новой строки.');
Writeln('Длина строки не более 40 символов');
Writeln ('Признак окончания ввода - Enter("пустая строка"');
Repeat
Writeln('Исходная строка:');
Readln (Stroka);
until length(Stroka)<=40;
I:=1;
While I<=Length(Stroka) do{пока не конец строки}
If not (Stroka[i] in zn) then{если не знак}
  begin
   s:='';{начнем составлять подстроку}
   j:=i;{начнем с этого символа}
   while (not(Stroka[j] in zn))and(j<=length(Stroka)) do{пока не знаки и не конец строки}
    begin
     s:=s+Stroka[j];{составляем подстроку}
     j:=j+1;{идем вперед}
    end;
   writeln(s);{попался знак или конец строки, выводим что получилось}
   i:=i+length(s);{перепрыгиваем через подстроку}
  end
else i:=i+1;{иначе пропускаем}
readln
End.
Добавлено через 12 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
var a:array[1..100] of integer;
    n,i,j,k:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Ishodnyj massiv:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i],' ');
 end;
writeln;
i:=1;
while i<=n do//пока не конец массива
 begin
  j:=i+1;//смотрим числа впереди
  while j<=n do
   begin
    if a[j]=a[i] then//если одинаковое
     begin
      for k:=j to n-1 do//к этому элементу
      a[k]:=a[k+1];//сдвигаем конец массива на 1 позицию
      n:=n-1;//уменьшаем размер массива
      end
     else j:=j+1;//если не одинаковый, пропускаем
   end;
  i:=i+1;//смотрим следующий
 end;
writeln('Massiv bez povtorenij:');
for i:=1 to n do
write(a[i],' ');
readln
end.
1
0 / 0 / 0
Регистрация: 10.01.2010
Сообщений: 8
11.01.2010, 08:35  [ТС] 3
БОЛЬШОЕ СПАСИБО!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2010, 08:35
Помогаю со студенческими работами здесь

Строки. Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1
Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1.В строке S подсчитать...

Из данной строки выделить все подстроки
Задача такова: из данной строки выделить все подстроки. К примеру: дана строка abcd Должно...

Выделить подстроки из строки с помощью RegEx
Есть строка string text = @&quot;hgdjhgdjhgds C:\temp\blablabla to D:\ololo&quot; нужно выделить 2...

Выделить из строки подстроки, заключенные в двойные круглые скобки
3. Алгоритм решения задачи Алгоритм “Преобразование символьной строки ” Внутрен. перемен. Stroka...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru