VPF::[Delphi] работа с файлами - Форум программистов

katerinchic

Дата 2.6.2008, 02:10 (ссылка)

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

Загрузка ...

Новичок

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

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

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

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

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

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

Буду оч. признательна =))

Это сообщение отредактировал(а) katerinchic - 2.6.2008, 02:13

Присоединённый файл ( Кол-во скачиваний: 5 )

programma_.rar 178,58 Kb

Wedafl

Дата 2.6.2008, 13:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Я бы предложил использовать типизированный файл вместо текстового, тогда код будет проще:

Код


procedure TForm1.N1Click(Sender: TObject);
var
  F: file of Real;
  I: Integer;
  X: array of Real;
begin
  if not od1.Execute then
    Exit;
  AssignFile(F, od1.FileName);
  Reset(F);
  SetLength(X, FileSize(F));
  for I := 0 to Length(X) - 1 do
  begin
    Read(F, X[I]);
    Memo1.Lines.Add(FloatToStr(X[I]));
  end;
  CloseFile(F);
end;

Если же использовать текстовый файл, то сначала придется подсчитать количество строк в файле. Считаем что в одной строке одно число:

Код


procedure TForm1.N1Click(Sender: TObject);
var
  F: TextFile;
  I: Integer;
  X: array of Real;
begin
  if not od1.Execute then
    Exit;
  AssignFile(F, od1.FileName);
  Reset(F);
  I := 0;
  while not Eof(F) do
  begin
    Readln(F);
    Inc(I);
  end;
  SetLength(X, I);
  CloseFile(F);
  Reset(F);
  for I := 0 to Length(X) - 1 do
  begin
    Readln(F, X[I]);
    Memo1.Lines.Add(FloatToStr(X[I]));
  end;
  CloseFile(F);
end;

katerinchic

Дата 2.6.2008, 18:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Wedafl, большое спасибо! =) теперь функция ввода из файла работает)) насчёт типизированного файла: специально использовала текстовый,т.к. не знаю через какую программу создавать типизированный файл - file of Real.... не подскажешь через какую?)

Letov

Дата 2.6.2008, 18:30 (ссылка)

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

Загрузка ...

Опытный

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

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

Напиши программу на Delphi которая будет записывать значения в File of Real.

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

Не бывает плохих языков программирования. Бывают плохие программисты...

katerinchic

Дата 3.6.2008, 13:37 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Код


procedure TForm1.N3Click(Sender: TObject);
var
NameFile:String[20];
F:TextFile;
a:array [0..20] of integer;
b:array [0..20] of integer;
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;

Это сообщение отредактировал(а) katerinchic - 3.6.2008, 13:52

katerinchic

Дата 3.6.2008, 16:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Всё,я со всем разобралась сама)) smile

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