Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
N. White
0 / 0 / 0
Регистрация: 06.07.2012
Сообщений: 26
#1

Определить числа b1…bm, равные средним арифметическим элементам строк - Turbo Pascal

08.07.2012, 17:26. Просмотров 443. Ответов 1
Метки нет (Все метки)

Массивы: Дана действительная матрица Аmxm. Определить числа b1…bm, равные средним арифметическим элементам строк.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2012, 17:26
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить числа b1…bm, равные средним арифметическим элементам строк (Turbo Pascal):

Заменить числа в файле со второго по предпоследнее средним арифметическим - Pascal
Дан файл вещественных чисел. Заменить числа в файле со второго по предпоследнее средним арифметическим данного, предыдущего и последующего

В комплекснозначной матрице a[1..n,1..n] элементы четных строк заменить средним арифметическим элементов этой матрицы - Pascal
В комплекснозначной матрице a элементы четных строк заменить средним арифметическим элементов этой матрицы

Заполнить строку нулей матрицы средним арифметическим по столбцам, а столбец - средним по строкам - Pascal
В матрице(10на10) имеются строка и столбец, содержащие только элементы, раввные нулю. Заполните эту строку средним арифметическим по...

Определить числа b1,... , b m равные суммам элементов строк матрицы - Turbo Pascal
Дана действительная матрица m на n. Определить числа b1, ..., b m равные суммам элементов строк

Определить числа b1,..,bm, Равные соответственно произведениям элементов строк - Turbo Pascal
Дана действительная матрица Размера MxN. Определить числа b1,..,bm, Равные соответственно произведениям элементов строк!!

Определить числа, равные значениям средних арифметических элементов строк - Turbo Pascal
Дана действительная матрица размера mXn. Определить числа b1,…,bm равные значениям средних арифметических элементов строк.

1
КонецСвета
Почетный модератор
7922 / 3892 / 940
Регистрация: 30.10.2011
Сообщений: 5,379
08.07.2012, 17:35 #2
Pascal
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
uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of real;
    b: array [1..nmax] of real;
    m,i,j: byte;
 
begin
repeat
write('Размерность матрицы, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
write('Матрица А');
for i:=1 to (m*6)-5 do
    write(' ');
writeln('Массив В');
for i:=1 to m do
    begin
    b[i]:=0;
    for j:=1 to m do
        begin
        a[i,j]:=199*random-99;
        write(a[i,j]:6:1);
        b[i]:=b[i]+a[i,j];
        end;
    b[i]:=b[i]/m;
    writeln(b[i]:10:1);
    end;
readln;
end.
Добавлено через 1 минуту
ручной ввод
Pascal
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
uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of real;
    b: array [1..nmax] of real;
    m,i,j: byte;
 
begin
repeat
write('Размерность матрицы, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
for i:=1 to m do
    for j:=1 to m do
        begin
        write('a[',i,',',j,']='); readln(a[i,j]);
        end;
clrscr;
write('Матрица А');
for i:=1 to (m*6)-5 do
    write(' ');
writeln('Массив В');
for i:=1 to m do
    begin
    b[i]:=0;
    for j:=1 to m do
        begin
        write(a[i,j]:6:1);
        b[i]:=b[i]+a[i,j];
        end;
    b[i]:=b[i]/m;
    writeln(b[i]:10:1);
    end;
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2012, 17:35
Привет! Вот еще темы с ответами:

Определить числа равные соответственно наибольшим среди отрицательных элементов строк - Turbo Pascal
Даны натуральные числа n,m и действительная матрица n*m.определить числа b1,...,bn равные соответственно наибольшим среди отрицательных...

Определить числа, равные значениям средних арифметических элементов строк матрицы - Pascal
Ребят срочно нужна помощь, нужно здать программу у самого нечего неполучаеться. Выручите меня пожалуйсто. 1. Даны натуральные числа n,...

Двумерный массив: Определить числа , равные соответственно разности первого и последнего элемента строк - Turbo Pascal
Даны натуральные числа n, m и действительная матрица размера n*m. Определить числа , равные соответственно разности первого и последнего...

Число с является средним арифметическим чисел а и b - Turbo Pascal
Число с является средним арифметическим чисел а и b.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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