Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Определить количество повторяющихся букв в дереве https://www.cyberforum.ru/ turbo-pascal/ thread1398005.html
Помогите разобраться с двоичными деревьями. Написал из книжки пару процедур - не пойму, почему у меня выводится на экран не сверху вниз, а слева направо (слева корень, справа ветви и листья). Но это...
В первой строке входного файла содержится одно целое число N (1 ≤ N ≤ 20) Turbo Pascal
Turbo Pascal Как передать ссылку на массив в процедуру
Объявляю динамическую структуру данных. type mas=array of byte; pmas=^mas; var a:pmas; Вопрос следующий, как мне передать ссылку на этот массив в процедуру? И как мне обращаться к этому...
Turbo Pascal Написать функцию,определяющую наличие пути по соседним единичкам между двумя заданными элементами матрицы Имеется матрица (в файле) из нулей и единиц, чтение из файла матрицы я произвел, но возникли проблемы с реализацией функции и немного моим недопониманием того, что делать Что меня запутывает,... https://www.cyberforum.ru/ turbo-pascal/ thread1397658.html
Turbo Pascal Очередь: переписать содержимое одного файла в другой, перенося знаки препинания в конец строки https://www.cyberforum.ru/ turbo-pascal/ thread1397622.html
1. Пусть дан текстовый файл А. Перепишите его содержимое в файл В, перенося при этом в конец каждой строки все входящие в нее знаки препинания.
Turbo Pascal Символ "#" в текстовом файле считать бекспейсом
1. Пусть символ # определен в текстовом редакторе как стирающий символ Backspace, т.е. строка abc#d##c в действительности является строкой ac. Дан текст, в котором встречается символ #. Преобразовать...
Для чего нужны квадратные скобки Turbo Pascal
Объясните пожалуйста для чего нужны квадратные скобки в этих формулах R:= V0 - Y - Y; P:= Y; P:= (K1 * R1 - Y - A1 * Y) / A2;
Turbo Pascal Найти произведение функции Найти произведение вычисленных значений функции f(x) f(x)=(1-{e}^{-x})*sin(4\pi x) https://www.cyberforum.ru/ turbo-pascal/ thread1397497.html
Turbo Pascal Разделить элементы k-го столбца матрицы на диагональный элемент, расположенный в этом столбце https://www.cyberforum.ru/ turbo-pascal/ thread1397427.html
Входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над задачей создается ехе-файл. Задана квадратная матрица порядка n и число k. Разделить элементы k-го...
Turbo Pascal Поставить запятую после каждого пробела данной строки Входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над задачей создается ехе-файл. Вводится строка. Поставить запятую после каждого пробела данной строки.... https://www.cyberforum.ru/ turbo-pascal/ thread1397426.html
Эксперт Pascal/Delphi
6636 / 4464 / 4746
Регистрация: 05.06.2014
Сообщений: 21,951
19.03.2015, 12:32 0

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

19.03.2015, 12:32. Показов 1995. Ответов 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
program filetext;
uses
  crt,dos;
var
  f,g:text;
  s:string;
  i:integer;
begin
  clrscr;
  assign(f,'f.txt');
  assign(g,'g.txt');
  reset(f);
  rewrite(g);
  while not eof(f) do
    begin
      readln(f,s);
      for i:=length(s) downto 1 do
        begin
          if (s[i]='+') or (s[i]='-') or ((s[i]='б') and (s[i-1]='с')) then
            delete(s,i,1);
        end;
      writeln(g,s);
    end;
  close(f);
  close(g);
 
  erase(f);
  rename(g,'f.txt');
 
  readln;
end.


Вернуться к обсуждению:
В текстовом файле удалить все символы "+" и "-", а так же все буквы "б" перед которыми находится буква "с".
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2015, 12:32
Готовые ответы и решения:

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

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

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

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

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