Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 1
Регистрация: 19.02.2017
Сообщений: 22
1

Работа с файлами. Удаление элементов

20.04.2017, 14:30. Показов 1084. Ответов 2

Доброго времени суток! Помогите, пожалуйста, решить следующую задачу:
"Дан файл целых чисел, содержащий более 50 элементов. Уменьшить его размер до 50 элементов, удалив из файла необходимое количество найденных элементов."
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.04.2017, 14:30
Ответы с готовыми решениями:

Работа с символьным файлом. Удаление элементов
Доброго времени суток! Помогите, пожалуйста, решить вот такую задачу: "Дан символьный файл,...

Работа с файлами. Найти сумму элементов файла вещественных чисел с четными номерами
просто сам не шарю, а сделать надо. Дан файл вещественных чисел. Найти сумму его элементов с...

Работа с файлами. Формирование, Печать, добавление и удаление элементов оформить в виде функций
Сформировать двоичный файл, распечатать его содержимое. Формирование, печать, добавление и удаление...

Работа с файлами (поиск и удаление)
Столкнулся с проблемой нужно осуществить поиск папки на диске и её удаление предложите готовый код...

__________________
2
Модератор
63335 / 47046 / 32428
Регистрация: 18.05.2008
Сообщений: 114,040
20.04.2017, 14:43 2
Лучший ответ Сообщение было отмечено HoyringyTanaka как решение

Решение

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
var f:file of integer;
    i,a:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
writeln('Содержание исходного файла');
for i:=1 to 60 do
 begin
  a:=random(100);
  write(f,a);
  write(a:4);
 end;
reset(f);
seek(f,49);
truncate(f);
reset(f);
writeln('Содержание обрезанного файла');
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
 end;
close(f);
end.
1
0 / 0 / 1
Регистрация: 19.02.2017
Сообщений: 22
20.04.2017, 15:25  [ТС] 3
Спасибо большое!)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.04.2017, 15:25

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

Расчетная Работа с Файлами.Удаление записи.
Возникли проблемы с удалением записи из структуры.Подскажите где у меня ошибка почему не видет? //...

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

Работа с xml файлами. Удаление тэга
Добрый день, подскажите если не затруднит, я работаю с xml файлом: <?xml version="1.0"...

Работа с xml файлами. Удаление тэга в SimpleXml
В очередной раз обращаюсь к гуру форума , дока по simplexml ужасная( Подскажите, пожалуйста, как...


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

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

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