Типизированые файлы.

[Skazz]

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

Program lab8;
Procedure CreateFile;
var
f1:file of integer;
i,n:integer;
A:array[1..100] of integer;

Begin

    Assign(f1, 'D:\numbers.txt'); 
    Rewrite(f1);  
   begin
        write(f1,A[i]); 
    end;
    close(f1); 
end;

Procedure Sort;
 var A:array[1..100] of integer;
 n,i,m,k,x : integer;

begin
 write('Количество елементов массива: ');
 read(N);
 for i:=1 to n do read(A[i]);
 for k:=n downto 2 do 
   begin
    m:=1; 
    for i:=2 to k do if A[i]>A[m] then m:=i;
    x:=A[m]; A[m]:=A[k]; A[k]:=x;
   end;
 writeln('Отсортированные числа:');
 for i:=1 to n do write(A[i],' '); 
 readln;
 readln;
end;
Begin
Sort;
CreateFile;
end.

Вобщем прога написана неправельно... но по другому я не умею... задание звучит вот так:
Создать фаел целых чисел, отсортировать их по возростанию. Переписать в новый файл квадраты етих чисел.
Зарание спасибо за помощь.

[Don Karleone]

не знаю на счет процедуры сортировки, но процедура записи массива в файл должна выглядеть примерно так:

var
  A: array [1..100] of integer;

...

Procedure CreateFile;
var
f1:file of integer;
i:integer;
Begin
    Assign(f1, 'D:\numbers.txt'); 
    Rewrite(f1);  
    for i:=1 to 100 do
      write(f1,A[i]); 
    close(f1); 
end;

[Serge_Bliznykov]

for i:=1 to 100 do

не, не правильно.
должно быть:

for i:=1 to n do...

Procedure CreateFile;
var
f1:file of integer;
i,n:integer;
A:array[1..100] of integer;

Begin

....


Procedure Sort;
 var A:array[1..100] of integer;
 n, i,m,k,x : integer;
begin
 write('Количество елементов массива: ');
 read(N);

выделенное красным УДАЛИТЬ напрочь!

и добавить глобальное определение массива A и N

И учить, что такое локальные переменные и глобальные переменные! и чем они отличаются!

по хорошему, конечно, в процедуры Sort и CreateFile (кстати, название не очень хорошее...) нужно передавать массив и размер массива в качестве параметров.
Но, для простоты, можно и глобальные использовать (правда, это не очень приветствуется).


вот решение с использованием глобальных переменных:

program lab8;

var
  A : array[1..100] of integer;
  n : integer;


procedure InputData;
var  i  : integer;
begin
  repeat
    write('Количество элементов массива: ');
    read(N);
    if (N<1) or (N>100) then 
       WriteLn('Недопустимое число, должно быть от 1 до 100.');
  until (N>=1) and (N<=100);
  for i := 1 to n do begin
     Write('Введите A[',i,']');
     readln(A[i]);
  end;
end;

procedure Sort;
var  i, m, k, x: integer;
begin
  for k := n downto 2 do
  begin
    m := 1;
    for i := 2 to k do if A[i] > A[m] then m := i;
    x := A[m]; A[m] := A[k]; A[k] := x;
  end;
  writeln('Отсортированные числа:');
  for i := 1 to n do write(A[i], ' ');
  readln;
end;

procedure CreateIntegerFile;
var
  f1 : file of integer;
  i  : integer;
begin
  Assign(f1, 'D:\numbers.txt'); 
  Rewrite(f1);  
  for i:=1 to n do
      write(f1,A[i]); 
  close(f1); 
end;


begin
  InputData;
  Sort;
  CreateIntegerFile;
end.

[Skazz]

Спасиба большое. А можно зделать так чтоб программа сначалла создавала фаел с неотсортироваными числами, а потом считывала ети числа и отсортированными переносила в другой фаел?