Delphi Работа с файлами. Помогите пожалуйста отредактировать программу))

[katia230990]

Составила программу для решения этой задачи:

Дан массив X, содержащий вещественные числа. Найти и записать на место X(1) — наибольший элемент массива X, а на место X(N) — наименьший элемент массива (X1,X2,...,XN). Ввод исходного массива X осуществить из файла на диске. Вывод обеспечить в трех вариантах:1)на экран; 2)на печатающее устройство; 3)в файл на диске.

Только вот почему-то не работает функция ввода данных из файла,и замены элементов массива и вывода результата на экран... Функцию замены элементов я просто не дописала,а всё остальное вроде должно было работать... Помогите пожалуйста отредактировать))
Буду оч. признательна =))

[Stilet]

Катя:
1. Ввод данных из файла падает поскольку ты задала NameFile:String[20]; Всего то 20 символов для имени файла? Зачем?
И какого ты закрываешь файл прям в цикле? делай так:

procedure TForm1.N1Click(Sender: TObject);
var
F:TextFile;
NameFile:String[20];
i:integer;
x:array[1..20] of real;
begin
if not od1. Execute then Exit;
NameFile:=od1.FileName;
AssignFile(F,od1.FileName);
Reset(F);
i:=0;
While not Eof(F) do
begin
Read(F,x[i]);
Memo1.Lines.Add(FloatToStr(x[i]));
end;
CloseFile(F);
end;

А еще лучше так:

procedure TForm1.N1Click(Sender: TObject);

begin
if od1. Execute then Memo1.Lines.LoadFromFile(od1.FileName);
end;

Далее по программе я не обьясняю потому как понять твои мысли не могу.

[katia230990]

Спасибо большое =)

[katia230990]

Осталась одна проблема - замена элементов массива и вывода результата на экран... В результате всех действий программа выдаёт "0" :

procedure TForm1.N3Click(Sender: TObject);
var
NameFile:String[20];
F:TextFile;
a:array [0..20] of real;
b:array [0..20] of real;
i,nmax,nmin:byte; n,max,min:integer;
begin
N3.Checked:=True;
n:=Memo1.Lines.Count; // количество чисел,считанных из файла
for i:=1 to n do
a[i]:=Memo1.Lines[i];
max:=a[0]; nmax:=0; // максимальный элементь и его номер
min:=a[0]; nmin:=0;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i
end;
end;
nmax:=min;
nmin:=max;
for i:=0 to n-1
Memo2.Lines.Add(FloatToStr(b[i+1]));
end;

[alexBlack]

Сообщение от katia230990

Осталась одна проблема - замена элементов массива и вывода результата на экран... В результате всех действий программа выдаёт "0" :

for i:=0 to n-1
Memo2.Lines.Add(FloatToStr(b[i+1]));

А где заполняется массив b ?

[katia230990]

Да я уже переписала по-другому))) :

procedure TForm1.N3Click(Sender: TObject);
var
MaxN, MinN, MaxI, MinI, i, n : Integer;
A:array[1..20] of Real;  
begin
N3.Checked:=True;
n := Memo1.Lines.Count;
for i:=0 to n - 1 do A[i+1] := StrToFloat(Memo1.Lines[i]); 
MaxN := a[1]; MaxI := 0;
MinN  := a[1]; MinI  := 0;
for i:=2 to n do begin
if a[i] > max then begin
MaxN := a[i];
MaxI := i;
end;
if a[i] < min then begin
MinN := a[i];
MinI := i;
end;
end;
a[1] := MaxN;
a[n] := MinN;
Memo2.Lines.Clear;
for i:=1 to n do Memo2.Lines.Add(FloatToStr(a[i])); 
end;

И возникла другая проблема: во время компиляции, компилятор выводит сообщение об ошибке:
Incompatible types Integer and Real. Я так понимаю, что при выполнении проверки тип выражения не соответствует типу переменной,и надо выбрать другой тип переменной...но чтот я не могу домуматься,какой именно))

[alexBlack]

Внимательнее с объявлением и использованием переменых

var MaxN, MinN : real;
    i, n : Integer;
    A:array[1..20] of Real;
begin
   n := Memo1.Lines.Count;
   for i:=0 to n - 1 do A[i+1] := StrToFloat(Memo1.Lines[i]);

   MaxN := a[1]; //MaxI := 1;
   MinN := a[1]; //MinI := 1;
   for i:=2 to n do begin
      if a[i] > maxN then begin
         MaxN := a[i];
         //MaxI := i;
      end;
      if a[i] < minN then begin
         MinN := a[i];
         //MinI := i;
      end;
   end;
   a[1] := MaxN;
   a[n] := MinN;
   Memo2.Lines.Clear;
   for i:=1 to n do Memo2.Lines.Add(FloatToStr(a[i]));

[Stilet]

MaxN := a[1];

Ну дык сделай MaxN и прочие контактирующие с массивом переменки такого же типа как и массив

[katia230990]

Всё,со всем разобралась)) спасибо=) теперь всё работает

Последний вопрос:
вот исходный массив:

4
-7
8
2
5

а вот преобразованный программой:

8
-7
8
2
-7

Я правильно поняла условие задачи - нужно просто заменить первый элемент наибольшим, а последний наименьшим? или поменять местами первый с наибольшим,а последний с наименьшим?))

[Stilet]

Да, все правильно поняла.