|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
26.03.2011, 19:44 | #1 (permalink) |
Member
Регистрация: 26.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Дан файл вещественных чисел. Найти количество его участков возрастания. Задачу нужно сделать через форму. Алгоритм поиска участков я сделал: Код:
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); С формами еще плохо знаком. Только начал осваивать. Раньше работал только на Паскале. Помогите пожалуйста. |
26.03.2011, 19:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Давайте ознакомимся с этими топиками, там очень много важного по вашему запросу Даны три вещественных числа... Cоздать файл целых чисел |
27.03.2011, 15:26 | #2 (permalink) | ||
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Там несложно. В разделе var объявялете эти переменные, а этот код вставляете в процедуру OnFormCreate. На форме разместите компонент Label или Edit, и вместо вашего вывода
Цитата:
Цитата:
|
||
27.03.2011, 19:29 | #3 (permalink) |
Member
Регистрация: 26.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Label - будет для вывода, этто ясн. OnFormCreate- это сама ФОРМА, как я понял? А за чем мне она нужна, я думал поиск буду вызывать через Button... И такой вопрос: как мне перевести числа из файла в массив?
|
27.03.2011, 19:56 | #4 (permalink) | |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Цитата:
Про числа из файла - читайте работу с файлами, в паскале и делфи оно реализовано одинаково. |
|
27.03.2011, 21:04 | #5 (permalink) |
Member
Регистрация: 26.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
так из файла я понял как перевести их в массив... А вот если с меня потребуют еще и вводить их в файл на форме? скажем через мемо? А вводить надо вещественные числа... Как мне это сделать? Нигде не нашел(
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
27.03.2011, 21:37 | #7 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Не понял.. То есть, может возникнуть необходимость читать числа из файла? Это вы разобрали вроде.. Так в чем проблема тогда, в файл числа записать?
|
27.03.2011, 21:41 | #8 (permalink) | ||
Member
Регистрация: 26.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нет, я имею виду если с самого начала самому вводить числа в файл. А вот потом уже переводить их в массив и искать участки...
ну вдруг преподу взбредет в голову ввести именно свои числа)
Последний раз редактировалось MrSTEP; 27.03.2011 в 21:48 |
||
27.03.2011, 21:53 | #9 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Ну тут довольно муторно будет. Проще для добавления чисел использовать один Edit, вводить по одному числу, добавлять их в массив кнопкой, и потом записать в файл.
|
27.03.2011, 22:15 | #10 (permalink) |
Member
Регистрация: 26.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Идею понял, но не получается у меня .Вы не могли бы написать мне эту часть кода пожалуйста.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|