DarkSiver
1

Удаление части строки, заключенной в скобки

04.10.2012, 13:53. Показов 1292. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций со строками:
1) Процедура удаления части строки, заключенной в скобки (вместе со скобками);
2) Процедура подсчета количества слов в строке, начинающихся на букву "е";
3) Функция определения количества символов в последнем слове строки.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.10.2012, 13:53
Ответы с готовыми решениями:

Строки. Удалить часть символьной строки,заключенной в скобки (вместе со скобками)
Удалить часть символьной строки,заключенной в скобки(вместе со скобками).

Удалить часть символьной строки, заключенной в скобки
Удалить часть символьной строки, заключенной в скобки (вместе со скобками)

Удалить часть символьной строки, заключенной в скобки
Удалить часть символьной строки, заключенной в скобки (вместе со скобками).

Написать программу , для удаления части символов строки заключенную в скобки(вместе с ними). P.s. Строка может быть любая
Помогите пожалуйста.

2
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,579
Записей в блоге: 1
04.10.2012, 14:18 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
36
37
38
39
40
Unit Str;
Interface
Procedure Del(Var s:string);
Procedure Schet(s:string;Var k:byte);
Function Kol(s:string):byte;
Implementation
Procedure Del;
Var k1,k2:byte;
Begin
    k1:=Pos('(',s);
    k2:=Pos(')',s);
    if (k1>0)and(k2>0) then
     Delete(s,k1,k2-k1);
    if (k1=0)or(k2=0) then writeln('Нету открывающей или закрывающей скобки');
End;
Procedure Schet;
Var i:byte;
    s1:string;
Begin
    s1:='';k:=0;s:=s+' ';
    For i:=1 to Length(s) do
     if not (s[i] in [' ',',','-','!','?']) then s1:=s1+s[i]
      else
       Begin
        if s1[1]='е' then inc(k);
        s1:='';
       End;
End;
Function Kol;
Var s1:string;
    i:byte;
Begin
    s1:='';
    For i:=Length(s) downto 1 do
     if not (s[i] in [' ',',','-','!','?']) then s1:=s[i]+s1
      else break;
    Kol:=Length(s1);
End;
Begin
End.
Тестируй
1
DarkSiver
04.10.2012, 16:42 3
Все отлично, спасибо
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2012, 16:42
Помогаю со студенческими работами здесь

Выводит на экран части арифметического выражения, взятые в скобки
Привет!Помогите с задачей! В арифметическом выражении используются круглые скобки. Разработать...

Удаление текста заключенного в скобки
Нужно удалить слова заключённые в скобки. Например: "Текст (для) чт(е)ния" должно выйти Текст...

Дана строка, в которой имеется текст в скобках. Написать программу удаления части текста, заключенного в скобки, вместе со скобками
Дана строка, в которой имеется текст в скобках. Написать программу удаления части текста,...

Удалить часть символьной строки, заключенной в скобки
Удалить часть символьной строки, заключенной в скобки (вместе со скоб¬ками). (использовать...

Удалить часть символьной строки, заключенной в скобки
Помогите пожалуйста решить задачу Вот условие:Удалить часть символьной строки, заключенной в...

Удалить часть символьной строки, заключенной в скобки
Удалить часть символьной строки, заключенной в скобки (вместе со скобками).


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

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

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