Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Матрица(Поменять местами столбец N и первый из столбцов, содержащих только отрицательные элементы) Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов, содержащих только отрицательные элементы. Если требуемых столбцов нет, то вывести матрицу без изменений. RekcaR, вы не определили размер динамического массива a. Для этого существует процедура SetLength. https://www.cyberforum.ru/ delphi-beginners/ thread917318.html Delphi Имеется прейскурант, содержащий название товара и его стоимость. Составьте программу, которая выводит новый прейскурант, если необходимо:увеличить Имеется прейскурант, содержащий название товара и его стоимость. Составьте программу, которая выводит новый прейскурант, если необходимо: увеличить стоимость каждого вида товара на N% от его старой... Prosto_atom, вам же уже делали подобное, только там был не прейскурант, а сотрудники с окладами. https://www.cyberforum.ru/ delphi-beginners/ thread917409.html
Delphi Задача на базу данных https://www.cyberforum.ru/ delphi-beginners/ thread917484.html
Помогите пожалуйста решить..Информация об участниках спортивных соревнований содержит: на- именование страны, название команды, Ф.И.О. игрока, игровой номер, возраст, рост, вес. Вывести информацию... makc2806, лови
Delphi Drag and Drop и Windows 7 https://www.cyberforum.ru/ delphi-beginners/ thread917517.html
У меня недавно возникла проблема с реализацией drag and drop файлов из проводника windows 7. А именно, с правами администратора мой код не работает. Нашёл эту информацию Создал манифест, другой... Ну наконец я окончательно разобрался с этой проблемой. Всё работает, спасибо! :yahoo:
Delphi Одномерный массив (Удалить из массива все соседние одинаковые элементы)
Дан целочисленный массив размера N. Удалить из массива все соседние одинаковые элементы, оставив их первые вхождения. Проблема с итогом, вылетает ошибка until j>Length(a)-2 Не понял зачем -2? Вот так написал program Project2; {$APPTYPE CONSOLE} uses SysUtils;
Delphi Для каждой строки матрицы с нечетным номером найти среднее арифметическое ее элементов Дана матрица размера MxN. Для каждой строки матрицы с нечетным номером найти среднее арифметическое ее элементов. выдает ошибку при подсчете ср.ариф. Вот, вроде получилось :yahoo: https://www.cyberforum.ru/ delphi-beginners/ thread917316.html
Delphi DBGridEh редактирование колонки https://www.cyberforum.ru/ delphi-beginners/ thread917461.html
Есть DBGridEh с 10 колонками с TextEdit:=false, 3 (7, 8 и 9) из 10 изначально без названия колонки (тоисть DBGridEh.Columns.Title.Caption:='';). Как сделать так, что б если появилось название колонки... Как сделать так, что б если появилось название колонки то она (колонка) стала TextEdit:=true Отловите момент, когда появляется название - в этот момент и меняйте значение TextEdit. У меня стоит...
Delphi матрица:вставка столбцов https://www.cyberforum.ru/ delphi-beginners/ thread917320.html
Дана матрица размера MxN. Перед первым столбцом, содержащим только положительные элементы, вставить столбец из единиц. Если требуемых столбцов нет, то вывести матрицу без изменений. procedure TForm1.Button1Click(Sender: TObject); var a: array of array of integer; m,n,i,j,k:byte; jp:integer;//номер 1-го столбца из положительных begin Randomize;...
Delphi Процедуры: работа с массивами Описать процедуру Smooth1(A, N), выполняющую сглаживание вещественного массива A размера N следующим образом: элемент AK заменяется на среднее арифметическое первых K исходных элементов массива A.... https://www.cyberforum.ru/ delphi-beginners/ thread917304.html Delphi Преобразовать код с C++ в Delphi https://www.cyberforum.ru/ delphi-beginners/ thread917445.html
Здравствуйте, есть исходники, написанные на C Builder, стала задача переписать на Delphi.. C++ только начинаю осваивать, помогите понять как эту часть кода перенести на Delphi, спасибо.. ... А вот и адвокаты.
Delphi рекурсивная функция https://www.cyberforum.ru/ delphi-beginners/ thread917301.html
Описать рекурсивную функцию Combin1(N, K) целого типа, находящую C(N, K) — число сочетаний из N элементов по K — с помощью рекуррентного соотношения: C(N, 0) = C(N, N) = 1, C(N, K) = C(N −... Тут и думать то, не нужно. Всё расписано: program Project2; {$APPTYPE CONSOLE} uses SysUtils, Windows; Var Count : Integer;
Delphi Задача на построение графика https://www.cyberforum.ru/ delphi-beginners/ thread917486.html
Помогит решить пожалуйста...Найти координаты точек пересечения двух окружностей радиуса R1 и R2 с центрами в точках (х1 , у1 ) и (х2 , у2 ) соответственно. координаты и радиусы запрашивай у пользователя. а для рисования графика используй компонент чарт. Уравнение окружности x^2+y^2=R^2. В чем проблема то??
0 / 0 / 0
Регистрация: 02.07.2013
Сообщений: 3
0

Одномерный массив. Для элементов главной диагонали, меньших нуля, найти максимум элементов столбца - Delphi - Ответ 4805005

04.07.2013, 14:04. Показов 805. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
помогите пожалуйста!!

находит первое минимальное, а последнее минимальное не находит

Для элементов главной диагонали, меньших нуля, найти максимум элементов столбца, где этот элемент расположен.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Label4: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   a:array[1..10] of integer;
 n,temp,j,min:integer;
 i:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=StrToInt(Edit1.Text);
  if (n>0) and  (n<=10)
  then  stringgrid1.ColCount:=n
  else    showmessage ('Введи число от 0 до 10')
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  for i:=1 to n do
     a[i]:=strtoint(stringgrid1.Cells[i-1,0]);
 
 for i:=1 to n do
     min:=a[1];
     j:=1;
 for i:=1 to n do
  if a[i]<min then
  begin
     min:=a[i];
     j:=i;
end;
 for i:=1 to n  do
   temp:=a[j];
   a[j]:=a[n];
   a[n]:=temp;
 for i:=1 to n do
   StringGrid2.Cells[i-1,0]:=inttostr(a[i]);
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
    with StringGrid1 do
    for i:=0 to ColCount-1 do
    Cols[i].Clear;
    Edit1.Clear;
    with StringGrid2 do
    for i:=0 to ColCount-1 do
    Cols[i].Clear;
end;
 
end.


Вернуться к обсуждению:
Одномерный массив. Для элементов главной диагонали, меньших нуля, найти максимум элементов столбца Delphi
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
04.07.2013, 14:04
Готовые ответы и решения:

Для элементов побочной диагонали, меньших нуля, найти сумму элементов столбца, где этот элемент расположен
Задание: Для элементов побочной диагонали, меньших нуля, найти сумму элементов столбца, где этот элемент расположен. Основу я сделал но...

Для элементов главной диагонали меньших нуля, вывести максимум элементов строки, где элемент расположен
Задание Для элементов главной диагонали меньших нуля, вывести максимум элементов строки, где этот элемент расположен. Sub dd() Dim...

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

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
04.07.2013, 14:04
Помогаю со студенческими работами здесь

Для элементов главной диагонали, меньших нуля, вывести сумму элементов строки, где элемент расположен
В данной действительной квадратной матрице порядка N*N. Найти: для элементов главной диагонали, меньших нуля, вывести сумму элементов...

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

Для элементов побочной диагонали, меньших нуля, найти сумму элементов строки, где этот элемент расположен
№1 В матрице переставить в обратном порядке элементы тех столбцов, которые начинаются нулевыми элементами №2 Для элементов побочной...

Сформировать массив из элементов главной диагонали матрицы, найти в нем максимум
Сформировать матрицу А размером 5х5 с помощью генератора случайных чисел и вывести элементы матрицы на экран. Сформировать одномерный...

Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля, но меньших единицы
Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля,но меньше единицы

0
Новые блоги и статьи
Почему могут не шифроваться русские символы в Java
Wired 17.02.2025
При разработке на Java нередко возникают сложности с шифрованием русских символов. Эта проблема особенно актуальна для разработчиков, создающих программное обеспечение для русскоязычной аудитории. . . .
Отличия ОС для x86_64 и ARM
Wired 17.02.2025
На данный момент сосуществуют две основные архитектуры процессоров - x86_64 и ARM. Эти архитектуры имеют принципиально разные подходы к организации вычислений и обработке данных, что накладывает. . .
Многопоточность в Python: как использовать Thread
bytestream 17.02.2025
Поток выполнения (thread) - это наименьшая последовательность инструкций, которая может управляться планировщиком операционной системы. Представьте себе, что ваша программа - это книга, а потоки -. . .
Как воспроизвести Race Condition в Python
bytestream 17.02.2025
В многопоточном программировании существует множество подводных камней, и одним из самых коварных является состояние гонки (Race Condition). Этот термин описывает ситуацию, когда результат выполнения. . .
Ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS"
bytestream 17.02.2025
Каждый разработчик рано или поздно сталкивается с ситуацией, когда при запуске проекта Node. js неожиданно выскакивает ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS". Это. . .
Ошибка pip Python "AttributeError­: module 'lib' has no attribute 'OpenSSL_add_al­l_algorit­hms'"
bytestream 17.02.2025
При разработке на Python частенько сталкиваешься с разными сюрпризами, но ошибка AttributeError: module 'lib' has no attribute 'OpenSSL_add_all_algorithms' - это что-то особенное. Знаете, это как. . .
Сообщение Play Store "You must complete the advertising ID declaration before you can release an app that targets"
bytestream 17.02.2025
Рекламный идентификатор - это уникальный, но восстанавливаемый строковый идентификатор для каждого устройства Android. Думаю, вы удивитесь, но даже если ваше приложение не показывает рекламу. . .
Отличия App Router от Pages Router в Next.js
bytestream 17.02.2025
Next. js прошел длинный путь развития, и одним из самых значительных изменений стало появление App Router - революционного подхода к организации маршрутизации в приложении. Этот новый способ пришел на. . .
Топ10 лучших фреймворков JavaScript для изучения в 2025
bytestream 16.02.2025
В современной веб-разработке JavaScript занимает особое место, являясь одним из наиболее востребованных языков программирования. По мере развития веб-технологий появляется все больше фреймворков,. . .
Temporal в JavaScript - новый формат даты и времени
bytestream 16.02.2025
В мире JavaScript скоро произойдет значимое событие - появление нового встроенного объекта Temporal, который призван полностью заменить устаревший объект Date. Это революционное изменение в работе с. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru