Замена последовательности символов в строке

Втр, 03/08/2011 - 01:03 — tech

Темы учебника

Процедуры и функции для работы со строками

Задача:

Найти в строке все заданные последовательности символов и заменить их другой последовательностью.

Описание переменных:

f – файловая переменная текстового типа;
str – строка из файла;
s_out – заменяемая последовательность символов;
s_in – вставляемая последовательность символов.

Алгоритм решения задачи:

1. Открываем текстовый файл для чтения.
2. Присваиваем значения переменным s_out и s_in.
3. Выясняем длину s_out.
4. Пока не будет достигнут конец файла
____a. Считываем содержимое файла в переменную str.
____b. Пока счетчик не равен нулю
________i. Присваиваем ему индекс первого символа совпавшей последовательности.
________ii. Удаляем и вставляем последовательности символов.

Программа на языке Паскаль:

var
    s_out, s_in, str: string;
    f     : text;
    i, len : integer;
begin
    assign(f,'c:/text.txt');
    reset(f);
    writeln('What cut? ');
    readln(s_out);
    writeln('What paste? ');
    readln(s_in);
    len := length(s_out);
    while not Eof(f) do begin
        readln(f,str);
        i := 1;
        while i0 do begin
            i := pos(s_out,str);
            if i0 then begin
                delete(str,i,len);
                insert(s_in,str,i);
            end;
        end;
        writeln(str);
    end;
 
    close(f);
readln
end.

Примечания:

Если заменяемое слово имеет позицию 0, то оно не заменяется.

Добавить комментарий

Ввести строку S, содержащую строчные и прописные буквы. Вывести:
• в столбик символы и их коды для этой строки;
• строку, преобразовав все символы в верхний регистр;
• строку, преобразовав все символы в нижний регистр.

ответить

чт, 11/06/2014 - 08:51 — tech

var s: string; i, l:

var
    s: string;
    i, l: byte;
    a: byte;
begin
    readln(s);
    l := length(s);
    for i:=1 to l do
        writeln(s[i],' - ',ord(s[i]));
    a := ord('a') - ord('A');
    for i:=1 to l do
        if (s[i] >= 'A') and (s[i] = 'Z') then
            write(chr(ord(s[i]) + a))
        else
            write(s[i]);
    writeln;
    for i:=1 to l do
        if (s[i] >= 'a') and (s[i] = 'z') then
            write(chr(ord(s[i]) - a))
        else
            write(s[i]);
    writeln;
end.

ответить

ср, 11/27/2013 - 12:48 — Гость

Решение задачи

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

ответить

ср, 02/08/2012 - 17:41 — Гость

задача

помгоите плиззззззз!!!!!! срочно нужно решить задачу : поиск min и max елементов последовательности a[n] удовлетворяющую заданному условию

ответить

Втр, 02/07/2012 - 17:03 — Гость

дан файл компонентами которого являются символы, записанные в не

дан файл компонентами которого являются символы, записанные в несколько строк найти количество символов в каждой строк, результат записать в конце каждой строки

ответить

сб, 02/04/2012 - 15:30 — Гость

помогите с задачкой!!!!

по обработке строк....
текст задания:

Входной текст содержит список арифметических констант в форме десятичных чисел с плавающей запятой. Элементы списка разделены между собой одним или несколькими пробелами. Перенести в преобразованный текст список констант, которые превышают по модулю допустимое для типа real значение (1E38). Элементы списка в выходном файле разделить между собой запятыми, а после каждой запятой записать один пробел. Для анализа констант процедуры Val и Str не использовать. Например, для входного списка
1.2E+12 -43.677E37 2567.234E+34 0.00087E45 14.6E-5 -6.6E+38 777E101
получим -43.677E37, 2567.234E+34, 0.00087E45, -6.6E+38, 777E101.
___________
заранее благодарен

ответить

вс, 02/05/2012 - 22:17 — Гость

По оотке строковых данных

помогите пожалуйста с Задачами срочно!
Дана строка символов S, в которой есть два символа двоеточие. Определите количество символов между ними.

Дана строка символов S. Определите количество латинских букв в строке.

Дана строка символов S. Удалите из нее все цифры или выдайте сообщение, что цифр в строке нет.
Заранее огромное спасибо

ответить

Втр, 02/07/2012 - 19:43 — Гость

как понял ты уже получил 2

как понял ты уже получил 2 ??)

ответить

Язык Pascal. Программирование для начинающих

Решение задач

Программы