Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Delphi двухмерный массивы дана матрицы A (M, N) задача ,переместить ряды матрице K раза вниз. пробавал и неполучилось если можете помогите. кароче мне нужна только строчка с перемещением остольное я фсе сделал. https://www.cyberforum.ru/ delphi-beginners/ thread104972.html Delphi панели инструментов
Создать приложение с использованием компонент Panel, SpeedButton, ComboBox для реализации панели инструментов.
Delphi Двумерные массивы написать полное решение задачи: Написать программу, которая заменяет нулями те элементы заданной матрицы, значения которых находятся вне рамок интервала . Подсчитать среднеарифметическое значение всех элементов полученной матрицы. https://www.cyberforum.ru/ delphi-beginners/ thread104930.html Delphi Проверка правильности имени https://www.cyberforum.ru/ delphi-beginners/ thread104911.html
Люди помогите написать программу, для проверки правильности вводимого имени в поле Edit при нажатии кнопки Button. Условия: 1) Имя должно начинаться на букву латиницы либо кириллицы (русский и английский алфавиты). 2) Максимальное колличество символов = 10. 3) В имени разрешены буквы, цифры и знак "_". При несоответствии хотя бы одному условию, должно выводиться...
Delphi перевод десятичных чисел в шестнадцатеричную систему
админ помоги ещё пожалусто подкоректировать на шестнадцатеричную систему опять же но только для перевода десятичных чисел: вот исходник: var N, M: single; Bin: string; procedure TForm1.Button1Click(Sender: TObject); begin N := StrToFloat(Edit1.Text); Label1.Caption := '0.'; Bin := ' '; 		Delphi перевод десятичных чисел https://www.cyberforum.ru/ delphi-beginners/ thread104893.html
админ помоги ещё пожалусто подкоректировать на шестнадцатеричную систему опять же но только для перевода десятичных чисел: вот исходник: var N, M: single; Bin: string; procedure TForm1.Button1Click(Sender: TObject); begin N := StrToFloat(Edit1.Text); Label1.Caption := '0.'; Bin := ' ';
Delphi Описать программу SortInc (A,N) (SortDec (A,N)), выполняющую сортировку по возрастанию (убыванию)массива А из N вещественных чисел. Помогите, пожалуйста,решить задачу по визуальному программированию на языке Delphi: Описать программу SortInc (A,N) (SortDec (A,N)), выполняющую сортировку по возрастанию (убыванию)массива А из N вещественных чисел. Массив А является входным и выходным параметром. С помощью этой процедуры отсортировать масивы A,B,C размера NA,NB,NC соответственно. Заранее спасибо за помощь!!!!!!!!!!!:) если... https://www.cyberforum.ru/ delphi-beginners/ thread104886.html Двумерные массивы Delphi
Написать программу, которая находит в каждом столбце заданной матрицы минимальный элемент, а потом среди найденных минимальных значений находит максимальное. Вывести на экран индексы этого элемента.
Delphi перенос в Image https://www.cyberforum.ru/ delphi-beginners/ thread104857.html
Здравствуйте, помогите разобраться с проблемой. Суть проблемы в том, что есть Memo поле информация вводимая в поле отображается в Image, размер Image в пикселах 128 на 64. Нужно чтобы происходил переход на новую строку в Image так же как и в мемо поле. Заранее спасибо код procedure TForm1.Memo1Change(Sender: TObject); begin Image1.Canvas.Font := Memo1.Font; Image1.Canvas.TextOut(0, 0,... 		Delphi Описать функцию PosLast (subs,s,k) целого типа,возвращающую номер позиции, с которой в строке s содержится последнее вхождение подстроки subs. https://www.cyberforum.ru/ delphi-beginners/ thread104835.html
Кто-нибудь может решить эту задачу?:wall: Описать функцию PosLast (subs,s,k) целого типа,возвращающую номер позиции, с которой в строке s содержится последнее вхождение подстроки subs. Если в строке s отсутствуют подстроки subs, то функция возвращает 0. Вывести значения этой функции для пяти данных пар subs и s. Спасибо заранее!!!:)
"Тренировка внимания" Delphi
На форму выводится таблица 4х4, в некоторых клетках которой расположены кружки. После небольшой задержки кружки исчезают. Требуется, чтобы игрок мышкой указал клетки, в которых находились кружки. Если игрок справился с заданием, то он получает поздравление с победой. Для повышения сложности в дальнейшем можно сократить "время видимости" кружков. Примечание: 1.Для запоминания положения кружков... 		Delphi Как отрисовать заголовок GroupBox неактивным цветом? https://www.cyberforum.ru/ delphi-beginners/ thread104787.html
Какое свойство делает GroupBox неактивным цветом...
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
607 / 387 / 81
Регистрация: 15.12.2009
Сообщений: 753
15.03.2010, 23:27 0

В матрице заменить нулями элементы, стоящие в столбцах, где имеются нули - Delphi - Ответ 601503

15.03.2010, 23:27. Показов 1428. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот))
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
41
42

var
  Form1: TForm1;
  i,j,k:integer;
  s:string;
  mas:array[1..10,1..10] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s:='';
Randomize;
For i:=1 to 10 do
For j:=1 to 10 do
mas[i,j]:=Random(100);
 
 
For i:=1 to 10 do
begin
For j:=1 to 10 do
s:=s+IntToStr(mas[i,j])+' ';
s:=s+#13;
end;
ShowMessage('Íà÷àëüíàÿ ìàòðèöà:'+#13+s);
s:='';
 
For i:=1 to 10 do
For j:=1 to 10 do
If mas[j,i]=0 then
For k:=1 to 10 do
mas[k,i]:=0;
 
For i:=1 to 10 do
begin
For j:=1 to 10 do
s:=s+IntToStr(mas[i,j])+' ';
s:=s+#13;
end;
ShowMessage('Êîíå÷íàÿ ìàòðèöà:'+#13+s);
 
end;


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

Заменить нулями элементы матрицы, стоящие в строках или столбцах, где имеются собственные нули
В созданном двумерном массиве A заменить нулями элементы, стоящие в строках или столбцах, где...

В заданном двумерном массиве A(n,m) заменить нулями элементы стоящие в строках или столбцах, где имеются нули.
В заданном двумерном массиве A(n,m) заменить нулями элементы стоящие в строках или столбцах, где...

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

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

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

Заменить символами # символы, стоящие в строках или столбцах, где имеются цифры
Вот задача: Задана символьная матрица Y(K, L), K<=7, L<=9, соcтаящая из латинских букв и цифр....

В матрице все отрицательные элементы, стоящие на главной диагонали и ниже ее, заменить нулями
в матрице А(8,8) все отрицательные элементы, стоящие на глав¬ной диагонали и ниже ее, заменить...

Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А
Условие: Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для...

Заменить нулями в матрице элементы с четной суммой индексов, которые имеются в заданном массиве
Даны целые числа a1, ... ,a10, целочисленная квадратная матрица порядка n. Заменить нулями в...

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