Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Delphi Сформировать вектор В=(В1,В2,...Вn), каждый элемент которого равен числу перемен знаков в соответсвующей строке матрицы https://www.cyberforum.ru/ delphi-beginners/ thread534637.html
Сформировать вектор В=(В1,В2,...Вn), каждый элемент которого равен числу перемен знаков в соответсвующей строке матрицы А. Найти строку (imax) с наибольшим (max) числом перемен. 		Как начертить график на form3? по данным stringgrid, который находится на form2? Delphi
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Buttons,ShellAPI; type TForm2 = class(TForm)
Delphi Проблемы с inheritage https://www.cyberforum.ru/ delphi-beginners/ thread534553.html
Не запускается программа. Скорее всего из-за того, что класс tester надо вызывать через inheritage. Подскажите, что не так. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,l2_v7, StdCtrls, ExtCtrls; 		Delphi Выведите на экран имя девушки, получившей самый высший бал из всех Пятеро подруг на экзамене по "Введение в специальность" получили разные оценки, выведите на экран имя девушки, получившей самый высший бал из всех! https://www.cyberforum.ru/ delphi-beginners/ thread534552.html
Delphi Задача про прямоугольники
Два прямоугольника заданы длинами своих сторон. Определите, можно ли уместить один из них внутри другого. Поместите на форме два прямоугольника. 		Delphi ProgressBar либо чтонибуди считающее! https://www.cyberforum.ru/ delphi-beginners/ thread534505.html
procedure TForm1.Button1Click(Sender: TObject); var i,j,c,b:word; begin b:=0; repeat b:=b+c; c:=0; For i:= 0 to Memo1.Lines.Count-1 do For j:= i+1 to Memo1.Lines.Count-1 do If ( copy(Memo1.Lines,3,9) = copy(Memo1.Lines,3,9) ) then begin
Delphi Fast Report и Delphi Здравствуйте! Требуется создать отчет с выбором следующих параметров: начальная дата, конечная дата в Fast Report. Отчет должен формировать записи, входящие в данный период времени. Например, с 15.03.2012 по 26.03.2012 должен сформироваться отчет с записями, у кот-ых даты принадлежат данному периоду. Мои действия На Form5 в Delphi располагаю след. компоненты frxReport1, frxDesigner1,... https://www.cyberforum.ru/ delphi-beginners/ thread534496.html Delphi Редактирование регистрации в Делфи
Добрый день, можно так сделать, чтобы на форме в регистрацией не было уровня сложности, чтобы без него программа запускалась и не выдавала ошибок!Программа ниже и скрин тоже!Спасибо заранее!:friends:
Delphi Свойство в listBox, отвечающее за выбранный элемент https://www.cyberforum.ru/ delphi-beginners/ thread534425.html
Какое свойство в listBox отвечает за выбранный элемент? 		Delphi Перетаскивание файлов в программу нужно чтобы при перетаскивании фала в окно программы, или на определенный элемент, выполнялось примерно следущее For Index:=0 To OpenDialog1.Files.Count-1 Do ListBox1.Items.Add(extractFileName(OpenDialog1.Files.Strings)); хелп Добавлено через 6 минут procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); Var FileName: Array of Char; i, Count: integer; https://www.cyberforum.ru/ delphi-beginners/ thread534400.html
выбивает ошибку "`` is not a valid floating point value" Delphi
procedure TForm1.btn1Click(Sender: TObject); var a:array of real; k,i,j,d:Integer; s:real; begin s:=0; a:=strTofloat(StringGrid1.Cells); for i:=1 to 5 do for j:=1 to 5 do 		Delphi Двумерный массив. Матрица min значение. https://www.cyberforum.ru/ delphi-beginners/ thread534371.html
Дана матрица размера 5 x 5. Найти минимальное значение среди сумм элементов всех ее строк и номер строки с этим минимальным значением.
3 / 3 / 0
Регистрация: 28.11.2011
Сообщений: 62
0

Найти сумму наибольших значений элементов строк матрицы - Delphi - Ответ 2854892

30.03.2012, 17:22. Показов 893. Ответов 3
Метки (Все метки)
Студворк — интернет-сервис помощи студентам
Дана действительная матрица размера m*n. Найти сумму наибольших значений элементов её строк.
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

var
  m,n:integer;
  a:array[1..100,1..100] of real;
  b:array[1..100] of real;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  m:=StrToInt(Edit1.Text);
  n:=StrToInt(Edit2.Text);
  StringGrid1.RowCount:=m;
  StringGrid1.ColCount:=n;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i,j:integer;
  sum,max:real;
begin
  for i:=1 to m do
  for j:=1 to n do
  begin
    if StringGrid1.Cells[j-1,i-1]=''
      then a[i,j]:=0
      else a[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1]);
  end;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

begin
  sum:=0;
  for i:=1 to m do
    for j:=1 to n do
      begin
      sum:=sum+a[1,j];
      b[i]:=sum;
      end;
   max:=b[1];
   for i:=1 to m do
   if max<b[i] then max:=b[i];
   Edit3.Text:=FloatToStr(max);
end;
end;
end.
Второе это что нужно исправить.

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

Найти сумму наибольших значений элементов строк матрицы
Дана действительная матрица размера m*n. Найти сумму наибольших значений элементов ее строк.

Вывести матрицу на экран и найти сумму наибольших значений элементов её строк
Уважаемые форумчане, помогите пожалуйста с решением задачи.%-) Дана действительная матрица размера...

Дана действительная матрица m на n. Найти сумму наибольших значений элементов её строк
Помогите пожалуйста. Очень вас прошу. Я вообще сегодня первый раз написала программу на...

Найти числа, равные разностям наибольших и наименьших значений элементов строк
Найти чила в1,в2,...вm равные разностям наибольших и наименьших значений элементов строк.

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

Найти сумму наименьших значений строк матрицы
implementation {$R *.dfm} var m,n:integer; A:arrayof integer; procedure...

Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали
Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых...

Определить числа, равные соответственно разностям наибольших и наименьших значений элементов строк
Дана действительная матрица размера n на m. Определить числа b1...bm, равные соответственно:...

Найти числа, равные разностям наибольших и наименьших значений строк файла
написать программы delfi. 1)дан файл содержащий текст.сформироватьдругой файл содержащий...

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