Файлы: составить из цифр, не входящих в строки, минимальные числа

@perehodi ebl · Регистрация: 05.11.2010

Студворк — интернет-сервис помощи студентам

В исходном текстовом файле записаны строки, содержащие последовательность, среди которых встречаются и цифры. Требуется написать программу,которая для каждой строки исходного файла будет составлять и выводить в результирующий файл из тех цифр, которые не встречаются во входных данных, минимальное число. При составлении итогового числа каждая цифра может быть использованатолько один раз(первый 0 не выводить).
Если во входных данных встречаются все цифры от 0 до 9, то следует вывести "-1". Например, пусть на вход подаются следующие символы:
17 3 4 4 9
В этом случае в результирующем файле должно быть:
2 5 6 8.

@TAVulator · 04.12.2010, 18:27

Сообщение от perehodi ebl

когда я меняю тип f1 и f2 на text то пишет что не может найти файл, но они оба лежат в папке бин!!

переменная должна быть text
попробуй изменить имена файлов на формат 8.3

@perehodi ebl · 04.12.2010, 18:57 **[ТС]**

Сообщение от TAVulator

попробуй изменить имена файлов на формат 8.3

просто файлы покороче назвал
теперь новая проблема: выводятся цифры которых нету, только для первой строки.

Добавлено через 19 минут
кстати, почему компилятор выдает ошибку runtime error,и много раз выводит результат в результирующий файл, если

Pascal
1
readln(f1,s);

я поменяю на

Pascal
1
read(f1,s);

@TAVulator · 04.12.2010, 19:01

Сообщение от perehodi ebl

выводятся цифры которых нету, только для первой строки.

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

Сообщение от perehodi ebl

почему компилятор выдает ошибку runtime error,и много раз выводит результат в результирующий файл

потому что ты так считываешь посимвольно, а не построчно.

@perehodi ebl · 04.12.2010, 19:55 **[ТС]**

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
program text_file;
var start,len,i:integer;
    m1,m:set of char;
    f1,f2:text;
    sh,s:string;
    c:char;
begin
assign(f1,'po.txt');
assign(f2,'re.txt');
reset(f1);
rewrite(f2);
while not eof(f1) do
      begin
           readln(f1,s);{s4itivaem iz f1 postro4no}
           m:=[];
           m1:=['0'..'9'];
           for i:=1 to length(s) do
               if s[i] in ['0'..'9'] then m:=m+[s[i]];
               if (m1=m) then write(f2,'-1');
           for c:='0' to '9' do
               if not (c in m) then
               begin
                    write(f2, c); if (c='0') then
                    begin
                         sh:=c;
                         delete(sh,1,1);
                         write(f2,sh);
                    end;
               end;
           writeln(f2);
      end;
close(f1);
close(f2);
end.

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

@TAVulator · 04.12.2010, 20:01

Сообщение от perehodi ebl

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

делай так

Pascal
1
for c:='1' to '9' do

@perehodi ebl · 04.12.2010, 21:40 **[ТС]**

Сообщение от TAVulator

делай так

Pascal
1
for c:='1' to '9' do

сделал, теперь в результирующем файле все выводится нормально, однако в конце почему то появляются 2 строки 123456789

@TAVulator · 04.12.2010, 22:45

Сообщение от perehodi ebl

сделал, теперь в результирующем файле все выводится нормально, однако в конце почему то появляются 2 строки 123456789

видимо в файле с исходными данными в конце есть 2 пустые строки...

@perehodi ebl · 05.12.2010, 20:14 **[ТС]**

в том то и дело, что нет.

@ОТЗИшница · 05.12.2010, 20:19

Ребят,помогите,я не знаю как разбить файл на 2. Короче говоря,дан текстовый файл,в каждой строке которого записано или число или текст. Создать типизированный и текстовый файл. Получить в типизированном файле все числа,а в текстовом файле-все слова из исходного файла.

@SuPeR XaKer · 05.12.2010, 20:22

ОТЗИшница

Pascal
1
2
3
4
5
6
7
for i:=1 to length(s) do 
begin
if s[i] in ['0'..'9'] then
//пишим в первый файл
else
//во второй
end;

@perehodi ebl · 05.12.2010, 20:25 **[ТС]**

Сообщение от SuPeR XaKer

Pascal
1
2
3
4
5
6
7
for i:=1 to length(s) do 
begin
if s[i] in ['0'..'9'] then
//пишим в первый файл
else
//во второй
end;

перед этим

Pascal
1
readln(f,s);

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

@perehodi ebl 14 / 14 / 0 Регистрация: 05.11.2010 Сообщений: 42

	Файлы: составить из цифр, не входящих в строки, минимальные числа 30.11.2010, 23:24. Показов 4385. Ответов 30 Метки нет (Все метки) В исходном текстовом файле записаны строки, содержащие последовательность, среди которых встречаются и цифры. Требуется написать программу,которая для каждой строки исходного файла будет составлять и выводить в результирующий файл из тех цифр, которые не встречаются во входных данных, минимальное число. При составлении итогового числа каждая цифра может быть использованатолько один раз(первый 0 не выводить). Если во входных данных встречаются все цифры от 0 до 9, то следует вывести "-1". Например, пусть на вход подаются следующие символы: 17 3 4 4 9 В этом случае в результирующем файле должно быть: 2 5 6 8. 1

@perehodi ebl 14 / 14 / 0 Регистрация: 05.11.2010 Сообщений: 42
	05.12.2010, 20:14 [ТС]
	в том то и дело, что нет. 0

@ОТЗИшница 0 / 0 / 0 Регистрация: 06.11.2010 Сообщений: 7
	05.12.2010, 20:19
	Ребят,помогите,я не знаю как разбить файл на 2. Короче говоря,дан текстовый файл,в каждой строке которого записано или число или текст. Создать типизированный и текстовый файл. Получить в типизированном файле все числа,а в текстовом файле-все слова из исходного файла. 0