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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
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). http://www.cyberforum.ru/cpp-beginners/thread1193012.html
При создании объекта структуры не вызываются конструкторы C++
Есть класс Время. У него есть два конструктора. Создал структуру struct List { Time a; List *next; }; При создании объекта структуры не могу вызвать конструкторы(при передачи аргументов),...
Run-Time Check Failure #2 - Stack around the variable 'C' was corrupted C++
#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++) {
C++ Даны действительные числа a1, ., an. (n>=2 и заранее неизвестно). Выяснить, имеются ли среди чисел a1, ., http://www.cyberforum.ru/cpp-beginners/thread1192973.html
Даны действительные числа a1, ..., an. (n>=2 и заранее неизвестно). Выяснить, имеются ли среди чисел a1, ..., an совпадающие.
C++ Где неправильно составил блок схему? 1.Три отрезка заданы длинами. Определить, можно ли построить из них треугольник, если - да, то вычислить радиус круга, имеющего такую же, как у треугольника площадь 2.Вывести на экран сообщение в... подробнее

Показать сообщение отдельно
Neriella
0 / 0 / 0
Регистрация: 17.11.2013
Сообщений: 9

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

29.05.2014, 22:52. Просмотров 251. Ответов 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;
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru