Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Заданы координаты двух вершин квадрата. Определить координаты двух других вершин и его площадь Доброго времени суток) Прошу помочь с заданием не показывает четвертую точку в квадрате и еще надо что бы считало площадь этого квадрата (наверно по пикселям,но я не уверен) и выводил в едит. Вот условие задания "Заданы координаты двух вершин квадрата. Определить координаты двух других вершин и его площадь". Программу я прикрепил. Заранее спасибо:) https://www.cyberforum.ru/ delphi-beginners/ thread1467980.html Создание вкладки PageControl с содержимым предыдущей Delphi
нужно сделать так, чтобы при создании новой вкладки pagecontrol (создается при нажатии на кнопку), все содержимое предыдущей вкладки (у меня это stringgrid) переносилось на созданную, но с обнуленными значениями. в смысле, чтобы на новой вкладке все было, как и на предыдущей, но функционировало независимо от предыдущих.
Delphi Составить функцию проверяющую симметричность числа в ячейках StringGrid https://www.cyberforum.ru/ delphi-beginners/ thread1467969.html
Помогите написать практику в Delphi! Задание: Пусть дана прямоугольная матрица А(N x M),элементами которой являются вещественные числа. Определите для каждой строки, все ли ее элементы являются симметричными. Составьте функцию, проверяющую симметричность числа. (то есть надо сравнить правую и левую часть каждого числа в ячейке ПОСИВМОЛЬНО) На форме: 2 таблицы(отображаются вводимые значения во... 		Delphi Строки. Очереди. Проверка на пробел https://www.cyberforum.ru/ delphi-beginners/ thread1467927.html
Добрый вечер, нужно сделать, чтобы в edit можно было вводить только двузначные числа, при этом через пробел. Есть идея считывать первые 3 символа, отнимать 1, как пробел и увеличивать счетчик, но в коде реализовать пока не могу,помогите пожалуйста, вот программа unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,...
Число сочетаний Delphi
Запрограммируйте формулу вычисляющую число сочетаний из n элементов множества по k т.е. 		Delphi Трудности с пониманием алгоритма фибоначчиева поиска https://www.cyberforum.ru/ delphi-beginners/ thread1467849.html
Не понимаю, что означает "Обмен (P,H) с (H,P-H)". Какие действия нужно выполнить?
Delphi Блок схема Видел люди скидывали блок схемы по коду програмы, не мог бы какойто хороший человек сделать? А то походу нормальная прога токо diamfc а она платная нигде кряк не найти. или если можна то ссылку на хорошую крякнутую прогу вот код unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CPort, StdCtrls, ExtCtrls; type https://www.cyberforum.ru/ delphi-beginners/ thread1467822.html Поиск и сортировка Delphi Delphi
Хееелп ми, плиз :D Таблица футбольного чемпионата задана квадратной матрицей, в которой все элементы, принадлежащие главной диагонали, равны нулю, а другие элементы равны 3, 1 или 0 (3-выигрыш, 1-ничья, 0 - проигрыш). Известны 20 команд участниц чемпионата. Получить последовательность названий команд в соответствии с занятыми ими местами.
Delphi Работа с массивом в Delphi https://www.cyberforum.ru/ delphi-beginners/ thread1467755.html
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Удалить из него все четные элементы, у которых последняя цифра 2. Вопрос: какой воспользоваться функцией, чтобы определить у элемента массива последняя цифра 2 или нет? 		Delphi Создания интеллектуальной обучающей системы по математическому моделированию https://www.cyberforum.ru/ delphi-beginners/ thread1467743.html
Помогите кто чем может,срочно нужно написать эту прогу по мат. моделированию в delphi.Сам пытался,ничего путного не вышло.Заранее спасибо
Delphi Посчитать итоги в crystal reports
Добрый день! Как посчитать итого в crystal reports по столбцу, если значение в этом столбце вычисляется по формуле. Не могу найти. 		Delphi Отправка письма на электронную почту Здравствуйте. Помогите пожалуйста сделать отправку на электронную почту логина и пароля. Суть вот в чем: Когда пользователь регистрируется в системе, то он вводит е-майл и пароль после чего нажимает на кнопку регистрировать и должно появиться сообщение что письмо отправлено. и соответственно на почту должно придти письмо. Но когда я ввожу какой-нибудь е-май адрес, он мне пишет что не существует... https://www.cyberforum.ru/ delphi-beginners/ thread1467728.html
0 / 0 / 0
Регистрация: 20.05.2014
Сообщений: 10
04.06.2015, 15:40  [ТС] 0

Случайное число из заданного массива - Delphi - Ответ 7717747

04.06.2015, 15:40. Показов 2612. Ответов 15
Метки (Все метки)

Ответ

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

var
  Form1: TForm1;
  step: integer;
  sum_heat, sum_HW: Double;
  tp, Xp, td, ti, imp_heat, D_heat, imp_HW, D_HW: Double;
  good: array[-10..10] of integer;
  good_heat: array [35..55] of integer;
  good_back: array [52..58] of integer;
  good_HW: array [52..58] of integer;
begin
  Randomize;
  i:= -10+random(21);
  i_heat:= 35+random(21);
  i_back:= 53+random(5);
  i_HW:= 53+random(5);
  DBEdit4.Text:= IntToStr(good[i]);
  DBEdit5.Text:= IntToStr(good_heat[i_heat]);
  DBEdit6.Text:= IntToStr(good_back[i_back]);
  DBEdit7.Text:= IntToStr(good_HW[i_HW]);
Вот, и в итоге выводятся одни нули

Вернуться к обсуждению:
Случайное число из заданного массива Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 04.06.2015, 15:40
Готовые ответы и решения:

Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива
1. Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного...

Найти сумму и число определенных элементов заданного массива
Найти сумму и число тех элементов заданного массива X1, X2, …, Xn, каждый из которых, во- первых,...

Случайное число с вероятностью
Здравствуйте! Нужна доработать функцию: function TapeFishKlyet(Mass:array of Byte):Integer; var...

Случайное число от 0 до $FFFFFFFFFFFFFFFF
Есть ли простой способ получить случайное число от 0 до $FFFFFFFFFFFFFFFF ? Просто на такую запись:...

15
04.06.2015, 15:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 04.06.2015, 15:40
Помогаю со студенческими работами здесь

Случайное число в диапазоне
Здравствуйте! Есть Edit, в который вводится число х. Нужно сгенерировать случайное число,...

Для заданного массива подсчитать число элементов с начала и до первого отрицательного
Помогите, пожалуйста. Как сделать счетчик на подсчет элементов с начала и доп первого...

Сгенерировать 1 случайное число в диапазоне от 1 до 20
Всем привет! Подскажите как можно сгенерировать 1 случайное число в диапазоне от 1 до 20. ...

XSTORE - абсолютно случайное число
Спецы - пожалуйста приведите пример использования в делфи XSTORE, очень нужно сделать генератор...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru