Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2015, 18:44   #1
Flocky
Пользователь
 
Регистрация: 11.01.2013
Сообщений: 17
По умолчанию Работа с файлами

Дан файл целых чисел. Все числа, кратные трем, переписать в новый файл. Найти их среднее арифметическое.
Код:
var f,g:file of integer;
    n,i,j,k,a,b:integer;
begin
randomize;
assign(f,'intfiles.dat');
rewrite(f);
write('Сколько чисел записать в файл? n=');
readln(n);
for i:=1 to n do
 begin
  a:=-20+random(50);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
writeln;
{Как переписать в файл числа кратные 3? if a mod 3 = 0 then }



end.

Последний раз редактировалось Вадим Мошев; 16.01.2016 в 14:48.
Flocky вне форума Ответить с цитированием
Старый 12.12.2015, 19:49   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну. Правильно мыслишь:
Код:
read(f,a);
if (a mod 3) = 0 then write(g,a);
Только g открой как сделал это с f.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.12.2015, 20:50   #3
Flocky
Пользователь
 
Регистрация: 11.01.2013
Сообщений: 17
По умолчанию

А что дальше? Я все равно не понял как извлечь из 1ого файла по выборке и записать их во второй
Flocky вне форума Ответить с цитированием
Старый 12.12.2015, 21:45   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ничего. Цикл чтения из файла у тебя уже есть. Просто вставь в него этот код для начала )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с файлами: запись, добавление, чтение (найти ошибку в коде) / C для начинающих Надо создать программу для работы с файлами Konlor Общие вопросы C/C++ 2 18.05.2014 12:37
Работа с файлами.С++ spectrum988 Помощь студентам 19 30.04.2014 23:24
работа с файлами.... Nikki Nikki Помощь студентам 0 25.07.2012 13:11
работа с файлами Андрей.12 Помощь студентам 2 23.05.2010 16:50