|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.12.2013, 00:41 | #1 |
Регистрация: 15.11.2011
Сообщений: 9
|
Дан массив. Вывести вначале все четные числа в порядке возрастания их индексов, затем - все нечетные в порядке убывания.( Delphi )
Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем — все нечетные числа в порядке убывания их индексов.
код есть: Код:
но мне надо чтоб программа была с интерфейсом. чтобы результаты выводились в Memo или listbox... только delphi ___________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (кнопочка на панели форматирования с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 06.12.2013 в 10:39. |
06.12.2013, 00:55 | #2 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Используйте Memo например.
Вместо write(a[и]) вот это Код:
Вместо writeln('что-то') вот это Код:
|
06.12.2013, 02:05 | #3 | |
Регистрация: 15.11.2011
Сообщений: 9
|
Цитата:
|
|
06.12.2013, 02:09 | #4 |
Регистрация: 15.11.2011
Сообщений: 9
|
меня тревожит вот это write(a[i]:4); оно ж показывает, что для вывода значения a[i] используется 4 позиций. как это в мемо написать "(a[i]:4)"?
|
06.12.2013, 02:23 | #5 | |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Код:
Цитата:
А может словчить, и сделать так ? Код:
А про readln(n); все ясно, чем заменить? Лучше поле Edit использовать. Код:
Последний раз редактировалось type_Oleg; 06.12.2013 в 02:26. |
|
07.12.2013, 00:50 | #6 |
Регистрация: 15.11.2011
Сообщений: 9
|
только результаты в консоле и результаты в форме не совпадают. вот скрин в консоле
|
07.12.2013, 00:58 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
с чем не совпадают?!
Где программа для работы с формами?! |
07.12.2013, 01:01 | #8 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
А с чем должно совпадать? Там же Random, главное, чтобы правильно сортировало.
|
07.12.2013, 02:20 | #9 |
Регистрация: 15.11.2011
Сообщений: 9
|
забыл в memo написать inttostr тоесть Memo1.Lines.Add(IntToStr(a[i]);
исправил теперь все нормально работает. спс) |
07.12.2013, 06:54 | #10 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В массиве поставить вначале все четные, а затем все нечетные цифры в массиве (Написать программу в коде делфи) | Murfik97 | Помощь студентам | 4 | 26.11.2013 21:26 |
Упорядочить массив так, чтобы вначале размещались четные цифры в порядке возрастания, а затем нечетные - в порядке убывания | Маруся171996 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 22.11.2013 17:42 |
С++ Найти все четные четырехзначные числа, цифры которых следуют в порядке возрастания или убывания. | Anya She | Помощь студентам | 14 | 14.12.2012 16:12 |
Вывести сначала все его четные (нечетные) елементы, а потом- нечетные(четные). | tondo | Помощь студентам | 4 | 25.04.2012 00:17 |
Вывести в порядке возрастания кодов все буквы латинского алфавита. | Zzoyberg | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 07.12.2011 16:10 |