Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Anka11
1 / 2 / 3
Регистрация: 24.12.2012
Сообщений: 61
#1

Найти среднеарифметическое каждого из столбцов и количество столбов, у которых среднеарифметическое больше элемента побочной диагонали - Turbo Pascal

08.01.2013, 15:29. Просмотров 448. Ответов 6
Метки нет (Все метки)

Ребятушки,можете помочь, проверить правильно ли сделаты программы, я сама толком не разбираюсь Помогите пожалуйста,срочно нужно! задачи по массивам

Дана матрица А[10б10].Найти среднеарифметическое каждого из столбцов и количество столбов, у которых среднеарифметическое больше элемента побочной диагонали.

Дана матрица R[9, 9]. Найти седловые точки. Элемент матрицы называется седловой точкой, если он минимальный в своей строке и максимальный в своем столбце.

Дан массив X из 30 элементов. Вычислить:
y=x1-x1*x2+x1*x2*x3-x1*x2*x3*x4+....-x1*x2*x3*...xn

Найти среднеарифметическое каждого из столбцов и количество столбов, у которых среднеарифметическое больше элемента побочной диагонали

к ним идет задание!ПРОШУ ПОМОЩИ!!!

 Комментарий модератора 
Anka11, рекомендую ознакомиться с правилами форума:
1) один вопрос - одна тема. остальные задания вынесены в отдельные темы
2) текстовые задания набирайте от руки
3) задания решаются на форуме (решения заданий проверяются также на форуме). если планируете общаться через личку - вам во фриланс
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2013, 15:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти среднеарифметическое каждого из столбцов и количество столбов, у которых среднеарифметическое больше элемента побочной диагонали (Turbo Pascal):

Найти среднеарифметическое каждого столбца матрицы
дано натуральное число n действительной матрица размером mxn/ Найдите...

В двумерном массиве найти среднеарифметическое элементов каждого столбца
в двумерном массиве нужно найти среднеарифметическое элементов каждого столбца...

Найти среднеарифметическое элементов каждого из массивов и вывести на экран большее значение
Даны два массива. Найти среднеарифметическое элементов каждого из массивов и...

В массиве найти два члена среднеарифметическое которых близко к знач. Х.
Помогите решить задачку с массивом пожалуйста :) Даны вещественное число X и...

В одномерном массиве найти среднеарифметическое и номер элемента, ближайшего к среднему по значению
В одномерном массиве найти среднеарифметическое и номер элемента, ближайшего к...

Элементы массива больше, чем среднеарифметическое
Элементы массива больше, чем среднеарифметическое значение всех элементов,...

6
Anka11
1 / 2 / 3
Регистрация: 24.12.2012
Сообщений: 61
08.01.2013, 15:46  [ТС] #2
удалились ссылки , но вот они:
http://pastebin.com/vrdvSdYP
http://pastebin.com/Wv9hFW1A
http://pastebin.com/nEvbuU9A
http://pastebin.com/BmF3r69X

кто согласиться помочь кину задания в личку....ЖДУ ПОМОЩИ И ВЕРЮ ЧТО ЕЩЕ ЕСТЬ ДОБРЫЕ ЛЮДИ!
0
senich
61 / 61 / 77
Регистрация: 22.11.2012
Сообщений: 241
Записей в блоге: 1
08.01.2013, 16:01 #3
Вариант 2 номер 1.
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
Anka11
1 / 2 / 3
Регистрация: 24.12.2012
Сообщений: 61
08.01.2013, 16:10  [ТС] #4
А остальные как?
0
senich
61 / 61 / 77
Регистрация: 22.11.2012
Сообщений: 241
Записей в блоге: 1
08.01.2013, 16:14 #5
Задание с картинки номер 3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const n=30;
var
mas:array[1..n] of integer;
i,x:integer;
BEGIN
  randomize;
  writeln('Массив:');
  for i:=1 to n do
    begin
    mas[i]:=random(11);
    write(mas[i]:3);
    if (i mod 10 =0) then writeln;
    end;
  for i:=3 to n-1 do
    x:=mas[i-2]-mas[i-2]*mas[i-1]+mas[i-2]*mas[i-1]*mas[i]-mas[i-2]*mas[i-1]*mas[i]*mas[i+1];
  writeln('X=',x);
  readln;
END.
1
Anka11
1 / 2 / 3
Регистрация: 24.12.2012
Сообщений: 61
09.01.2013, 13:33  [ТС] #6
Спасибо, так понятнее! если вам не сложно,можете еще 2 другие.... оказывается еще есть добрые люди
0
HighPredator
13.01.2013, 15:23     Найти среднеарифметическое каждого из столбцов и количество столбов, у которых среднеарифметическое больше элемента побочной диагонали
  #7
 Комментарий модератора 
Anka11, один вопрос - одна тема. Закрыто.
0
13.01.2013, 15:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2013, 15:23
Привет! Вот еще темы с ответами:

Среднеарифметическое значение положительных элементов каждого столбца
Дана матрица размерностью m*n. Составить блок – схему алгоритма для...

Найти количество столбов матрицы, в которых все элементы равны нулю
составить программу согласно следующему условию. Дана целочисленная матрица А...

Найти среднеарифметическое 4-х чисел файла
Задача: 1) Создать типизированный файл чисел типа real; 2) Заполнить его; ...

Найти сумму всех элементов массива, количество положительных и отрицательных чисел и среднеарифметическое отрицательных чисел
заранее всем спасибо буду признателен за любую помощь


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

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

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