Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
ololoshka(
1 / 1 / 1
Регистрация: 17.12.2011
Сообщений: 13
1

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

17.12.2011, 13:16. Просмотров 420. Ответов 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
Ответы с готовыми решениями:

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

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

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

В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы
В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и...

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

2
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 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 / 1
Регистрация: 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

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

Дана строка, содержащая фамилию, имя и отчество. Вывести на экран строку, содержащую фамилию и инициалы
Дана строка, содержащая фамилию, имя и отчество. Вывести на экран строку,...

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


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

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

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