Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Вычисление суммы диагональных элементов квадратной матрицы В Delphi написать программу которая вычисляет сумму диагональных элементов квадратной матрицы. https://www.cyberforum.ru/ delphi-beginners/ thread1423684.html Delphi Записи
Из ассортимента конфет,выпускаемых пермской кондитерской фабрикой выбрать те,стоимость которых от 30 до 50 руб. за 1 кг.Узнать срок их годности и номера магазинов,в которых они имеются
Delphi Доработка программы https://www.cyberforum.ru/ delphi-beginners/ thread1423665.html
Нужно сделать следующее: что бы можно было добавлять тесты программно и что бы общее количество вопросов можно было менять по желанию. Вся надежда на вас парни! Сил уже нету… Программу выложу!
Delphi Функция Random Ребят помогите запилить рандом. что бы в Edit вводил диапазон чисел (от-до), нажимал на кнопку и в Label выдавал ответ https://www.cyberforum.ru/ delphi-beginners/ thread1423646.html
Получить из заданной матрицы новую, поделив исходную на сумму элементов главной диагонали Delphi
Даны натуральное число n, действительная матрица аi=1,..,n. Получить новую матрицу, поделив исходную на сумму элементов главной диагонали а11, а22,..,аnn.
Delphi Визуализировать значения Edit в gauge https://www.cyberforum.ru/ delphi-beginners/ thread1423627.html
помогите пожалуйста с программой! за ранее спасибо. Суть задачи такова: есть радиогруп в котором подсчитываются за формулами определенные значения, и выводы на эдиты 2,3,4. мне надо визуализировать значения эдитов в gauge. тобто сделать шкалу от 0-100% и за 100% взять значение 500. и что бы значения с эдитов заполняли gauge на определенные проценты.
Delphi Ошибка при отладке .... var S: String; begin S := Edit1.Text; end; .... Выше приведенный код вызывает ошибку при отладке: "Source File not Found: vcl.Controls.pas" при присваивании переменной значения. При обычной компиляции этот код просто не работает. Странно, если создать новый проект, то никакой ошибки при отладке и все работает. Почему так может быть? https://www.cyberforum.ru/ delphi-beginners/ thread1423616.html Как присвоить несколько действий к одному таймеру? Delphi
Массив А формируется рандомно в stringGrid каждую секунду. Массив В формируется каждые 3 секунды по правилу:первые 10 элементом Bi=Ai+i, остальные Bi=Ai-i. Каждые 5 секунд в label выводить наименьший элемент массива А. Нужно использовать ОДИН таймеру. Помогите пожалуйста:(
Delphi Где лучше всего писать текст и можно ли в label'е изменять шрифт или размер букв? https://www.cyberforum.ru/ delphi-beginners/ thread1423551.html
Тема моей курсовой составить текст и подставить под него имя, фамилию и т.д. заданные ранее. Где лучше всего писать текст и можно ли в label'е изменять шрифт или размер букв?
Delphi Калькулятор систем счислений Доброе время суток форумчане, помогите написать программу на Delphi, а именно калькулятор систем счислений, буду благодарен! :) https://www.cyberforum.ru/ delphi-beginners/ thread1423550.html
Создать компонент в виде метки Delphi
Создать компонент в виде метки с графическим рисунком и изменяющимся цветом фона Добавлено через 3 часа 12 минут Вот создал что то не виходит запустить не подскажите в чем проблема:cry: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Delphi Путем удаления некоторых элементов, получить неубывающую последовательность максимальной длины Дана последовательность целых чисел. Путем удаления некоторых элементов (не переставляя элементы) получить неубывающую последовательность максимальной длины Добавлено через 2 часа 22 минуты program Project1; {$APPTYPE CONSOLE} uses SysUtils; https://www.cyberforum.ru/ delphi-beginners/ thread1423540.html
0 / 0 / 0
Регистрация: 17.04.2015
Сообщений: 3
0

В каждой строке матрицы поменять местами максимальный элемент с элементом побочной диагонали - Delphi - Ответ 7493705

17.04.2015, 20:45. Показов 1280. Ответов 3
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
В каждой строке матрицы поменять местами максимальный
элемент с элементом побочной диагонали и вывести
полученную матрицу в другой таблице

Сделал так :
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 for i:=0 to stringgrid1.rowCount-1 do
begin
    min:=0;
    max:=0;
    for j:=1 to stringgrid1.ColCount-1 do
    begin
         if strtoint(stringgrid1.cells[i,j])>strtoint(stringgrid1.cells[i,max]) then
            max:=j;
         if strtoint(stringgrid1.cells[i,j])<strtoint(stringgrid1.cells[i,min]) then
            min:=j;
         if min=max then
            messagedlg('все элементы в строке '+inttostr(i)+' равны', mtwarning, [mbok], 0);
    end;
    a:=stringgrid2.cells[stringgrid2.colcount-i-1, i];
    stringgrid2.cells[stringgrid2.colcount-i-1,i]:=stringgrid2.cells[max,i];
    stringgrid2.cells[max,i]:=a;
end;
end;
end;
Но ничего не получается , не хочет менять максимальный элемент строки на элемент побочной диагонали.
Помогите пожалуйста .

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

Дан двумерный массив B размера m*m. Поменять местами максимальный элемент в главной диагонали матрицы с минимальным элементом в побочной диагонали
Дан двумерный массив B размера m*m. Поменять местами максимальный элемент в главной диагонали...

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

В каждой строке матрицы найти максимальный элемент, и поменять его местами с элементом главной диагонали
В двумерном массиве, состоящем из n×m элементов, в каждой строке найти максимальный элемент и...

В квадратной матрице в каждой строке поменять местами максимальный элемент с элементом на главной диагонали.
Доброго времени суток! :) Задача такая: В квадратной матрице C(MxM) в каждой строке поменять...

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

Максимальный элемент в каждой строке поменять местами с элементом главной диагонали.Полученную матрицу распечатать
Максимальный элемент в каждой строке поменять местами с элементом главной диагонали.Полученную...

В каждой строке матрицы поменять местами минимальный элемент и элемент побочной диагонали
Помогите, а то я не бум бум)):wall: Задана матрица Х, где N&lt;=15. В каждой строке матрицы поменять...

В каждой строке матрицы поменять местами наибольший элемент и элемент на побочной диагонали
Найти в каждой строке наибольший элемент и поменять его местами с элементом побочной диагонали.

В каждой строке матрицы наибольший элемент поменять местами с элементом главной диагонали
В общем вот задачки, буду очень благодарен вам за помощь: 1. Найти в каждой строке матрицы n, m...

В каждой строке матрицы поменять местами максимальный элемент и элемент, находящийся на главной диагонали
Добрый Дня Всем! Столкнулся с проблемой в решении задания: В квадратной матрице С размера m*m в...

Определить максимальный элемент в каждой строке матрицы и поменять его местами с последним элементом строки
Вывести на экран матрицу 8x8, элементами которой являются целые случайные числа из интервала ....

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