0 / 0 / 0
Регистрация: 09.12.2014
Сообщений: 38
1

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

17.05.2015, 12:09. Показов 1613. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Постановка задачи
Необходимо переписать данные их одного файла в другой согласно конкретному варианту. Когда это необходимо, можно использовать вспомогательный файл, который удалятся после завершения работы.
Методические указания
В связи с тем, что содержимое файлов на экране автоматически не отображается, организовать считывание данных из исходного и полученного файлов и вывести их на экран для проверки
Дан файл f, компоненты которого являются натуральными числами. Получить в файле g все компоненты файла f, являющиеся четными числами.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2015, 12:09
Ответы с готовыми решениями:

Переписать числа из одного файла в другой согласно условию
За один просмотр файла, элементами которого являются целые числа, и без использования...

Переписать слова из одного файла в другой согласно условию
из одного тексового файла в другой текстовый файл переписать строки, в которых нет латинских букв....

Переписать из одного файла в другой информацию о кубиках согласно условию
Сформировать файл К, содержащий информацию о кубики: размер каждого кубика (длина ребра в см.);...

Переписать данные из одного файла в другой
Помогите пожалуйста исправить ошибки в задаче: Создать файл содержащий информацию фамилия...

2
243 / 193 / 94
Регистрация: 01.05.2015
Сообщений: 732
17.05.2015, 13:18 2
Лучший ответ Сообщение было отмечено MashaShatrova как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var f,g: textfile; i,j,n,k: integer;
begin
AssignFile(F, 'f');
AssignFile(g, 'g');
Rewrite(F); Rewrite(g);
Randomize;
n := random(100);
Memo1.Clear; j:=0;
Memo1.Lines.Add('File F -- File G');
for i:=0 to n do
 begin
  k := random(100)+1;
  Write(F,k);
  Memo1.Lines.Add(IntToStr(k));
  if k mod 2 = 0 then
   begin
    Write(G, k); Inc(j);
    Memo1.Lines.Strings[j] := Memo1.Lines.Strings[j]
                           +'   ---   '+IntToStr(k);
   end;
 end;
CloseFile(F);
CloseFile(G);
//DeleteFile('g');
0
2509 / 1130 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
17.05.2015, 14:59 3
Цитата Сообщение от MashaShatrova Посмотреть сообщение
Дан файл f, компоненты которого являются натуральными числами.
Delphi
1
var f : file of integer;

Цитата Сообщение от MashaShatrova Посмотреть сообщение
Получить в файле g все компоненты файла f, являющиеся четными числами.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var 
  f, g : file of integer;
  a : integer;
begin
  AssignFile(f, 'File1.dat');
  Reset(f);
  AssignFile(g, 'File_Result.dat');
  Rewrite(g);
  while not eof(f) do begin
    Read(f. a);
    if not odd(a) then Write(g, a);
  end;
  CloseFile(f);
  CloseFile(g);
end.
0
17.05.2015, 14:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2015, 14:59
Помогаю со студенческими работами здесь

Переписать данные из одного файла в другой
Вобщем, задачка простая до неприличия, но почему-то у меня не получается. Есть файл f с любым...

Переписать данные одного файла в другой в обратной последовательности
2. Даны два символьных файла. Переписать данные одного файла в другой в обратной...

Переписать данные заданного формата из одного файла в другой
Всем добрый день! Программа берет данные из input.txt и добавляет их в массив, затем из массива...

Написать программу формирования файла, содержащего данные согласно варианту индивидуального задания
Написать программу формирования файла, содержащего данные согласно варианту индивидуального...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru