Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Типизированные файлы

Автор: Credo 3.12.2010 19:50

Даны два файла вещественных чисел с именнами Name1 и Name2, элементы которых упорядочены по убыванию. Объединить эти файлы в новый файл с именем Name3, сохранив порядочность элементов.
Ошибок море. Файл не найден. Непонятный спецификатор. на eof(f,a) ругается что скобки нехватае... ypriamii.gif
Помогите исправьте мою ошибку

uses crt;
 const n=5;
var
 g,h,f,Name3,Name2,Name1 : file of integer;
 i,b,a : integer;
begin
 clrscr;
 assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
 rewrite(g);
 for i:=1 to n do
a[i]:=n-i;
begin
 write('a='); readln(a);
 write(g,a);
  end;
   close(g);
  reset(g); rewrite(f);
  while not eof(g) do
   begin
    read(g,a);
    write(f,a)
     end;
      close(g);
     reset(h);
     while not eof(h) do
      begin
       read(h,b);
       write(f,b);
        end;
        close(h);
        reset(f);
        while not eof(f,a) do
         begin
        read(f,a);
        write(a);
         end;
          close(f);
        end.

Автор: Client 3.12.2010 19:55

http://forum.pascal.net.ru/index.php?showtopic=21931&hl=%F1%EB%E8%FF%ED%E8%E5

Автор: Credo 3.12.2010 20:02

Спасибо, программа запускается ввожу числа... и вуаля файл не найден mad.gif ... исправьте мою ошибку пожалуста

Автор: Client 3.12.2010 20:10

может они не создаются у тебя или просто не существуют?
2 rewrite я вижу, значит 2 файла должны создаться, а что с 3 файлом?

Автор: Credo 3.12.2010 20:33

а да спасибо программа работает а почему ничего не сортирует? blink.gif ни по возрастанию ни по убыванию 


 const n=5;
var
 g,h,f,Name3,Name2,Name1 : file of integer;
 i,b,a : integer;
begin
 assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
 rewrite(g);
 for i:=1 to n do

begin
 write('a='); readln(a);
 write(g,a);
  end;
   close(g);
  reset(g); rewrite(f); rewrite(h);
  while not eof(g) do
   begin
    read(g,a);
    write(f,a)
     end;
      close(g);
     reset(h);
     while not eof(h) do
      begin
       read(h,b);
       write(f,b);
        end;
        close(h);
        reset(f);
        while not eof(f) do
         begin
        read(f,a);
        writeln(a);
         end;
         readln;
          close(f);
        end.

Автор: Client 3.12.2010 20:55

ты по ссылке ходил? процедуру видел?

Цитата
а почему ничего не сортирует?
а с чего бы ей что-то сортировать? она и не должна

Автор: Credo 3.12.2010 21:00

хД laugh.gif извините затупил, все правильно, спасибо вам. Дано я не так прочитал lol.gif