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

В третий файл записать сначала четные элементы первого файла, а затем — нечетные

25.03.2016, 19:23. Показов 1443. Ответов 1
Метки нет (Все метки)

Помогите с этой задачкой,заранее спасибо.
Вообщем надо создать 2 типизированных файла из целых чисел в диапазоне [-140;140]. В третий файл записать сначала четные элементы первого файла,а затем - нечетные второго и выполнить построчный вывод файлов на экран.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.03.2016, 19:23
Ответы с готовыми решениями:

Все четные числа файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

Записать в файл Н сначала элементы файла F, а затем элементы файла G с сохранением порядка
Создать два файла F и G. Записать в файл Н сначала элементы файла F, а затем элементы файла G с...

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

Записать в файл все нечетные числа из [1; 99]. Затем вывести все элементы данного файла, начиная с 15
Записать в файл все нечетные числа из . Затем вывести все элементы данного файла, начиная с 15

1
Модератор
9478 / 4802 / 3210
Регистрация: 17.08.2012
Сообщений: 15,036
26.03.2016, 10:46 2
Лучший ответ Сообщение было отмечено Gidman как решение

Решение

Pascal
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
const fn: array [1..3] of string = ('1.dat', '2.dat', '3.dat');
var f, g: file of integer;
    i, j, n, x: integer;
begin
  randomize;
  assign(g, fn[3]);
  rewrite(g);
  for i := 1 to 2 do
    begin
      assign(f, fn[i]);
      rewrite(f);
      repeat
        write('Число компонентов ', i, ' файла? ');
        readln(n)
      until n > 0;
      writeln('Содержимое ', i, ' файла:');
      for j := 1 to n do
        begin
          x := -random(281) + 140;
          write(x:5);
          write(f, x);
          if odd(i) = not odd(x) then write(g, x)
        end;
      writeln;
      close(f)
    end;
  writeln('Содержимое 3 файла:');
  if filesize(g) = 0
    then write('<Файл пуст>')
    else begin
      reset(g);
      for i := 1 to filesize(g) do
        begin
          read(g, x);
          write(x:5)
        end
    end;
  close(g);
  readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2016, 10:46
Помогаю со студенческими работами здесь

Записать в файл все четные числа, а затем - все нечетные
1.Дано файл целых чисел f. Переписать компоненты файла f в файл g так, чтобы сначала были записаны...

Из одного массива в другой массив перенести числа: сначала нечетные, а затем четные
Из массива JJ(100) в массив NN(100) перенести числа(элементы массива): сначала нечетные, а затем...

Переписать в новый массив сначала нечетные, потом четные элементы.
помогите пожалуйста!! из массива JJ(100) в массив NN(100) перенести числа(элементы массива)...

Вывести на экран сначала четные элементы массива потом нечетные
Дан массив целых чисел. Вывести на экран сначало четные элементы массива потом не четные


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

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

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