Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Выходит ошибка I/O error 6, не работает процедура Помогите, пожалуйста Файл типизированный. Выходит ошибка I/O error 6 procedure TVyvody.Chtenie(var inf: array of data); var i,n:integer; begin Reset(f); i:=0; n:=0; SetLength(tovar,FileSize(f)); while not eof(f) do https://www.cyberforum.ru/ delphi-beginners/ thread1964108.html Delphi Чтение int32 из массива типа Byte
На борту имеем массив и парочку переменных: var data:array of byte; i:integer; d:int32; В ячейках data записано число типа int, а в ячейках data типа int32. допустим, первое число 65535, второе 2147483647. В шестнадцатеричном виде получаем соответственно FF FF и 7F FF FF FF.
Delphi Составить описание класса https://www.cyberforum.ru/ delphi-beginners/ thread1964079.html
Доброго времени суток! Помогите пожалуйста написать программу Составить описание класса, обеспечивающего представление матрицы произвольного размера с возможностью изменения числа строк и столбцов, а также вывода на экран подматрицы любого размера и всей матрицы. В программе предусмотреть меню, содержащее команды для проверки всех возможных действий с заданным в конкретном варианте...
Delphi Работа с текстовым файлом в Delphi https://www.cyberforum.ru/ delphi-beginners/ thread1964075.html
Нужно написать программу на Delphi, которая в указанном текстовом файле меняет маленькие буквы на большие (русские буквы), поможете?)
Delphi Изменить алгоритм Дейкстры, чтобы в конце выводился путь, например 2-4-1
Здравствуйте, помогите изменить алгоритм Дейкстры, чтобы в конце выводился путь, например 2-4-1. procedure DJ(GR:MSET;ST:integer;STR:integer);//GR-матрица смежности, ST-начальная вершина, STR - конечная var count,index,i,u,m,min:integer; distance:vektor; visited:array of boolean; //список просмотренных вершин begin m:=ST; for i:=1 to v do
Delphi Изменение цвета в Ellipse Необходимо в стороннем окне (игре) отображать точки в виде окружностей. Использую Ellipse. Всё отлично, но никак не могу изменить цвет эллипса, помогите. Сам эллипс: X := r.Left + 236; Y := r.Top + 236; ScreenDC := GetDC(0); Ellipse(ScreenDC, X, Y, X + 10, Y + 10); https://www.cyberforum.ru/ delphi-beginners/ thread1964050.html
Delphi Шрифт среды разработки Здравствуйте! Проблема на скрине, вопрос как изменить шрифт? https://www.cyberforum.ru/ delphi-beginners/ thread1964046.html Delphi Вывести сведения на экран и распечатать процент студентов, которые сдали все экзамены на 5 и 4
Есть сведения о том, как завершилась зимняя сессия на 4 курсе. Сведения о каждом студенте (всего 10) задан так: <фамилия>, <группа>, <оценка1>, <оценка2>, <оценка3>. Написать программу, по которой эти сведения выводится на экран и печатается процент студентов, сдали все экзамены на 5 и 4.
Delphi Программа для расчета кол-во секунд между 2 моментами времени Форма https://www.cyberforum.ru/ delphi-beginners/ thread1964038.html Delphi Сформировать очередь. Извлечь из очереди все элементы, определить наибольший и наименьший элементы Сформировать очередь. Извлечь из очереди все элементы, определить наибольший и наименьший элементы Помогите пожалуйста, а то у меня плохо с темой очереди( https://www.cyberforum.ru/ delphi-beginners/ thread1964032.html
Аудио в Delphi Delphi
Здравствуйте! Ламеру нужна помощь. Не пойму как сделать фоновую музыку, которая бы переключалась сама? Мне для теста нужна фоновая музыка. Я ставлю MediaPlayer, но там нужно нажимать на кнопку Play, а я хочу чтобы она сама СРАЗУ заиграла и переключалась, а mediaplayer вообще скрыть. P.S Извините, если не понятно написал. На форуме похожее не смог найти.
Delphi Задать Radiobutton для сортировки чисел Доброго времени суток! Дана программа которая сортирует числа по возрастанию методом пузырька. Нужно задать два RadioButton для сортировки чисел по убыванию или по возрастанию. procedure BubbleSort(a: TArrayOfInteger; var Cmp, Sw: Integer; toShow: Boolean); var i,j,N,temp: Integer; begin Cmp:=0; Sw:=0; N:=Length(a); https://www.cyberforum.ru/ delphi-beginners/ thread1963994.html
0 / 0 / 0
Регистрация: 19.04.2017
Сообщений: 43
0

Нужно строку с минимальным элементом поменять местами со столбцом с максимальным элементом - Delphi - Ответ 10349382

19.04.2017, 20:13. Показов 647. Ответов 1
Метки (Все метки)

Студворк — интернет-сервис помощи студентам
Кто может подсказать что тут не так?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(spinedit1.text);
stringgrid1.ColCount:=n;
stringgrid2.colcount:=n;
m:=strtoint(spinedit1.text);
stringgrid1.RowCount:=m;
stringgrid2.Rowcount:=m;
min:=0;
max:=0;
 
for i:=1 to n do
for j:=1 to m do
b[i,j]:=strtoint(stringgrid1.Cells[i-1,j-1]);
 
for i:=1 to n do begin
for j:=1 to m do begin
  if b[i,j]<min then
    min:=b[i,j];
    e:=i;
    f:=j;
  if b[i,j]>max then
    max:=b[i,j];
    l:=i;
    s:=j;
  edit1.Text:=inttostr(min);
  edit2.Text:=inttostr(max);
end;
end;
 
 
 
for i:=1 to n do
for j:=1 to m do
StringGrid2.Cells[i-1,j-1]:=inttostr(b[i,j]);
 
 
end;
 
end.


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

поменять местами столбец с минимальным элементом и столбец с максимальным элементом
Вводится матрица вещественных чисел,необходимо поменять местами столбец с минимальным элементом и...

Поменять местами столбец, с минимальным элементом, со столбцом, с максимальным элементом
Задана матрица размером N*M. Поменять местами столбец, содержащий элемент с минимальным значением,...

Столбец матрицы с максимальным элементом поменять местами со столбцом с нулевым элементом
Как столбец с максимальным элементом поменять местами со столбцом с нулевым элементом

Поменять местами строку с максимальным элементом на главной диагонали со столбцом с заданным номером m(m<6)
Дана целочисленная матрица М(6,6). Поменять местами строку с максимальным элементом на главной...

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

Поменять местами строку с максимальным и минимальным элементом матрицы
Задана матрица размером NxN. Поменять местами строку с максимальным элементом матрицы и строку с...

Поменять местами строку матрицы с максимальным и минимальным элементом
Проблема такова: программа меняет местами строку с максимальным и минимальным элементом. Когда я...

В массиве необходимо найти номер строки с минимальным элементом. Поменять местами строку с минимальным элементом и пе
2. В массиве необходимо найти номер строки с минимальным элементом. Поменять местами строку с...

Вывести на экран строку с максимальным элементом и столбец с минимальным элементом файла
Создать текстовый файл, в который построчно записать прямоугольный массив massivnm, заполненный...

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