|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
||||
|
||||
Цитата:
Пишет в файл Нан?) Значит не правильно сохраняешь... Последний раз редактировалось Konrad, 26.12.2010 в 22:38. |
#32
|
|||
|
|||
то что надо не пишет, пишет все 35 , вы смотрели код? правильно ли там все, я там от себя ничего не добавлял
|
#33
|
|||
|
|||
а как правильно?
|
#34
|
||||
|
||||
Цитата:
Далее не правильно задан размер массива. - следствие массив выводится не правильно. Пересмотри еще раз. |
#35
|
|||
|
|||
ладно, скажите пожалуйста как правильно записать сохранение масива с отобраными числами?
|
#36
|
||||
|
||||
Цитата:
Ты не знаешь как сохранить массив в файл? Я тебе уже даже код показал, который это делает. Но ты даже не можешь его переделать под другой массив? |
#37
|
|||
|
|||
я то знаю, но почему то оно не работает
|
#38
|
||||
|
||||
Цитата:
Ты написал: PHP код:
Ну и?) Последний раз редактировалось Konrad, 26.12.2010 в 23:01. |
#39
|
||||
|
||||
Такой сложный вопрос?
Тут уже логикой можно: Была задача, найти 4-ре значения. Я тебе привел код, который находит те значения, только нужно организовать сохранение в файл. Так сколько значений мы должны сохранить? У Пети было 4 ре яблока. Он отдал их Свете. Света отдала яблоки Лене. Так сколько яблок получила Лена? Последний раз редактировалось Konrad, 26.12.2010 в 23:26. |
#40
|
|||
|
|||
четыре? я так думаю
|
#41
|
||||
|
||||
PHP код:
От скольки до скольки цикл? |
#42
|
|||
|
|||
Код:
for i := 1 to 4 do Writeln(DataFile,max[i]); |
#43
|
|||
|
|||
в in.txt сохраняет правильно
|
#44
|
||||
|
||||
Цитата:
|
#45
|
||||
|
||||
Прошу прощения, но хочу немного поправить.
В данном случае в файл выводятся наибольшие по порядку убывания. Для вывода по порядку расположения предлагаю так Код:
MemoOut.Lines.Add('-----------------------'); for j := 0 to In_N - 1 do for i := 1 to 4 do if maxn[i] = j then begin Writeln(DataFile, max[i]); MemoOut.Lines.Add(Format('%8.3f - %d', [max[i], maxn[i]])); end; |