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

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
Dimaalex11
0 / 0 / 0
Регистрация: 16.06.2014
Сообщений: 7
#1

Умножьте все элементы первой строки матрицы на минимальный элемент. Вывести исходную матрицу и полученную - PascalABC.NET

16.06.2014, 19:38. Просмотров 572. Ответов 6
Метки нет (Все метки)

PascalABC.NET Умножьте все элементы первой строки матрицы на минимальный элемент. Вывести исходную матрицу и полученную. Закрасить элементы, расположенные в первой строке.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2014, 19:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Умножьте все элементы первой строки матрицы на минимальный элемент. Вывести исходную матрицу и полученную (PascalABC.NET):

Дано две матрицы [A] и [B], размером N x M, Получить новую матрицу [C] путем сложения элементов исходных. Вывести на печать исходную и полученную ма - Pascal
Дано две матрицы и , размером N x M, Получить новую матрицу путем сложения элементов исходных. Вывести на печать исходную и полученную...

Умножьте все элементы последнего столбца на максимальный элемент матрицы - PascalABC.NET
Умножьте все элементы последнего столбца на максимальный элемент матрицы. Закрасить элементы, расположенные в последнем столбце.

Умножить все элементы матрицы на минимальный элемент матрицы - Pascal
Здравствуйте. Вот собственно задача: "Дана матрица А(m, n), 1<(m, n)<10. Умножить все элементы матрицы на минимальный элемент матрицы....

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

Обнулить все элементы строки и столбца матрицы, на пересечении которых находится максимальный элемент матрицы - Pascal
Определить максимальный элемент в произвольно заданной матрице Z размером m x n и обнулить все элементы строки и столбца, на пересечении...

Создание Блок-схема. В массиве все элементы, кратные 4, заменить на минимальный элемент строки, в котором он расположен - Pascal
Помогите пожалуйста,составить блок -схему программы . Заранее спасибо!!) {V massive vse elementi,kratnie chetirem, zamenit' na...

6
AlexKolc
191 / 161 / 68
Регистрация: 14.09.2013
Сообщений: 302
16.06.2014, 20:07 #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
var
  n, m, i, j, min: longint;
  a: array[1..1000, 1..1000] of integer;
  
begin
  readln(n, m);
  min := 2000000000;
  for i := 1 to n do
    for j := 1 to m do
      begin
        read(a[i, j]);
        if a[i, j] < min
          then min := a[i, j]
      end;
  for i := 1 to n do
    begin
      for j := 1 to m do
        write(a[i, j], ' ');
      writeln
    end;
  for i := 1 to n do
    begin
      for j := 1 to m do
        if i = 1
          then write(a[i, j] * min, ' ')
          else write(a[i, j], ' ');
      writeln
    end
end.
0
Dimaalex11
0 / 0 / 0
Регистрация: 16.06.2014
Сообщений: 7
17.06.2014, 14:32  [ТС] #3
не работает коректно бесконечно надо вводить
0
AlexKolc
191 / 161 / 68
Регистрация: 14.09.2013
Сообщений: 302
17.06.2014, 14:40 #4
Сначала вы вводите 2 числа n и m.
А затем матрицу размером n*m
0
Puporev
Модератор
53999 / 41632 / 14718
Регистрация: 18.05.2008
Сообщений: 97,856
17.06.2014, 14:53 #5
Цитата Сообщение от AlexKolc Посмотреть сообщение
А затем матрицу размером n*m
Особенно если
Pascal
1
a: array[1..1000, 1..1000] of integer;
1
Dimaalex11
0 / 0 / 0
Регистрация: 16.06.2014
Сообщений: 7
17.06.2014, 23:16  [ТС] #6
вот так написал,надо чуть исправить помоги пожалуйста
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
uses crt;
var a:array [1..100,1..100] of integer;
n,i,j,min: integer;
begin
write('Рахмер матрицы');
readln(n);
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:4);end;
writeln;end;
min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
writeln;
writeln('min=',min);
writeln('Итоговая матрица');
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=(a[i,1])*min;
textcolor(12);
end;
writeln;
textcolor(green);
for i:=2 to n do
begin
for j:=2 to n do 
write(a[i,j]:4);
writeln;
end;end.
0
AlexKolc
191 / 161 / 68
Регистрация: 14.09.2013
Сообщений: 302
17.06.2014, 23:26 #7
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
не забывай про форматирование, и тебе удобнее и нам проще твой код просматривать
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
38
uses crt;
var
  a:array [1..100,1..100] of integer;
  n,i,j,min: integer;
begin
  write('ГђГ*çìåð Г¬Г*òðèöû -> ');
  readln(n);
  writeln('ÈñõîäГ*Г*Гї Г¬Г*òðèöГ*:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(19)-9;
          write(a[i,j]:4)
        end;
      writeln
    end;
  min:=a[1,1];
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<min then min:=a[i,j];
  writeln;
  writeln('min = ',min);
  writeln('ÈòîãîâГ*Гї Г¬Г*òðèöГ*: ');
  for i:=1 to n do
    begin
      if i = 1
        then textcolor(green)
        else textcolor(black);
      for j:=1 to n do
        begin
          if i = 1
            then a[i,j] := a[i,j]*min;
          write(a[i,j]:4,' ')
        end;
      writeln
    end
end.
1
17.06.2014, 23:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2014, 23:26
Привет! Вот еще темы с ответами:

дан двумерный массив. вывести на экран минимальный номер строки, в котором все элементы положительные. - Pascal
Здравствуйте! Помогите, пожалуйста с решением задачи. Пожалуйста..... дан двумерный массив. вывести на экран минимальный номер строки, в...

Получить новую матрицу В порядка N путём умножения элементов матрицы А на минимальный элемент матрицы А - Pascal
5)Получить новую матрицу В порядка N путём умножения элементов матрицы А на минимальный элемент матрицы А.

Найти минимальный элемент первой строки, которого нет во второй строке - Pascal
Даны 2 строки с 30 числами. Найти минимальный элемент первой строки, которого нету во второй строке

Получите новую матрицу путём умножения минимума строки первой матрицы на максимум столбца второй матрицы - Pascal
Пусть даны две вещественные матрицы порядка n. Получите новую матрицу следующим образом(для нахождения минимального элемента и произведения...


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

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

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