Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 21.05.2015
Сообщений: 1
1

В файле заменить буквы "а", "б" и "в" на 1

21.05.2015, 13:17. Просмотров 998. Ответов 1
Метки нет (Все метки)

дан файл с последовательностью букв. нужно заменить буквы а, б и в изменить на 1
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2015, 13:17
Ответы с готовыми решениями:

Заменить в строке "Мама мыла раму" буквы "а" на знак "_" . Вывести полученный массив на экран
Заменить в строке "Мама мыла раму" буквы "а" на знак "_" . Вывести полученный массив на экран....

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

В чем ошибка? Когда печатаю "а" или "б" все работает, а когда "А" или "Б" то он не меняет "А" на "Б"
{Программа заменяет буквы "а" на буквы "б" в введенном тексте} var stroka : string; i :...

Как скрыть в graphABC кнопки "свернуть", "Развернуть", "Закрыть"
Как скрыть в graphABC кнопки "свернуть", "Развернуть", "Закрыть"

1
32 / 8 / 11
Регистрация: 20.05.2015
Сообщений: 121
21.05.2015, 13:57 2
Лучший ответ Сообщение было отмечено vamax как решение

Решение

Вот. Только я взял символы 'a', 'b' и 'c', они будут заменяться на '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
program tt3;
var myfile: text;
    s: string;
    i:integer;
 
begin
assign(myfile, 'c:\pas\text.txt'); { связываем переменную myfile с нашим текстовым файлом }
reset(myfile); { открываем файл для чтения }
read(myfile, s); { читаем строку из файла в переменную s }
writeln(s);
 
{ в цикле перебираем все символы строки s и заменяем нужные на '1', я взял буквы a,b и c }
for i:=1 to length(s) do
    begin
         if (s[i]='a')  or (s[i]='b') or (s[i]='c') then s[i]:='1';
    end;
writeln(s);
 
append(myfile); { открываем файл для записи в конец файла }
writeln(myfile, s);  { пишем содержимое строки s в файл }
 
close(myfile);
 
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2015, 13:57

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

Как перевести числа с "String" в "integer" или "Real"?
как перевести числа с "String" в "integer" или "Real"?

Составьте программу замены в слове Х всех букв "а" и "я" на слог "по"
Составьте программу замены в слове Х всех букв "а" и "я" на слог "по". заранее спасибо!

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

Графика: Вывести надпись так, чтобы по очереди буквы сначала "приближались" к нам, затем "удалялись" обратно...
Здравствуйте, помогите, пожалуйста! Необходимо, вывести надпись (с помощью graphABC), так чтобы...


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

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

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