VPF::[Pascal] Файловая система - Форум программистов

ruman

Дата 22.11.2006, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.11.2006

Репутация: нет
Всего: нет

Задание: Даны два файла F и G, содержащие целые числа. Переписать в файл H все числа входящие в F и не входящие в G.

я вот что-то сделал !!! вот посмотрите ,но там короче ввод F и G должен происходить с клавиатуры!!!

Код

type
  int_file = file of integer;

const
  size = 10;
  arr_1: array[1 .. 10] of integer =
    (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
  arr_2: array[1 .. 10] of integer =
    (1, 3, 7, 9, 0, 0, 0, 0, 0, 0);

var
  f, g, h: int_file;
  i, j: integer;
  found: boolean;

begin
  { создаем файлы и пишем в них тестовые последовательности }
  assign(f, 'f_1.dat'); rewrite(f);
  for i := 1 to 10 do write(f, arr_1[i]);

  assign(g, 'f_2.dat'); rewrite(g);
  for i := 1 to 10 do write(g, arr_2[i]);

  { собственно, это - решение задачи }
  assign(h, 'f_3.dat'); rewrite(h);
  reset(f);
  while not eof(f) do begin

    read(f, i);

    reset(g);
    found := false;
    while (not eof(g)) and (not found) do begin
      read(g, j);
      found := (i = j);
    end;

    if not found then write(h, i);

  end;
  close(f);
  close(g);

  { проверяем содержимое H (чтобы ни у кого не было сомнения, что программа работает) }
  reset(h);
  while not eof(h) do begin
    read(h, i);
    writeln(i);
  end;
  close(h);
end.

Модератор: используйте кнопку "Код" для подсветки кода!

Это сообщение отредактировал(а) Exception - 22.11.2006, 19:47

mr.Anderson

Дата 22.11.2006, 20:49 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Если проблема только в том, чтобы ввод был с клавы, то в чем проблема?

Код


type
  int_file = file of integer;
const
  size = 10;
  arr_1: array[1 .. 10] of integer =
    (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
  arr_2: array[1 .. 10] of integer =
    (1, 3, 7, 9, 0, 0, 0, 0, 0, 0);
var
  f, g, h: int_file;
  i, j: integer;
  found: boolean;
  fname, gname: String;
begin
  { создаем файлы и пишем в них тестовые последовательности }
  Write( 'Enter filename: ' ); ReadLn( fname );
  assign(f, fname); rewrite(f);
  for i := 1 to 10 do write(f, arr_1[i]);
  Write( 'Enter filename2: ' ); ReadLn( gname );
  assign(g, gname); rewrite(g);
  for i := 1 to 10 do write(g, arr_2[i]);
  { собственно, это - решение задачи }
  assign(h, 'f_3.dat'); rewrite(h);
  reset(f);
  while not eof(f) do begin
    read(f, i);
    reset(g);
    found := false;
    while (not eof(g)) and (not found) do begin
      read(g, j);
      found := (i = j);
    end;
    if not found then write(h, i);
  end;
  close(f);
  close(g);
  { проверяем содержимое H (чтобы ни у кого не было сомнения, что программа работает) }
  reset(h);
  while not eof(h) do begin
    read(h, i);
    writeln(i);
  end;
  close(h);
end.

--------------------

volvo877

Дата 22.11.2006, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(ruman @ 22.11.2006, 18:20

)

я вот что-то сделал

Это не называется ТЫ сделал, уважаемый... Ты это скопировал, причем отсюда же, с этого же форума... И незачем дублировать тему, надо было прямо там продолжать: http://forum.vingrad.ru/index.php?showtopi...st&p=925071

А по теме - как задание написано (у тебя ДАНЫ 2 файла, а не СОЗДАТЬ 2 файла), так и сделано... Задавай корректно вопросы, будешь получать нужные тебе ответы.

ruman

Дата 22.11.2006, 21:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.11.2006

Репутация: нет
Всего: нет

volvo877 Приношу свой извинения !!! Но я ссылку на тема не помнил и ник твой не знал так что что мне надо было написать?!

Да написаны ДАНЫ !!!! но мне надо сделать так что бы вводить F и G с клавиатуры !!!!

blackandwhite

Дата 27.11.2006, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 15.11.2006

Репутация: нет
Всего: нет

Мне кажеться проблема в том что не надо и не нужно использовать дополнительные массивы!!! точнее по заданию нельзя использовать массивы вообще !!! а как реализовать я не погу точно тебе сказать !!! если кто знает помогаите !!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »