С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Построение графиков Delphi https://www.cyberforum.ru/ delphi-beginners/ thread843365.html
Пожалуйста помогите создать проект Дельфи....Построить графики функций с обозначением осей координат Y=a/x
Составить программу пузырьковой сортировки массива целых чисел Delphi
Составить программу пузырьковой сортировки массива целых чисел
Delphi Записать фрагмент программы определения наибольшего значения в массиве А(30) Записать фрагмент программы определения наибольшего значения в массиве А(30) https://www.cyberforum.ru/ delphi-beginners/ thread843350.html Delphi постановка условия на диапазон от A до B https://www.cyberforum.ru/ delphi-beginners/ thread843345.html
Найти сумму элементов массива, принадлежащих промежутку от А до В (А и В вводятся с клавиатуры). var Form1: TForm1; implementation {$R *.dfm} function Strngrd_value_RND(Sender: TObject; n: integer): boolean;
Delphi Рандомное заполнение стрингрид
Дан массив из 10 вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти количество отрицательных чисел и величину наибольшего среди них. ( для формирования значений элементов массивов использовать датчик случайных чисел). у меня получился такой код : implementation {$R *.dfm} procedure StringGrid_Cell_RND(Sender: TObject; ColCount: integer);
Delphi Опять генератор, опять паролей Здравствуйте, написал генератор с буковками и циферками и он работает. Но только иногда вместо 8 символов он выдает меньше, и я не как не могу найти свою ошибку. Прошу взглянуть опытным глазом, предполагаю что ошибка очень очевидная и мне заранее стыдно.var Rnd1,Rnd2,i,j:Integer; Alphabet,Smbl:string; begin Alphabet:='qwertyuiopasdfghjklzxcvbnm'; Smbl:='@#$%^&*'; Edit1.Clear; ... https://www.cyberforum.ru/ delphi-beginners/ thread843308.html
Delphi подскажите как сделать несколько видов сортировок на одной кнопке https://www.cyberforum.ru/ delphi-beginners/ thread843305.html
Есть массив, состоящий из списка Авторов, нужно сделать сортировку этого массива в алфавитном порядке по убыванию и по возрастанию, и обе сортировки дожны быть на одной кнопке, т.е один раз на кнопку нажал - массив сортируется по возростанию, 2й раз нажал - массив сортируется по убыванию в алфавитном порядке, у меня получился такой код, массив сортируется два раза, а дальше ничего не происходит....
Написать программу для перевода десятичного числа в шестнадцатеричную систему исчисления, и обратно. Delphi
Написать программу для перевода десятичного числа в шестнадцатеричную систему исчисления, и обратно.Число вводится в диапазоне от 1 до 1000 Нужно именно из 10 в 16 и обратно, не во все, а только эти две
Delphi [Delphi+excel] - недостаточно памяти для завершения операции https://www.cyberforum.ru/ delphi-beginners/ thread843279.html
Доброго времени суток! Возникла следующая проблема: при импорте данных из excel в мою бд (access) возникает ошибка:"Недостаточно памяти для завершения операции". Ошибку выдает при запуске импорта на вот эту строку:Ap.Workbooks.Open(edit1.Text); Путь к файлу прописывается верно. Буду благодарен за любую помощь. procedure TForm17.BitBtn1Click(Sender: TObject); begin if...
Delphi Тест скорости Подскажите в что не так. Пишу программу для теста интернет скорости. Программа запускается и зависает. В чем может быть причина? uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls; procedure TForm1.Button1Click(Sender: TObject); https://www.cyberforum.ru/ delphi-beginners/ thread843268.html
Delphi свойство Canvas Delphi
В диалоговом окне нарисовать 6 линий разной толщины и разного цвета с помощью свойство Сanvas....пожалуйста помогите решить...
Delphi Задать русский алфавит в Delphi 2009 https://www.cyberforum.ru/ delphi-beginners/ thread843235.html
Здравствуйте. Нужно сделать программу, которая смотрит, есть ли введённом тексте (в memo1.text) русские буквы. Написал текст, но что-то не работает. Кстати если указать диапазон латинских букв ('a'..'z') - то их он видит. procedure TForm1.Button1Click(Sender: TObject); Const C = ; Var s : string; i, l : integer;
angstrom
20.04.2013, 16:10 0

не удается вывести необходимые значения массива - Delphi - Ответ 4443240

20.04.2013, 16:10. Показов 744. Ответов 5
Метки (Все метки)

Ответ

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  St : String;
...
  St := '';
  lbl1.caption := 'чисел, абсолютные значения которых меньше 1, нет';
  for i := 1 to N do
  begin
    modul := Abs(a[i]);
    if (modul < 1) and (modul > 0) then
      St := St + FloatToStr(modul) + ' '
  end;
  
  if St <> '' then
    lbl1.caption := St;


Вернуться к обсуждению:
не удается вывести необходимые значения массива Delphi
Заказать работу у эксперта
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Блог
20.04.2013, 16:10
Готовые ответы и решения:

Как вывести необходимые данные из массива объектов?
Здравствуйте! Только начал свое знакомство с ReactJS и нужно сделать сайт-тест знаний пользователя...

Windows не удается установить необходимые файлы
Доброго здравия Вам! Ситуация следующая - необходимо переустановить win7 на ПК товарища. Я...

Windows не удаётся установить необходимые файлы
Доброго времени суток! Подскажите пожалуйста поставил новый жесткий диск,пытаюсь установить...

Как для каждого значения одного массива вывести все значения второго массива?
Как для каждого значения одного массива вывести все значения второго массива? Есть два массива:...

5
20.04.2013, 16:10
BasicMan
Эксперт
19315 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
Блог
20.04.2013, 16:10
Помогаю со студенческими работами здесь

Ошибка при установке "windows не удается установить необходимые файлы 0x8007045D"
предыстория Купил комп, поставил вин7 , скачались обновления , после перезагрузки обновления не...

Ошибка Explorer.EXE: "Не удается получить доступ к объекту... Возможно, отсутствуют необходимые разрешения."
Открываю Oscar и вылазит эта оошибка

Вывести на экран элементы массива, квадраты значения которых больше значения индекса в кубе
Дело в том что надо заполнить массив 15 рандомными числами от 7 до 60, а после этого сравнить...

Удалить пары соседних элементов, имеющих одинаковые значения, и вывести размер полученного массива и значения
Задан размера массива целых чисел и значения его элементов.Удалить пары соседних элементов, имеющих...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru