Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Есть ли в Дельфи аналоги templates из C++? есть ли в делфи аналоги плюсовых шаблонов? (templates) помнится есть какой то тип Variant, но это же вроде больше похоже на void* ? то бишь нетипизированный указатель? или тип auto опять таки из тех же плюсов... https://www.cyberforum.ru/ delphi-beginners/ thread1315754.html Получить на экране два слова, движущиеся по экрану по одной горизонтальной прямой навстречу друг другу Delphi
Получить на экране два слова, например ТЕСТ, движущиеся по экрану по одной горизонтальной прямой навстречу друг другу. Первое слово должно двигаться от левого края экрана к правому, второе ─ от правого края к левому. Движение должно выполняться до полного совмещения слов.
Delphi Прервать одну процедуру из другой процедуры Есть кнопка Button2, клик по которой вызывает процедуру, и есть вторая процедура косвенно запускаемая внутри первой процедуры. Так вот нужно сделать так, чтобы первая процедура, до её полного завершения, завершалась процедурой номер два. Код первой процедуры: procedure TForm3.Button2Click(Sender: TObject); begin PasswordDlg.ShowModal; showmessage('Ты не смог((00'); end; https://www.cyberforum.ru/ delphi-beginners/ thread1315704.html Delphi Переделать программу под ООП хелп)) https://www.cyberforum.ru/ delphi-beginners/ thread1315694.html
По очереди раскрасить строки RichEdit в красный цвет Delphi
Мне надо по очереди раскрасить строки richedit в красный. Делаю так: for i:=0 to form1.richedit1.lines.count-1 do begin form2.RichEdit1.SelStart:=Pos(form2.RichEdit1.Lines, Form2.RichEdit1.text)-1; form2.RichEdit1.SelLength:=Length(form2.RichEdit1.lines); form2.RichEdit1.SelAttributes.Color:=255; end; Но раскрашивает неравномерно почему-то
Delphi Динамические структуры данных: алгоритм поиска в цепном списке элемента с минимальным значением Разработать алгоритм поиска в цепном списке элемента с минимальным значением. https://www.cyberforum.ru/ delphi-beginners/ thread1315678.html
Delphi Отправка команды в консоль / Counter Strike sourse https://www.cyberforum.ru/ delphi-beginners/ thread1315671.html
И так, нужно программно отправить команду в консоль. В данном случае у нас команда "connect 212.16.194.69:27015" Раскидаю алгоритм действия. Запускам игру Запускаем программу По истечению тика на таймере отправляется запрос в консоль игры
Delphi Заполнить двумерный массив размерности 10х10 случайными числами на отрезке [-25,25]
1.Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . Найти среднее арифметическое элементов первой строки. Вывести исходный массив и полученный результат на печать. 2.Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . В каждой строке массива найти количество элементов, больших заданного числа H. Результат получить в...
Delphi Как реализовать игру по поиску нужного элемента Суть игры по ссылке http://www.xumuk.ru/igra_tm/ Случайным образом выдается элемент, его нужно найти на форме. По количеству правильных ответов выдается результат. https://www.cyberforum.ru/ delphi-beginners/ thread1315586.html Delphi Вычислить в матрице различных элементов, те числа, которые повторяются 2 и более раз и вывести их Нужно вычислить в матрице различных элементов, те числа, которые повторяются 2 и более раз и вывести их. Например (Число 2 - встречается 2 раза, число -11 - встречается 4 раза и т.д.) Потом найти максимальное из этих чисел и так же его вывести. Писать программу нужно в режиме консоли. Помогите плиз, буду очень благодарен:)) https://www.cyberforum.ru/ delphi-beginners/ thread1315546.html
Перекодировка строки Delphi
Помогите пожалуйста... Сайт выдает такие символы при запросе: 2 наставника По идее тут должно быть: 2 наставника Так вот, как преобразовать строку такой кодировки в читаемую строку? И что это вообще за кодировка? Третий день не могу решить данную задачу :(
Delphi Задача на массив данных. Никак не получается сделать https://www.cyberforum.ru/ delphi-beginners/ thread1315513.html
Нужно найти в каком столбце, если просуммировать его элементы, получится наибольшая сумма. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type
7 / 7 / 6
Регистрация: 04.12.2014
Сообщений: 13
04.12.2014, 20:45 0

Составить программу, которая из трёх заданных чисел выберет минимальное - Delphi - Ответ 6942204

04.12.2014, 20:45. Показов 2809. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Igorurkevich как решение

Решение

Создай на форме 3 Edita, 1 кнопку и 1 Label.
В обработчике кнопки пиши:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);  //эта строка автоматически создаётся
var A,B,C,D:Integer;
begin
A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);          
C:=StrToInt(Edit3.Text);
 
If (A<B) and (A<C) then D:=A;    
 
If (B<A) and (B<C) then D:=B;    
 
If (C<A) and (C<B) then D:=C;    
 
Label1.Caption:=IntToStr(D);     
 
end;


Вернуться к обсуждению:
Составить программу, которая из трёх заданных чисел выберет минимальное Delphi
1
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2014, 20:45
Готовые ответы и решения:

Написать программу, которая подсчитывает среди заданных трех чисел количество положительных чисел.
Написать программу, которая подсчитывает среди заданных трех чисел количество положительных чисел.

Составить программу нахождения минимального числа из трех (четырех) заданных чисел A, B, C, D
Составить программу нахождения минимального числа из трех (четырех) заданных чисел A, B, C, D.

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

Вывести минимальное из трех заданных чисел
дано 3 числа, вывести из них минимальную..решать в ассемблере

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

Найти минимальное из трех заданных чисел
Здравствуйте, ребят. Помогите мне написать код для данной задачи : Даны действительные числа x,...

Составить программу, которая выводит произведение трех наименьших из 4 чисел
Здравствуйте, я написала программу, но затрудняюсь нарисовать правильную блок-схему к ней, тк...

Выбрать максимальное или минимальное из трех заданных чисел
Даны три действительных числа а, b, с. Если b &lt;= 0, то выбрать максимальное из чисел а, b, с, в...

Определить минимальное и максимальное из трех заданных чисел, записать их квадраты
Заданы 3 числа.Определить какое из них самое маленькое,а какое самое большое.Записать квадрат...

Если среди трех заданных чисел имеется хотя бы одно четное, вывести максимальное из них, иначе минимальное
ребят,такая задачка ввести 3-и числа,если среди них имеется хотябы одно четное вывести...

Программа, которая выбирает максимальное и минимальное из трёх введённых чисел
Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел. Входные...

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