Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
N. White
0 / 0 / 1
Регистрация: 06.07.2012
Сообщений: 26
#1

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

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


http://www.cyberforum.ru/pascal/thread1357569.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2012, 17:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить числа b1…bm, равные средним арифметическим элементам строк (Turbo Pascal):

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

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

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

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

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

1
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
08.07.2012, 17:35 #2
Лучший ответ Сообщение было отмечено N. White как решение

Решение

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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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