Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Panch8103
1

Двумерные массивы,получить новую матрицу путем деления всех элементов заданой матрица на ее минимальный по модулю элемент

22.04.2013, 09:10. Показов 963. Ответов 1
Метки нет (Все метки)

Сформировать и напечатать новую матрицу путем деления всех элементов заданой матрица на ее минимальный по модулю элемент
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2013, 09:10
Ответы с готовыми решениями:

Получить новую матрицу путем деления всех элементов данной матрицы на ее наименьший по модулю элемент
Задав двумерный массив вещественных данных (матрицу А.) Исходные данные задать самостоятельно,...

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

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
. Дана действительная матрица размера nxm, в которой не все элементы равны нулю. Получить новую...

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
Задана матрица размером NxM состоящая из действительных элементов.Для задания исходной матрицы...

1
130 / 54 / 27
Регистрация: 13.03.2013
Сообщений: 162
22.04.2013, 09:33 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
29
30
31
32
33
34
35
36
37
program MyProgram;
uses crt;
var A: array [1..100,1..100] of real;
    i,j,n: integer;
    min: real;
    
begin
clrscr;
readln(n);
randomize;
for i:=1 to n do begin
    for j:=1 to n do begin
        A[i,j]:=random(200)-100;
        write (A[i,j]:7:2);
        write('   ');
    end;
    writeln;
end;
writeln;
min:=A[1,1];
for i:=1 to n do begin
    for j:=1 to n do begin
        if abs(min)>abs(A[i,j]) then min:=A[i,j];
    end;
end;
if min<>0 then begin
for i:=1 to n do begin
    for j:=1 to n do begin
        A[i,j]:=A[i,j]/min;
        write (A[i,j]:7:2);
        write('   ');
    end;
    writeln;
end;
end;
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2013, 09:33

Двумерный массив. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
Дана матрица А. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший...

Действия над матрицами. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
дана матрица А размером 4х6, все элементы которой различны. Получить новую матрицу путем деления...

Получить новую матрицу путем деления всех элементов строки на наименьший по модулю элемент строки
16. Дан двумерный массив. Получить новый массив путем деления всех элементов строки на наименьший...

Получить новую матрицу путем деления всех элементов исходной матрицы на ее наименьший элемент
- Ввести произвольную размерность квадратной матрицы в интервале 1..10. - Предложить ввод данных...


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

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

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