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

Получить в файле g все четные компоненты файла f, а в файле h - все нечетные

09.04.2020, 00:36. Показов 1767. Ответов 3
Метки нет (Все метки)

Программа написана, но почему то не работает, может кто помочь?)

Задание 1. Рассмотреть пример и отладить программу на
компьютере. Проанализировать
результаты работы программы.

Дан файл f, компонентами которого являются целыми числами. Получить в файле g все четные компоненты файла f, а в файле h - все нечетные, затем открыть
файлы g и h для чтения,
прочитать их и распечатать. Чтение и распечатку файлов g и h оформить в виде
подпрограммы.

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
41
42
43
44
Program Dfile;
uses crt;
 
var f:text;
 
type fb=file of integer;       var h,g:fb; i:integer;
 
Procedure readfile(var f:fb);
var i:integer;
 
begin
 
 
end;
begin
 
reset (f); {Открытие файла для чтения }
 
while not (Eof(f)) do begin read (f,i); write (i:5); end;
close (f);
 
{Установка связи между файловыми переменными и соответствующими именами
 
файлов}
 
assign (f,'data.dat');  assign (g,'chet.dat');  assign (h,'necher.dat');
 
reset (f); rewrite (h); rewrite(g); {открытие файлов для чтения и записи}
 
while not (Eof(f)) do begin
 
read (f,i); {чтение из файла f}
 
if odd (i) then write (h,i) else write (g,i);
 
{запись в файл h или в файл g}
 
end;
 
readfile (h); writeln; readfile(g); {вызов процедуры}
 
close (f); {Закрытие файла f}
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2020, 00:36
Ответы с готовыми решениями:

Получить в файле g все четные компоненты файла f, а в файле h все нечетные
1. Дан файл f компоненты которого являются целыми числами. Получить в файле g все четные компоненты...

Получить в файле l.dat сначала все компоненты файла d.dat а следом четные компоненты файла m.dat
Добрый вечер уважаемые программисты. Не знаю как решить следующие задания. Нужно составить...

Дан файл f, компоненты которого являются действительными числами. Получить в файле g все компоненты файла f
Дан файл f, компоненты которого являются действительными числами. Получить в файле g все компоненты...

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

3
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
09.04.2020, 02:28 2
Лучший ответ Сообщение было отмечено vercamie как решение

Решение

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
program Project1;
 
uses
  CRT;
const
  filename1 = 'filef.dat';
  filename2 = 'fileg.dat';
  filename3 = 'fileh.dat';
 
type
  TfileInt = file of integer;
 
 
procedure InfoOutFile(var ff: TfileInt);
{Процедура для вывода информации из файла в консоль}
var
  a: integer;
begin
  reset(ff);
  while not eof(ff) do
    begin
      read(ff,a);
      Write(a,' ');
    end;
  Close(ff);
end;
 
 
var
  f,g,h: TfileInt;   { Файловые переменные}
  i: integer;        { Вспомогательная переменная для организации циклов}
  a: integer;        { Промежуточная переменная для переноса информации}
begin
  clrscr;
  assign(f,filename1);
  assign(g,filename2);
  assign(h,filename3);
  rewrite(f);
  for i:= 1 to random(20)+10 do
    begin
      a:= random(199)-99;
      write(f,a);
    end;
  Close(f);
  writeln('Исходный файл:');
  InfoOutFile(f);
  reset(f);
  rewrite(h);
  rewrite(g);
  while not eof(f) do
    begin
      read(f,a);
      if a mod 2 = 0 then
        write(g,a)
      else
        write(h,a);
    end;
  close(f);
  close(g);
  close(h);
  writeln;
  writeln('Файл четных чисел:');
  InfoOutFile(g);
  writeln;
  writeln('Файл нечетных чисел:');
  InfoOutFile(h);
  readln;
end.
0
0 / 0 / 0
Регистрация: 09.04.2020
Сообщений: 33
09.04.2020, 11:09  [ТС] 3
А 2 задание можешь помочь?)
Это с этой же прогой)
Задание 2. Внесите изменения в программу: в файле g записать все
числа кратные 3 и сохраните
программу с другим имением.

Добавлено через 2 минуты
ValentinNemo,
А 2 задание можешь помочь?)
Это с этой же прогой)
Задание 2. Внесите изменения в программу: в файле g записать все
числа кратные 3 и сохраните
программу с другим имением.
0
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
09.04.2020, 14:55 4
vercamie, откройте новую тему и задайте этот вопрос с гиперссылкой на эту тему.
Соблюдайте правила форума. Одно задание - одна тема. Количество заданных тем от одного вопрошающего - не ограничено.
Если возникли трудности или программа работает не так, как ожидает вопрошающий - то не молчим, а спрашиваем по теме.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2020, 14:55
Помогаю со студенческими работами здесь

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

Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и
Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла...

Получить в файле g все компоненты файла f, кратные и 3, и 5
program a; var f:integer; m:array of integer; input, output: file of integer; begin assign...

Получить в файле все компоненты другого файла
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f:...

Получить в файле g все компоненты файла f, являющиеся нечетными
Добрый день ребята можете выручить пожалуйста на ДЕЛФИ! Дан файл f, компоненты которого являются...

Получить в файле g все компоненты файла f, удовлетворяющие условиям
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f:...


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

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

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