Форум программистов, компьютерный форум, киберфорум
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...
0 / 0 / 0
Регистрация: 11.11.2017
Сообщений: 5
0

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

11.11.2017, 23:15. Показов 870. Ответов 5
Метки (Все метки)

Здравствуйте. На форуме новичок.. У меня возникла проблема при написании программы.
Задание такое: Даны два одномерных массива A и G . Сформировать матрицу B по формуле B[i,j] = exp(A[i]*G[j]);
Сформировать массив средних арифметических столбцов.
Прилагаю код того, что уже смог сделать. Проблема возникла именно в подсчете этого ср.арифметического.. Подскажите, как это можно сделать. Читал на форуме что-то подобное, но к сожалению ничего не вышло.
PS: Делфи только осваиваю, поэтому могут быть неточности, уж не ругайтесь на меня.

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
program LAB_4_17;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
TYPE
tA=array[1..16]of integer;
tG=array[1..16]of integer;
tB=array[1..16,1..16]of real;
tR=array[1..16]of real;
VAR
A:tA;G:tG;B:tB;R:tR;
m,n:integer;
flag:string;
 
{Процедура ввода количества элементов массива A}
procedure InPutNumberA(var a:integer);
Begin
Write('Enter number of elements in array A = ');
Readln(a);
 
End;
 
{Процедура ввода количества элементов массива G}
procedure InPutNumberG(var b:integer);
Begin
Write('Enter number of elements in array G = ');;
Readln(b);
 
End;
 
{Процедура заполнения двух одномерных массивов A,G и формирование матрицы}
procedure InPutAG(a,b:integer; var q:tA; s:tG;r:tB);
Var i,j:integer;
Begin
writeln('Enter ',a,' elements of array A = ');
 for i:=1 to a do
 begin
 read(q[i]);
 end;
writeln('Enter ',b,' elements of array G = ');
 for j:=1 to b do
 begin
 read(s[j]);
 end;
writeln;
writeln('       Matrix B     ');
writeln;
for i:=1 to a do
  begin
   for j:=1 to b do
    begin
    r[i,j]:=exp(q[i]*s[j]);
    write(r[i,j]:1:1,'      ');
    end;
    writeln;
 end;
writeln;
readln;
End;
{Процедура заполнения двух одномерных массивов A,G и формирование матрицы}
function SrArifmStb (const r:tB;a,b:integer;var q:tR):tR;
Var i,j:integer; SrArifm:Real;
Begin
repeat
SrArifm:=0;
for j:=b to b do
begin
 for i:=1 to b do
 r[i,j]:=r[i,j]+SrArifm;
end;
b:=b+1;
SrArifm:=SrArifm/b;
until j<>b;
End;
{Процедура вывода сформированного массива средних арифметических}
procedure OutPutSrArifm(a:integer;var q:tR);
Var i:integer;
Begin
writeln('Array R of medial arifmetics of colons B');
writeln;
 for i:=1 to a do
 begin
 write(q[i]:5:2,'  ');
 end;
readln;
End;
 
BEGIN
repeat
InPutNumberA(m);
InPutNumberG(n);
InPutAG(m,n,A,G,B);
{SrArifmStb(B,m,n,R);}
{OutPutSrArifm(n,R); }
writeln;
writeln('Do you want to continue? Enter YES to continue , NO - to exit');
readln(flag);
until flag<>'YES';
END.


Вернуться к обсуждению:
Создание одномерного массива средних арифметических столбцов матрицы Delphi
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2017, 23:15
Готовые ответы и решения:

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

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

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

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

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

Вычислить сумму средних арифметических элементов каждого столбца массив С, содержащего 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.