Заполнить файл F в G

@Тиман · Регистрация: 16.05.2011

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

Как сделать чтоб не повтарялось? из файла f в фаил g?

program ABC;
var b,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f (признак конца ввода: "555")');
//ввод файла
rewrite(f);
readLn(b);
i:=1; //номер компоненты файла
while b<>555 do
begin
write(f,b);
inc(i);
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
end;

//ввывод файла до изменения
reset(f);
writeLn('фаил F:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
writeLn('фаил G:');
reset(f);
while (not EOF(f)) do
Begin;
read(f,b);
If b mod 2=0 then
write(b:5);
end;
close(f);
end.

Добавлено через 2 часа 54 минуты
Плиз хоть кто нибуть

@Ev[G]eN · 01.06.2011, 00:29

может быть напишите условие задания?

@Тиман · 01.06.2011, 21:27 **[ТС]**

Заполнить файл F целыми числами, полученными с помощью генератора случайных чисел. Из файла F получить файл G, исключив повторные вхождения чисел. Порядок исследования чисел сохранить.

Добавлено через 5 часов 40 минут
Плиззз я думаю для продвинутых пользователей это не так трудно

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Тиман 4 / 4 / 2 Регистрация: 16.05.2011 Сообщений: 63

	Заполнить файл F в G 31.05.2011, 23:29. Показов 997. Ответов 2 Метки нет (Все метки) Как сделать чтоб не повтарялось? из файла f в фаил g? program ABC; var b,i:integer; f:file of integer; begin assign(f,'f.dat'); writeLn('введите первую компоненту файла f (признак конца ввода: "555")'); //ввод файла rewrite(f); readLn(b); i:=1; //номер компоненты файла while b<>555 do begin write(f,b); inc(i); writeLn('введите ',i,'-ую компоненту файла f'); readLn(b); end; //ввывод файла до изменения reset(f); writeLn('фаил F:'); while not EOF(f) do begin read(f,b); write(b:5); end; writeLn; writeLn('фаил G:'); reset(f); while (not EOF(f)) do Begin; read(f,b); If b mod 2=0 then write(b:5); end; close(f); end. Добавлено через 2 часа 54 минуты Плиз хоть кто нибуть 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	01.06.2011, 00:29
	может быть напишите условие задания? 0

@Тиман 4 / 4 / 2 Регистрация: 16.05.2011 Сообщений: 63
	01.06.2011, 21:27 [ТС]
	Заполнить файл F целыми числами, полученными с помощью генератора случайных чисел. Из файла F получить файл G, исключив повторные вхождения чисел. Порядок исследования чисел сохранить. Добавлено через 5 часов 40 минут Плиззз я думаю для продвинутых пользователей это не так трудно 0