Технический форум
Страница 1 из 2 1 2
Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Файл вещественных чисел (http://www.tehnari.ru/f41/t49458/)

Gerald 26.03.2011 19:44
Язык: 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 27.03.2011 15:26
Там несложно. В разделе var объявялете эти переменные, а этот код вставляете в процедуру OnFormCreate. На форме разместите компонент Label или Edit, и вместо вашего вывода
Цитата:
write('Koli4estvo vozrastanii=',countV);
сделайте вывод в выбранный компонент:
Цитата:
Edit1.Text:= 'Koli4estvo vozrastanii=' + IntToStr(countV);
Процедура IntToStr преобразует целочисленную переменную в строку.

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

MrSTEP 27.03.2011 19:56
Цитата:
Сообщение от Gerald (Сообщение 493202)
OnFormCreate- это сама ФОРМА, как я понял? А за чем мне она нужна, я думал поиск буду вызывать через Button...
Это событие создания формы, то есть запуск приложения. Если хотите через кнопку, то пожалуйста, можно так.
Про числа из файла - читайте работу с файлами, в паскале и делфи оно реализовано одинаково.

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

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

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

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

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

Предупреждение:
Не стоит так часто писать сообщения. Модератор.

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

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


Часовой пояс GMT +4, время: 03:26.
Страница 1 из 2 1 2
Показывать 40 сообщений этой темы на одной странице

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.