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

Записать в третий файл только те пары чисел, в которых число из первого файла меньше числа из второго

15.12.2010, 12:40. Показов 1109. Ответов 1
Метки нет (Все метки)

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

Записать в третий файл только те пары чисел, в которых число из первого файла меньше числа из второго
Помогите пожалуйста написать программу. Вот задание-Дано два файла, содержащих одинаковое...

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

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

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

1
13067 / 5853 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
16.12.2010, 13:19 2
Лучший ответ Сообщение было отмечено ksuha90 как решение

Решение

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn1 = 'file1.txt';
  Fn2 = 'file2.txt';
  Fn3 = 'file3.txt';
  M = 20;
var
  F1, F2, F3 : TextFile;
  i, Num1, Num2 : Integer;
begin
  AssignFile(F1, Fn1);
  Rewrite(F1);
  AssignFile(F2, Fn2);
  Rewrite(F2);
 
  //Записываем случайные числа в первый и второй файлы.
  Randomize;
  for i := 1 to M do begin
    Num1 := Random(10); //0..9.
    Writeln(F1, Num1);
    Num1 := Random(10);
    Writeln(F2, Num1);
  end;
  //Записываем файловый буфер на диск.
  Flush(F1);
  Flush(F2);
 
  AssignFile(F3, Fn3);
  Rewrite(F3);
  Reset(F1);
  Reset(F2);
 
  //Формируем содержимое третьего файла, согласно заданию.
  while not Eof(F1) do begin
    Readln(F1, Num1);
    Readln(F2, Num2);
    if Num1 < Num2 then
      Writeln(F3, Num1, ', ', Num2);
  end;
 
  //Закрываем файлы.
  CloseFile(F1);
  CloseFile(F2);
  CloseFile(F3);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2010, 13:19

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

Даны 2 файла чисел. Записать в третий файл такие элементы первого файла, которых нет во втором.
Даны 2 файла чисел. Записать в третий файл такие элементы первого файла, которых нет во втором.

Сформировать два текстовых файла из целых чисел. Записать в третий файл минимальный элемент первого файла и максимальный элемент второго файла
Тема: работа с текстовыми файлами с использованием стандартных функций библиотеки stdio.h Нужно...

Сформировать два файла из некоторых чисел. Записать в третий файл положительные элементы второго файла и отрицательные элементы первого
Сформировать два файла из некоторых чисел. Записать в третий файл положительные элементы второго...

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


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

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

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