Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Реализовать игровое поле в игре "Тетрис" http://www.cyberforum.ru/cpp-beginners/thread1193015.html
Добрый вечер, писал программу тетрис, и ни как не могу исправить некоторые ошибки Что нужно: 1. Нужно поле игровое по центру консоли как на миниатюре. 2. Белый квадрат который на миниатюре, во...
C++ Даны действительные числа a1, ., a2n (n>=2 и заранее неизвестно). Получить: (a1- a2n)(a3- a2n-2)(a5- a2n-4)
Даны действительные числа a1, ..., a2n (n>=2 и заранее неизвестно). Получить: (a1- a2n)(a3- a2n-2)(a5- a2n-4)...(a2n-1 -a2).
При создании объекта структуры не вызываются конструкторы C++
Есть класс Время. У него есть два конструктора. Создал структуру struct List { Time a; List *next; }; При создании объекта структуры не могу вызвать конструкторы(при передачи аргументов),...
C++ Run-Time Check Failure #2 - Stack around the variable 'C' was corrupted #include <iostream> #include <iomanip> using namespace std; int main() { const int n=10; int i,A,B,C,k; srand((unsigned)time(NULL)); for (i=1;i<=n;i++) { http://www.cyberforum.ru/cpp-beginners/thread1192983.html
C++ Даны действительные числа a1, ., an. (n>=2 и заранее неизвестно). Выяснить, имеются ли среди чисел a1, ., http://www.cyberforum.ru/cpp-beginners/thread1192973.html
Даны действительные числа a1, ..., an. (n>=2 и заранее неизвестно). Выяснить, имеются ли среди чисел a1, ..., an совпадающие.
C++ Где неправильно составил блок схему?
1.Три отрезка заданы длинами. Определить, можно ли построить из них треугольник, если - да, то вычислить радиус круга, имеющего такую же, как у треугольника площадь 2.Вывести на экран сообщение в...
C++ Как вывести цифры на консоль ?
вывести на консоль cmd диапазон чисел от 120 до 163 в четыре столбца, используя цикл(ы)/ http://s1.ipicture.ru/uploads/20140529/DhSUEtx6.png
C++ Каждый элемент строки матрицы представить как приращение по отношению к минимальному элементу этой же строки Задание Каждый элемент строки прямоугольной матрицы представить как приращение по отношению к минимальному элементу этой же строки. Определить значение и положение максимального элемента матрицы... http://www.cyberforum.ru/cpp-beginners/thread1192952.html
C++ Проверка числа на простоту (нужны комментарии) http://www.cyberforum.ru/cpp-beginners/thread1192947.html
объясните пожалуйста, как в данной функции выполняется проверка числа на простоту. как можно поподробнее bool Prime(int const num)// проверка числа на простоту { for(int i = 2; i <=...
C++ Перевод задачи из языка GPSS в C++ Помогите пожалуйста перевести задачу из GPSS в С++. Задача: "Пакеты достигают компьютерного узла сети связи со средним временем между двумя входами равным 5 мс и передаются адресату узла. Длина... http://www.cyberforum.ru/cpp-beginners/thread1192942.html
Neriella
0 / 0 / 0
Регистрация: 17.11.2013
Сообщений: 9
0

Среднеарифметическое каждого столбца матрицы: перевод программы с Pascal

29.05.2014, 22:52. Просмотров 305. Ответов 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
const n=10;
var
mas:array[1..n,1..n] of integer;
srmas:array[1..n] of real;
i,j,m:integer;
sr:real;
BEGIN
  randomize;
  writeln('Матрица:');
  for i:=1 to n do
    begin
    for j:=1 to n do
      begin
      mas[i,j]:=random(51);
      write(mas[i,j]:3);
      end;
    writeln;
    end;
  for j:=1 to n do
    begin
    sr:=0;
    for i:=1 to n do
      sr:=sr+mas[i,j];
    srmas[j]:=sr/n;
    if srmas[j]>mas[j, n-j+1] then
      inc(m);
    end;
  writeln('Среднеарифметическое каждого столбца матрицы:');
  for i:=1 to n do
    write(srmas[i]:7:2);
  writeln;
  writeln('Кол-во столбцов, у которых ср.арифм. больше элемента побоч. диагонади=',m,'.');
  readln;
END.
Добавлено через 1 час 45 минут
Ну или просто помогите дописать.)
Задание звучит так: дана матрица 10х10. Найти среднеарифметическое каждого из столбцов и количество столбцов, у которых среднеарифметическое больше элемента побочной диагонали.

Я написала программу, которая ищет среднеарифметическое каждого из столбцов,а дальше не знаю как сделать =/

C++
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
#include "windows.h"
#include <iostream>
#include <ctime>
#include "conio.h"
using namespace std;
 
int main()
{
srand(static_cast<unsigned>(time(NULL)));
const int m=10, n=10;
int** A;
A=new int*[n];
for (int i=0; i<n; i++)
     A[i]=new int[m];
for (int i=0; i<n; i++)
{
    for (int j=0; j<m; j++)
    {
    A[i][j]=rand()%100+1;
    }
 
}
for (int i=0; i<n; i++)
{
    for (int j=0; j<m; j++)
    {
             cout<<A[i][j]<<endl;
             }
}
for (int j=0; j<m; j++)
{
    int sum=0;
     for (int i=0; i<n; i++)
     {
         sum+=A[i][j];
     }
 
cout<<"Srednearifmeticheskoe "<<j+1<<" stolbca: "<<static_cast<double>(sum)/n<<endl;
}
getch();
return 0;
}


Вернуться к обсуждению:
Среднеарифметическое каждого столбца матрицы: перевод программы с Pascal
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2014, 22:52
Готовые ответы и решения:

Вычесть из каждого столбца матрицы максимальный элемент для каждого столбца, и результат вывести в матрицу
Что нужно добавить , чтобы вычесть из каждого столбца матрицы максимальный элемент для каждого...

Разделить элементы каждого столбца заданной матрицы на последний элемент столбца
Разделить элементы каждого столбца заданной матрицы на последний элемент столбца.

Массив: Разделить элементы каждого столбца заданной матрицы на последний элемент столбца.
Разделить элементы каждого столбца заданной матрицы на последний элемент столбца. Полученную...

Определить сумму элементов каждого столбца левой половины и сумму элементов каждого четного столбца правой половины матрицы A
Матрица A (M кратно 4) разделена по вертикали на две половины. Определить сумму элементов каждого...

Перевод программы из Pascal на C++
program vlad; uses crt; var m:integer; a:real; begin clrscr; write('a: '); ...

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