Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Помогите с задачей Помогите вывести правильно формулы,а то программа работает некорректно https://www.cyberforum.ru/ delphi-beginners/ thread363296.html UMD5 - Hash Delphi
Привет всем. Играюсь с библиотекой UMD5, есть функция шифровки данного, его запись производится в БД(не важно), теперь нужно авторизоваться по этому "набору символов", в базу внес 3 пароля, они абсолютно идеентичны друг другу, но хэш-код у всех разный, это так и должно быть? если да, то как мне сверить введенные данные и данные из бд, просто если шифровать в бд при записи, и шифровать при...
Delphi Ctrl+A и Ctrl+C в компоненте TWebBrowser Добрый день есть код простейшего браузера procedure TForm1.Button1Click(Sender: TObject); var URL, Flags, TargetFrameName, PostData, Headers: Olevariant; begin URL := Edit1.Text; Flags := 0; TargetFrameName := 0; Postdata := 0; https://www.cyberforum.ru/ delphi-beginners/ thread363252.html Delphi Как вырубить противный звук при получения фокуса? procedure TForm1.LabeledEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=VK_Return then labelededit2.SetFocus; end; как вырубить противный звук? https://www.cyberforum.ru/ delphi-beginners/ thread363244.html
Время сортировки Delphi
Метод прямого выбора: procedure TForm1.PriamoiVibor(var massiv: name; c: integer); //ïðÿìîé âûáîð var i,k,z:integer; min,temp:real; time1,time2:TDateTime; //âðåìÿ ñîðòèðîâêè begin time1:=Time; for i:=0 to c-2 do begin
Delphi Вывести на экран таблицу значений функции Помогите пожалуйста написать данную программу: Нарисуйте схему алгоритма. Спроектируйте панель диалога и напишите текст программы. Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от a до b с заданным количеством шагов M и точностью e. Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x). https://www.cyberforum.ru/ delphi-beginners/ thread363066.html
Delphi Как ввести в программу уравнение(функцию)? Сразу пишу что спрашываю не про function и как ее обявлять а о другом) У меня есть программа, она должна находить корени уравнений. Хочу зделать так, чтоб в поле edit я ввожу например x*x+sin(x)=0 и потом могу сразу ето закинуть как код в подпрограме(типа f:=x*x+sin(x)) Можно ли ето както зделать, может есть какая то команда типа стринг ту код?:) https://www.cyberforum.ru/ delphi-beginners/ thread363044.html Delphi Вопрос про потоки
Насколько я понял, единственный способ запустить поток — это MyThread.Resume и запустится Execute, типа как функция main. А что делать если туда надо передать какое-то значение, переменную и т.д.?
Delphi Проблема с List index out of bounds https://www.cyberforum.ru/ delphi-beginners/ thread362963.html
for I := 0 to MainForm.ComponentCount -1 do begin if MainForm.Components is TAdvToolBarButton then ShowMessage(TAdvToolBarButton(Controls).Caption); end; выдает ошибку list index out of bounds(58). Подскажите, в чем проблема?
Delphi Округление переменной типа real Добрый день! Вопрос, наверное, глупый, но все же Если округлить значение переменной вещественного типа до нескольких знаков после запятой (ранее было знаков гораздо больше), сократиться ли время обработки данного числа или обработка не зависит от кол-ва знаков Заранее спасибо за ответы!!! https://www.cyberforum.ru/ delphi-beginners/ thread362952.html
Вычислить с заданной точностью произведение бесконечного сходящегося ряда Delphi
Вычислить с заданной точностью произведение бесконечного сходящегося ряда; если что есть маленький пример::)
Delphi Массивы (задачи) https://www.cyberforum.ru/ delphi-beginners/ thread362939.html
Помогите...пожалуйста три задачки на массивы: 1. Для заданного массива вычислить и напечатать сумму, произведение и количество его положительных элементов. 2. Для заданного массива вычислить и напечатать величины A и n, где A - наибольший элемент массива, n – его порядковый номер. 3. В заданных массивах A и B поменять местами максимальные элементы. Вывести на экран преобразованные...
Заблокирован
09.10.2011, 00:39 0

В заданных массивах A и B поменять местами максимальные элементы - Delphi - Ответ 2053091

09.10.2011, 00:39. Показов 1791. Ответов 1
Метки (Все метки)

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

Решение

Цитата Сообщение от Sammy_13 Посмотреть сообщение
3. В заданных массивах A и B поменять местами максимальные элементы. Вывести на экран преобразованные массивы.
Ну, выводить это через цикл, в инете полно примеров

А найти максимальный элемент можно так:

Delphi
1
2
3
Var m, b: Array of real [1..10];
      i, ind1, ind2: Integer;
     max1, max2: real;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
max1 := m[0];
max2 := b[0];
 
For i := 0 to 9 do
 begin
  If max1 < m[i] then
   begin
    max1 := m[i];
    ind1  := i;
   end;
 
  If max2 < b[i] then
   begin
    max2 := b[i];
    ind2  := i;
   end;
 end;
 
m[ind1] := max2;
b[ind2]  := max1;

P.S.: Программирую уже на С++ так, что извиняюсь, если где ошибся в синтаксе

Вернуться к обсуждению:
В заданных массивах A и B поменять местами максимальные элементы Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2011, 00:39
Готовые ответы и решения:

В заданных массивах А и В поменять местами максимальные элементы и вывести их на экран
Как в заданных массивах А и В поменять местами максимальные элементы и вывести их на экран....

Процедура Swap, меняющая местами максимальные элементы матриц А и В
Код Delphi 1 2 const n=...;{целые константы&gt;1} type матрица= array of real; Описать процедуру...

Описать процедуру swap(A,B), меняющую местами максимальные элементы матриц А и В
const n=...;{целые константы&gt;1} type матрица= array of real; Описать процедуру swap(A,B),...

Поменять местами элементы массива
Поменять местами второй и четвертый элемент,если они положительны,или первый и третий,если они...

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

Поменять местами элементы массива
Дан одномерный массив A (10) элементов,поменять в нем местами 1ий элемент (а1) и минимальный))

Поменять местами элементы стека
реализовать 2 стека, заполнить их значенияммию Разместить на форме компонент Spinedit и button. При...

Поменять местами элементы матрицы
нужно поменять элементы главной и побочнофй диагонали, помогите доделать unit Unit1; ...

В двухмерном массиве поменять местами элементы
В двухмерном массиве поменять местами элементы, лежащие выше и ниже главной диагонали

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