типизированные файлы!!!!!!!

[--Sashok--]

Создайте файл целых чисел (количество елементов файла и сами елементы вводятся с клавиатуры).Переписать его содержимое у файл g в обратном порядке.

  program example;
      var 
       f,g:text;
        m:array[1..100] of string;
       k,i:integer; 
    begin 
       assign(f,'input.dat'); 
        reset(f); 
         k:=0; 
          while not eof(f) do 
    begin readln(f,st);
      k:=k+1;
       st1:=''; 
         for i:= 1 to length(st) do st1:= st[i]+st1;
          m[k]:=st1; 
end;
       assign(g,'output.dat'); 
        rewrite(g);
       for i:= 1 to k do writeln(g,m[i]); 
end.

[--Sashok--]

heeeeeeeeeeeeeeeeeeeeeeelp

[Mad_Cat]

program example;
      var
       f,g:file of integer;
        m:array[1..100] of integer;
       k,i:integer;
    begin
       assign(f,'input.dat');
        reset(f);
         k:=0;
         while not eof(f) do
    begin k:=k+1;
    read(f,m[k]);
    end;
       assign(g,'output.dat');
        rewrite(g);
       for i:= k downto 1 do write(g,m[i]);
       close(f);close(g);
end.

Надо на дельфи заделать =( сможешь?

Можно и на Delphi

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
       f,g:file of integer;
        m:array[1..100] of integer;
       k,i:integer;
    begin
       assign(f,'input.dat');
        reset(f);
         k:=0;
         while not eof(f) do
    begin k:=k+1;
    read(f,m[k]);
    end;
       assign(g,'output.dat');
        rewrite(g);
       for i:= k downto 1 do write(g,m[i]);
       close(f);close(g);
end.

[--Sashok--]

Mad_Cat, на первом же енде ошибка =(

[ByAlex]

Сообщение от --Sashok--

Mad_Cat, на первом же енде ошибка =(

У меня все нормально! Что то у вас.

[--Sashok--]

у меня дельфи)

[--Sashok--]

Надо на дельфи заделать =( сможешь?

[ByAlex]

Сообщение от --Sashok--

Надо на дельфи заделать =( сможешь?

Дак у меня тоже Delphi!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  f,g:file of integer;
  m:array[1..100] of integer;
  k,i:integer;
begin
  assign(f,'input.dat');
  reset(f);
  k:=0;
  while not eof(f) do
  begin
    k:=k+1;
    read(f,m[k]);
  end;
  assign(g,'output.dat');
  rewrite(g);
  for i:= k downto 1 do
    write(g,m[i]);
  close(f);
  close(g);
end.

[Hacker19_90]

Надо на дельфи заделать =( сможешь?

А вы видите разницу?
Единственное что
это Assign замените на AssignFile

[Mad_Cat]

это Assign замените на AssignFile

А разница?
тогда уж и

close(f);

на

closeFile(f);

Хотя и так все будет работать)