0 / 0 / 0
Регистрация: 20.12.2014
Сообщений: 7
1

Замена в каждой строке заданного количества первых символов заданным текстом

21.12.2014, 17:03. Показов 574. Ответов 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
32
33
34
35
36
37
38
39
40
program zamena;
uses crt;
Var
f1: text;
i,n,k: byte;
s1,t: string;
 
begin
clrscr;
Assign(f1,'my_file.txt');
Rewrite(f1);
writeln('Введите количество строк');
readln(n);
for i:= 1 to n do
begin
writeln('введите строку',i);
readln(s1);
writeln(f1,s1);
end;
Close(f1);
 
Reset(f1);
readln(f1,s1);
writeln('Введите кол-во символов');
readln(k);
writeln('введите текст');
readln(t);
While not eof(f1) do
begin
for i:= 1 to Length(s1) do
if (s1,i,1)=k then delete(s,i,1);
insert(t,s,i);
 
end;
close(f1);
 
writeln;
 
writeln('Результат: ',s1);
end.
не могу исправить ошибку. не понимаю

Добавлено через 2 часа 34 минуты
for i:= 1 to Length(s1) do
if (s1,i,1)=k then delete(s,i,1);
insert(t,s,i);
что может быть неправильно? ей не нравится К
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2014, 17:03
Ответы с готовыми решениями:

Файлы: замена в каждой строке заданного количества первых символов заданным текстом
Помогите пожалуйста с программкой Нужно "Замена в каждой строке заданного количества первых...

Удаление определённого количества первых символов в каждой строке текстового файла
Здравствуйте, подскажите пожалуйста. Имеется текстовый файл, в котором на каждой строке что-то...

Определение минимального количества первых символов, по которым можно различать слова с заданного текста
Разработать алгоритм и программу для определения минимального количества первых символов, по...

Макрос для поиска ячеек с заданным значением и вставка заданного количества столбцов справа каждой найденной ячейки
Добрый день! Прошу подсказать как написать макрос для excel таблицы, чтобы искал все ячейки строки...

1
1643 / 1072 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
22.12.2014, 10:40 2
Цитата Сообщение от LionelNata Посмотреть сообщение
ей не нравится К
С чего Вы взяли?

Лучше поясните что значит вот это:
Цитата Сообщение от LionelNata Посмотреть сообщение
Pascal
1
if (s1,i,1)=
Это какая-то новая конструкция в Паскале? Сами придумали?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2014, 10:40

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Подсчёт количества символов в каждой строке textBox
Здравствуйте. Есть задача, нужно в textBox (с включённым свойством MultiLine), просчитать длину...

Функции: нахождение количества элементов, больших заданного значения, в каждой строке матрицы
Здравствуйте. Помогите с прогой, она должна в двумерном массиве находить количество элементов...

Замена в каждой строке одного заданного символа на другой заданный символ
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ)) Даны 2 строки до 80 символов. Необходимо Заменить в каждой сроке один...

Замена в каждой строке порядка следования символов на обратный
Замена в каждой строке порядка следования символов на обратный.


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

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

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