Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
ololoshka(
1 / 1 / 0
Регистрация: 17.12.2011
Сообщений: 13
#1

В файле удалить номера участников, оставив фамилию, имя в выходном файле - Pascal ABC

17.12.2011, 13:16. Просмотров 405. Ответов 2
Метки нет (Все метки)

Нужна помощь в написании программы. Смысл программы таков:
В входном текстовом документе, дан текст, вида:
412123412|pervii uchastnik;
412145125|votoroi uchastnik;
412634532|tretii uchastnik;
итак далее...
нужно удалить номера участника, то есть 412123412| , чтоб выходной файл получил вид:
pervii uchastnik;
votoroi uchastnik;
tretii uchastnik;
при этом номера участников все одинаковые =).

вот примерно шаблон
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var         {хз какие переменные}
F1,F2:text;
begin
assign(F1, 'c:/input.txt');  {412123412|pervii uchastnik; примерно такое содержание ну как выше было сказанно}
reset(F1);
assign(F2, 'c:/output.txt'); {pervii uchastnik; тоже примерно}
rewrite(f2);
 
{тут должно быть условие, которое я незнаю как делать =) }
 
close(f1);
close(f2);
end.

буду очень благодарен тому человеку который откликнется, сам написать не могу по причине незнание чего использования так сказать =)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2011, 13:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В файле удалить номера участников, оставив фамилию, имя в выходном файле (Pascal ABC):

Почему в выходном файле выводиться ноль? - Pascal ABC
Добрый вечер! помогите найти ошибку, почему в выходном файле выводиться ноль? {Даны n последовательных столбиков. Кузнечик находится на...

Почему в выходном файле выводятся нули? - Pascal ABC
Здраствуйте форумчане, подскажите пожалуйста почему в выходном файле выводиться нули, хотя оно должно выводить 2. Заранее благодарен ...

Оставив в файле только буквы - Pascal ABC
Организовать текстовый файл, . Оставив в файле только буквы. (создавая новый дополнительный файл). подскажите пожалуйста)

Строка S содержит фамилию, имя, отчество. Необходимо преобразовать ее в строку, содержащую фамилию и инициалы - Pascal ABC
Строка S содержит фамилию, имя, отчество. Необходимо преобразовать ее в строку, содержащую фамилию и инициалы.

Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы - Pascal ABC
Пример: Введите фамилию, имя и отчество: Иванов Петр Семёнович П.С. Иванов

Дана строка, содержащая фамилию, имя и отчество. Вывести на экран строку, содержащую фамилию и инициалы - Pascal ABC
Дана строка, содержащая фамилию, имя и отчество. Вывести на экран строку, содержащую фамилию и инициалы. Пример: Вводим: Кукушкин...

2
КонецСвета
Почетный модератор
7927 / 3898 / 940
Регистрация: 30.10.2011
Сообщений: 5,379
17.12.2011, 13:29 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s: string;        {хз какие переменные}
F1,F2:text;
begin
assign(F1, 'c:/input.txt');  {412123412|pervii uchastnik; примерно такое содержание ну как выше было сказанно}
reset(F1);
assign(F2, 'c:/output.txt'); {pervii uchastnik; тоже примерно}
rewrite(f2);
While not eof(f1) do
      Begin
readln(f1,s);
delete(s,1,10);
writeln(f2,s);
      end;
close(f1);
close(f2);
end.
1
ololoshka(
1 / 1 / 0
Регистрация: 17.12.2011
Сообщений: 13
17.12.2011, 13:34  [ТС] #3
Цитата Сообщение от КонецСвета Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s: string;        {хз какие переменные}
F1,F2:text;
begin
assign(F1, 'c:/input.txt');  {412123412|pervii uchastnik; примерно такое содержание ну как выше было сказанно}
reset(F1);
assign(F2, 'c:/output.txt'); {pervii uchastnik; тоже примерно}
rewrite(f2);
While not eof(f1) do
      Begin
readln(f1,s);
delete(s,1,10);
writeln(f2,s);
      end;
close(f1);
close(f2);
end.

спасибо большое, я предполагал конечно что надо было использовать команду delete) ктож знал что так легко и просто всё)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2011, 13:34
Привет! Вот еще темы с ответами:

Строки: ввести фамилию, имя и отчество, вывести имя в столбик - Pascal
Ввести фамилию, имя и отчество как одно данное строкового типа. Вывести имя в столбик.

Как переместить курсор в файле в читаемом файле на начало? - Pascal
Добрый день. Выполнил цикл "while not eof(inputFile)". Теперь надо выполнить еще раз цикл с таким же условием, но другим содержимым. Я...

Удалить повторы в типизированном файле - Pascal ABC
Из исходных данных удалить повторяющиеся числа. var f1:file of integer;Определить среднее арифметическое оставшихся чисел и записать его на...

Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле - Pascal ABC
буду благодарен за помощь. Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле. Если файла с таким...


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

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

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