Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 25.10.2010
Сообщений: 37
1

Удалить из текста все буквы "b", непосредственно перед которыми идет буква "c"

19.11.2010, 22:05. Показов 1671. Ответов 3
Метки нет (Все метки)

Дана исходная программа. Как изменить её так, чтобы она удаляла из текста все буквы ‘b’, непосредственно перед которыми идет буква ’c’. Помогите, уже час мучаюсь.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var     St: string; z:string[17]; x:string[2];
    i: integer;
Begin
    Write('введите строку текста - St');
    Readln(St);
    z:='0123456789IVXLCDM';
    i:=1;
    while i<=length(st)-1 do
    begin
        x:=copy(st,I,2);
        if (x[1]=x[2]) and (pos(x[1],z)<>0) then
        begin
            delete(st,i,2);
            insert('две',st,i);
            i:=i+1;
        end;
        i:=i+1;
    end;
    writeln('преобразованная строка ', st);
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2010, 22:05
Ответы с готовыми решениями:

В текстовом файле удалить все символы "+" и "-", а так же все буквы "б" перед которыми находится буква "с".
Дан текстовый файл. В нем удалить все символы &quot;+&quot; и &quot;-&quot;, а так же все буквы &quot;б&quot; перед которыми...

Напишите программу для вычеркивания из слова X всех букв "р", перед которыми стоит буква "а"
Напишите программу для вычеркивания из слова X всех букв &quot;р&quot;, перед которыми стоит буква &quot;а&quot;.

Написать программу для вычеркивания из слова Х всех букв "р" перед которыми стоит буква "а"
написать программу для вычеркивания из слова Х всех букв &quot;р&quot; перед которыми стоит буква &quot;а&quot;

Удалить из строки все буквы"а" и"о". символ "*" заменить"-".
дана строка из 40 символов . удалить из неё все буквы&quot;а&quot; и&quot;о&quot;. символ &quot;*&quot; заменить&quot;-&quot;. решите...

__________________
3
4 / 4 / 6
Регистрация: 20.07.2010
Сообщений: 25
20.11.2010, 01:42 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var     St: string;
        i: integer;
Begin
        Write('введите строку текста - St  ');
        Readln(St);
 
        for i:=2 to length(St) do
        if (St[i]='b')and(St[i-1]='c')
           then delete(St,i,1);
 
        writeln('преобразованная строка ', st);
End.
0
0 / 0 / 0
Регистрация: 25.10.2010
Сообщений: 37
20.11.2010, 01:50  [ТС] 3
На 8 строку выбивает ошибку времени выполнения, индекс находился вне границ массива.
0
4 / 4 / 6
Регистрация: 20.07.2010
Сообщений: 25
20.11.2010, 09:09 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Нафан Посмотреть сообщение
На 8 строку выбивает ошибку времени выполнения, индекс находился вне границ массива.
А что за версия паскаля?
У меня ABC и всё работает...Turbo или Borland Pascal у меня нет чтобы проверить там=(
Попробуй так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var     St: string;
        i: integer;
Begin
        Write('введите строку текста - St  ');
        Readln(St);
        i:=2;
        while Length(St)>=i do
        begin
        if (St[i]='b')and(St[i-1]='c')
           then delete(St,i,1);
           i:=i+1;
        end;
        writeln('преобразованная строка ', st);
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2010, 09:09

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Напишите программу для проверки, есть ли в слове X буква "о". Если есть, то замените все буквы "о" на "ку"
ребятки, очень прошу помогите!!))) вот такую штуку надо сделать в паскале, а я не очень в этом...

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку
Ввести строку. Заменить все буквы &quot;е&quot; и &quot;а&quot; в тексте на &quot;8&quot; , &quot;4&quot; и &quot;6&quot;. Вывести на...

Напишите программу, выясняющую, есть ли в слове X буква "к", и, если есть, то замените все буквы "а" в этом слове на "с"
Напишите программу, выясняющую, есть ли в слове X буква &quot;к&quot;, и, если есть, то замените все буквы...

Напишите программу, проверяющую, есть ли в слове X буква "к", стоящая на чётных местах перед буквой "и"
Напишите программу, проверяющую, есть ли в слове X буква &quot;к&quot;, стоящая на чётных местах перед буквой...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.