Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Удалить все до скобок https://www.cyberforum.ru/ delphi-beginners/ thread2120009.html
/1111111/22222222/333333333/444444444/55555555555/ Подскажите как удалить программно все до третьей скобки, в этом пути надо что бы осталось -" /1111111/22222222/ "
Координаты точек Delphi
На плоскости координатами своих вершины заданы два треугольника. Определите, одинакового ли они типа (прямоугольные, тупоугольные, остроугольные)
Delphi Как сделать кнопку с закруглёнными углами в delphi embarcadero? https://www.cyberforum.ru/ delphi-beginners/ thread2119927.html
Подозреваю, что это есть где-то в свойствах, но я походу не вижу...
Delphi Вставка изображения в RichEdit https://www.cyberforum.ru/ delphi-beginners/ thread2119847.html
Хочу в рич эдит запихать картинку вот что не выхожит
Delphi Сократить код программы Delphi
Здравствуйте! Я новичок в программировании, учусь писать программы на Дэлфи. Подскажите как можно сократить код моей программы? unit Form_test; interface uses Windows, Messages, SysUtils,...
Delphi Как создать в форме поле пользовательского типа? https://www.cyberforum.ru/ delphi-beginners/ thread2119701.html
Поля базовых типов создаются без проблем. Но когда пытаюсь создать поле моего типа возникает ошибка "необъявленный идентификатор ...". Пробовал и в определении класса писать, и в var юнита. При этом...
Delphi HOOK WH_SHELL https://www.cyberforum.ru/ delphi-beginners/ thread2119685.html
Устанавливаю хук, код длл (длл и EXE 32битные) library ShellHook; uses System.SysUtils, System.Classes, Winapi.Windows, Winapi.Messages, Vcl.Dialogs;
Delphi Есть ли в Delphi свойства зависимости?
У меня в окне четыре ListView отображающие содержание четырех TList<T>, и 12 кнопок изменяющие содержание списков. Конечно можно обновлять содержание всех ListView в конце нажатия каждой кнопки, но...
Delphi Прокручивание ползунка ScrollBox колесиком мышки Как сделать прокручивание ползунка ScrollBox колесиком мышки? Пробовал так: procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled:... https://www.cyberforum.ru/ delphi-beginners/ thread2119612.html Delphi Строка и символы Сформируйте случайным образом строку из 60 заглавных букв латинского алфавита и определите, какой символ встречается в строке наибольшее число раз. Выведите на печать сформированную строку и ответ на... https://www.cyberforum.ru/ delphi-beginners/ thread2119572.html
TSslWSocket - отправка данных Delphi
Привет всем. Вообщем, стоит задача наладить работу WebSocket-клиента. Получается сделать Connect, отправить хэдеры, ключ и т.п. Вопрос такой: как послать ответ? Использую Overbyte ICS TSslWebSocket....
Delphi Найти срок прошедший со дня https://www.cyberforum.ru/ delphi-beginners/ thread2119401.html
уважаемые форумчане подскажите советом в моей задачке, у меня прописаны данные в компоненте stringgrid (надо именно stringgrid) procedure TForm1.FormCreate(Sender: TObject); begin...
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
12.11.2017, 09:08 0

Создание одномерного массива средних арифметических столбцов матрицы - Delphi - Ответ 11702912

12.11.2017, 09:08. Показов 873. Ответов 5
Метки (Все метки)

Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Примерно так, перепишешь по своему.
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
type mas=array[1..10] of real;
     mtr=array[1..10,1..10] of real;
procedure massiv(var a:mas;var n:byte;c:char);
var i:byte;
begin
repeat
write('Введите размер массива ',c,' от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=2*random;
  write(a[i]:6:2);
 end;
writeln;
end;
procedure matrix(a,g:mas;m,n:byte;var b:mtr);
var i,j:byte;
begin
writeln('Матрица В');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=exp(a[i]*g[j]);
    write(b[i,j]:6:2);
   end;
  writeln;
 end;
end;
procedure sred(b:mtr;m,n:byte;var s:mas);
var i,j:byte;
begin
writeln('Массив средних значений столбцов');
for j:=1 to n do
 begin
  s[j]:=0;
  for i:=1 to m do
  s[j]:=s[j]+b[i,j];
  s[j]:=s[j]/m;
  write(s[j]:6:2);
 end;
end;
var a,g,s:mas;
    b:mtr;
    m,n:byte;
begin
SetConsoleCP(1251);
SetConsoleOutPutCp(1251);
randomize;
massiv(a,m,'A');
massiv(g,n,'G');
matrix(a,g,m,n,b);
sred(b,m,n,s);
readln
 
end.


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

Найти максимальное из средних арифметических столбцов матрицы
дана матрица цел чисел найти мах сред ореф в каждом столбце #include &lt;stdio.h&gt; #include...

Вывести значения средних арифметических элементов всех столбцов матрицы
Задача № 1. Задана матрица А(i,j). (Причем задать ее надо самому с помощью генератора случайных...

Сделать два одномерных массива из средних арифметических значений на каждой диагонали матрицы, параллельных главной диагонали
Задачка по процедурам.. Из двумерных массивах A и В сделать два одномерных массива из средних...

Из матрицы получить массив, состоящий из средних арифметических строк матрицы
Добрый день! Помогите найти ошибку в коде. Задание: Из заданной пользователем матрицы получить...

5
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2017, 09:08

Вычислить сумму средних арифметических элементов каждого столбца массив С, содержащего m столбцов по n чисел в каждом
Вычислить сумму средних арифметических элементов каждого столбца массив С, содержащего m столбцов...

Дана вещественная матрица размером NxM.Определить числа B1..Bm,равные значениям средних арифметических элементов столбцов.
Дана вещественная матрица размером NxM.Определить числа B1..Bm,равные значениям средних...

Упорядочить столбцы матрицы по убыванию их средних арифметических
Добрый день! Задание звучит следующим образом: Дана матрица целых чисел X(n, т). Упорядочить ее...

Сформировать массив из средних арифметических соответствующих строк матрицы
Ввести двумерный массив A={aij}, i=\overline{1,m}, j=\overline{1,n}, m, n=20. Вывести на экран...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.