Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

Дан файл целых чисел. Все числа, кратные трем, переписать в новый файл. Найти их среднее арифметическое.
Код:
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 в 15:48.
Flocky вне форума   Ответить с цитированием
Старый 12.12.2015, 20:49   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6850
По умолчанию

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с файлами: запись, добавление, чтение (найти ошибку в коде) / 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


14:14.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.