Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
nikiviki1609
0 / 0 / 0
Регистрация: 28.04.2017
Сообщений: 3
#1

Вывести результаты преобразования матрицы - Pascal

28.04.2017, 13:03. Просмотров 128. Ответов 2
Метки нет (Все метки)


http://www.cyberforum.ru/pascal/thread72070.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.04.2017, 13:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести результаты преобразования матрицы (Pascal):

Матрицы, преобразования
так помогите решить задачу, я так понел её нада решать через присвоение?? и...

Матрицы, поиск и преобразования.
помогите пожалуйста задание- Дана целочисленная матрица A из N строк и N...

Подпрограмма преобразования квадратной матрицы.
http://img387.imageshack.us/img387/3426/imagenp.jpg Вот такое задание....

Массив вывести до и после преобразования
Ввести двумерный массив N A ×M . К элементам массива не кратным трём прибавить...

Как вывести результаты работы программы в текстовый файл в данной программе?
Разработать программу на языке Pascal. Заданный метод должен быть реализован в...

2
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27941 / 15659 / 960
Регистрация: 15.09.2009
Сообщений: 67,839
Записей в блоге: 78
28.04.2017, 13:06 #2
nikiviki1609, одна тема - один вопрос, читайте правила.
0
VladimirD
74 / 74 / 78
Регистрация: 30.12.2015
Сообщений: 226
28.04.2017, 14:17 #3
Лучший ответ Сообщение было отмечено nikiviki1609 как решение

Решение

magirus,

Кликните здесь для просмотра всего текста
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
const n=4;m=4;
  var 
      a:array [1..n,1..m] of integer; 
      b:array [1..n] of integer;
      i,j,kol,sum,pro:integer;
      sar:real;
begin
 //создание матрицы
  randomize;
  for i:=1 to n do 
    begin
      for j:=1 to m do begin a[i,j]:=random(100)-25;write(a[i,j]:4);end;
      writeln; //переход на новую строку
    end;
 
  // а
  writeln;
  sum:=0;kol:=0;
  for i:=1 to n do 
    for j:=1 to m do
      if (a[i,j]>=-10) and (a[i,j]<=5) then 
        begin 
          sum:=sum+a[i,j]; kol:=kol+1;
        end;
  writeln('sum=',sum,' kol=',kol);
 
  // б
  writeln;
  for i:=1 to n do begin
    b[i]:=0; 
    for j:=1 to m do 
      b[j]:=b[j]+a[i,j];
    end;  
  for i:=1 to n do write(b[i]:4);     
  
  
  // в
  writeln;
  sum:=0;kol:=0;
  for i:=1 to n do 
    for j:=1 to m do 
      if a[i,j]>0 then
        begin 
          sum:=sum+a[i,j];
          kol:=kol+1;
          sar:=sum/kol;
        end;
  writeln('сред арифметическое=',sar:4:1);  
  
  // г
  writeln;
  sum:=0;pro:=1;
    for j:=1 to m do 
        begin 
          sum:=sum+a[i,3];
          pro:=pro*a[i,3];
        end;
        
  writeln('сумма=',sum);
  writeln('произв=',pro);        
        
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.04.2017, 14:17
Привет! Вот еще темы с решениями:

Найти номера наибольших элементов каждой строки матрицы, результаты записать в вектор Fmax
Помогите решить пожалуйста!!! Дана матрица F размером mхn. Найти номера...

Дан массив Х(16). Умножить все элементы данного массива на максимальный и вывести результаты в таком порядке, в каком были даны исходные данные.
Дан массив Х(16).умножить все элементы данного массива на максимальный ,и...

Ввести файл. Каждый четный элемент в файле заменить результатом его целочисленного деления на 5. Файл вывести до и после преобразования
Доброго времени суток, форумчане! Код написал. Не работает. выдает один и тот...

Найти в каждом столбце матрицы max и min элементы матрицы и вывести новую матрицу на экран
S (3,3) найти в каждом столбце матрицы max и min элементы матрицы и вывести...


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

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

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