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

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

18.03.2015, 11:52. Просмотров 1906. Ответов 1
Метки нет (Все метки)


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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program filetext;
uses crt;
var f:text;
    c:char;
begin
clrscr;
assign(f,'f.txt');
reset(f);
 while (not eof(f)) do begin
readln(f,s);
 
...
 
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2015, 11:52
Ответы с готовыми решениями:

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

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

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

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

1
Эксперт Pascal/Delphi
6571 / 4425 / 4718
Регистрация: 05.06.2014
Сообщений: 21,729
19.03.2015, 12:32 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
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.03.2015, 12:32

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

Заменить символы "1", "2", "3" словами "один", "два", "три"
Дана строка символов. Заменить символы "1", "2", "3" словами "один", "два", "три". Оформить в...

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

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

Распечатать все слова, в состав которых входят буквы "a", "o" или "и"
Дана строка символов. Группу символов, разделенную с одной или обеих сторон одним или несколькими...

Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет"
Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла...

Проверить слово "Дом" и содержит ли оно буквы: "а" , "б" ,"о","д"
программа должна проверить слово "Дом" и содержит ли оно буквы: "а" , "б"...


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

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

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