Файл вещественных чисел

[Gerald]

Язык: Delphi.
Дан файл вещественных чисел.
Найти количество его участков возрастания.
Задачу нужно сделать через форму.
Алгоритм поиска участков я сделал:

var
  i,k,countV:integer;
  a:array of real;
...
for i := 1 to length(a) do
   begin
     if a[i+1]>a[i] then k:=1;
     if ((a[i+1]<=a[i]) or (i=length(a))) and (k=1) then
     begin
       inc(countV);
       k:=0;
     end;
   end;
   write('Koli4estvo vozrastanii=',countV);

Но это при том условии если можно будет перенести все числа в массив. Так что чувствую это не прокатит.
С формами еще плохо знаком. Только начал осваивать. Раньше работал только на Паскале.
Помогите пожалуйста. :tehnari_ru_837:

 

[MrSTEP]

Там несложно. В разделе var объявялете эти переменные, а этот код вставляете в процедуру OnFormCreate. На форме разместите компонент Label или Edit, и вместо вашего вывода

write('Koli4estvo vozrastanii=',countV);

сделайте вывод в выбранный компонент:

Edit1.Text:= 'Koli4estvo vozrastanii=' + IntToStr(countV);

Процедура IntToStr преобразует целочисленную переменную в строку.

 

[Gerald]

Label - будет для вывода, этто ясн. OnFormCreate- это сама ФОРМА, как я понял? А за чем мне она нужна, я думал поиск буду вызывать через Button... И такой вопрос: как мне перевести числа из файла в массив?

 

[MrSTEP]

OnFormCreate- это сама ФОРМА, как я понял? А за чем мне она нужна, я думал поиск буду вызывать через Button...

Это событие создания формы, то есть запуск приложения. Если хотите через кнопку, то пожалуйста, можно так.
Про числа из файла - читайте работу с файлами, в паскале и делфи оно реализовано одинаково.

 

[Gerald]

так из файла я понял как перевести их в массив... А вот если с меня потребуют еще и вводить их в файл на форме? скажем через мемо? А вводить надо вещественные числа... Как мне это сделать? Нигде не нашел(

 

[Gerald]

я пробовал использовать Memo1.Lines.SaveToFile(fname); но оно записывает не как вещественный тип.

 

[MrSTEP]

Не понял.. То есть, может возникнуть необходимость читать числа из файла? Это вы разобрали вроде.. Так в чем проблема тогда, в файл числа записать?

 

[Gerald]

Нет, я имею виду если с самого начала самому вводить числа в файл. А вот потом уже переводить их в массив и искать участки...

ну вдруг преподу взбредет в голову ввести именно свои числа)

[MOD]Не стоит так часто писать сообщения. Модератор.[/MOD]

 

[MrSTEP]

Ну тут довольно муторно будет. Проще для добавления чисел использовать один Edit, вводить по одному числу, добавлять их в массив кнопкой, и потом записать в файл.

 

[Gerald]

Идею понял, но не получается у меня :tehnari_ru_325: .Вы не могли бы написать мне эту часть кода пожалуйста.

 

[Gerald]

Сам разобрался, правда через Memo :

fName:=Edit1.Text;
  AssignFile(f,fName);
  Rewrite(f);
  SetLength(a,Memo1.Lines.Count);
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    s:=Memo1.Lines[i];
    k:=StrToFloat(s);
    a[i+1]:=k;
  end;
  for i := 1 to Memo1.Lines.Count do
  begin
    write(f,a[i]);
  end;

  closefile(f);

 

[MrSTEP]

Ну и хорошо