Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в заштрихованной части Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в заштрихованной части. https://www.cyberforum.ru/ turbo-pascal/ thread737510.html Найти максимальное число успешных наборов номера между двумя любыми отказами Turbo Pascal
В течение 12 часов абонент набирает номер телефона (один набор в час). Установление связи отмечается цифрой 1, отказ - цифрой 0. Определить: а) число наборов до первого отказа, б) максимальное число успешных наборов между двумя любыми отказами.
Turbo Pascal Упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейного выбора с обменом Дана целочисленная матрица A размерности . Если минимальный элемент матрицы встречается более 3 раз и один из них находится над побочной диагональю, то упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейного выбора с обменом. В противном случае матрицу оставить без изменения. https://www.cyberforum.ru/ turbo-pascal/ thread737504.html Turbo Pascal Табуляция функции Нужно сделать табуляцию функиции, причем вычисления функции нужно сделать в отдельной подпрограмме-функции. Значения которые выходят меня смущают(очень большие). Вот само задание y=e^(sqr(x)-5)/(x-1), при x(1;4]. А вот мой код, посмотрите и помогите. С уважением, Анатолий. const k1 = 1; l1 = 4; https://www.cyberforum.ru/ turbo-pascal/ thread737484.html
Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных элементов вектора А Turbo Pascal
Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных элементов вектора А.
Turbo Pascal Вывести на экран наиболее часто встречающийся элемент . Если таких элементов несколько , то вывести все. https://www.cyberforum.ru/ turbo-pascal/ thread737465.html
Дан символьный массив . Вывести на экран наиболее часто встречающийся элемент . Если таких элементов несколько , то вывести все. ( в данной лабораторной использовать массивы).
Turbo Pascal Найти самое длинное слово из цифр Дана строка в которой есть буквы , цифры и слова(состоящие только из букв или из цифр) .Ввод данных с клавиаиуры. Найти самое длинное слово из цифр и напечатать его. Заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread737460.html дан целочисленный массив b1,b2,.,bn. если элементы этого массива не образуют убывающей последовательности, то заменить его отрицательные элементы ед Turbo Pascal
Помогите пожалуйста очень срочно, за ранее спасибо)
Turbo Pascal Процедура. Вычислить и запомнить количество отрицательных элементов каждого столбца для матриц https://www.cyberforum.ru/ turbo-pascal/ thread737455.html
Выполнить программу, использующую подпрограмму - процедуру: Вычислить и запомнить кол-во отрицательных элементов каждого столбца для матриц A(10,10) и B(15,20). Пытался сам, но не получилось. Помогите, пожалуйста.
Turbo Pascal Неверный выход из процедуры Ребят, я написал прогу. Разбита она по процедурам. В конце первой процедуры, прога предлагает сохранить результат. Независимо от выбора пользователя она должна выйти в основное меню, но этого не происходит. Пересмотрел кучу раз, но ляпа не нашел. прогу и файлы для проги прибпвляю рабочий пока только первый пункт меню - продольая подача program main_prog; uses crt; var r:integer;... https://www.cyberforum.ru/ turbo-pascal/ thread737440.html
Turbo Pascal Типизированные файлы
на примере каких либо студенческих групп создать файл бд содержащие запись следующего вида номер группы,номер семестра,предмет,где поле предметы представляет собой список произвольной длины с элементами: название примета,кафедра, фамилия лектора. Кто нибудь может помочь?
Turbo Pascal 5 примеров,2 кое-как сделал сам,а остальные Ребят в общем нужна помощь с паскалем,задали в универе боюсь что-то накосячить прошу помощи,Нужно выполнить следующие задания,где нет задания значит пример просто написать на языке программирования паскаль,очень надеюсь на вашу помощь на четверг нужно сдать не успеваю сам(Пишу сам щас физику и матан очень,очень прошу помогите.Примеры: ... https://www.cyberforum.ru/ turbo-pascal/ thread737412.html
0 / 0 / 0
Регистрация: 09.10.2012
Сообщений: 23
0

Если среднее арифметическое элементов первой строки превышает среднее арифметическое элементов всей матрицы, то упорядочить столбцы матрицы по возрас - Turbo Pascal - Ответ 3880587

18.12.2012, 22:41. Показов 585. Ответов 0
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Дана действительная матрица A размерности (m x n) . Если среднее арифметическое элементов первой строки превышает среднее арифметическое элементов всей матрицы, то упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейного выбора с обменом. В противном случае матрицу оставить без изменения.
Помогите!!!

Програмку написал методом пузырька, своим без понятия как. И как записать чтобы максимальные элементы выводило в одну строку, а не столбцом как здесь!

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
program vp_2_1;
 uses crt;
 type
  matr = array [1..50,1..50] of real;
 var
  a:array [1..50,1..50] of integer;
  b:array [1..50] of integer;
  s1, sm : real;
  i, j, m, n, max, c, k : integer;
 begin
 clrscr;
 writeln('Vvedite razmernost matrizi:');
 write('Chislo strok M:');readln(m);
 write('Chislo stolbzov N:');readln(n);
 for i:=1 to m do
 for j:=1 to n do
  begin
   write('a[',i,j,']:');
   readln(a[i,j]);
  end;
 clrscr;
 
 writeln( ' Ishodnaya matriza : ' );
 for i:=1 to m do
  begin
   for j:=1 to n do
    write('   ',a[i,j]:4);
   writeln;
  end;
 
 writeln;
 for j:=1 to n do
begin
 max:=a[1,j];
 b[j+1]:=max;
 for i:=1 to n do
  if a[i,j]>max then
   max:=a[i,j];
  writeln(' Maximalnie elementi v stolbcah : ',max) ;
end;
 
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if i=1 then s1:=s1+a[i,j];
    sm:=sm+a[i,j];
   end;
  writeln;
 end;
s1:=s1/n;
sm:=sm/(m*n);
writeln(' Srednee arifmeticheskoe pervoi stroki : ',s1:0:2);
writeln(' Srednee arifmeticheskoe vsei matrizi : ',sm:0:2);
 
if s1 > sm then
for k:=1 to n-1 do
 for j:=1 to n-k do
  if (b[j]>b[j+1]) then
  begin
   for i:=1 to n do
    begin
     c:=a[i,j];
     a[i,j]:=a[i,j+1];
     a[i,j+1]:=c;
    end;
   c:=b[j];
   b[j]:=b[j+1];
   b[j+1]:=c;
  end;
 
 writeln;
 writeln( ' Otsortirovannaya matriza : ' );
 for i:=1 to m do
 begin
  for j:=1 to n do
   write('   ',a[i,j]:4);
  writeln;
 end;
 
  writeln;
 for j:=1 to n do
begin
 max:=a[1,j];
 for i:=1 to n do
  if a[i,j]>max then
   max:=a[i,j];
  writeln(' Maximalnie elementi ',j,' stolbca : ',max) ;
 b[j]:=max;
end;
 
 readln;
 end.


Вернуться к обсуждению:
Если среднее арифметическое элементов первой строки превышает среднее арифметическое элементов всей матрицы, то упорядочить столбцы матрицы по возрас Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2012, 22:41
Готовые ответы и решения:

Сколько элементов матрицы размера МхN превышает среднее арифметическое последней строки.
Выяснить сколько элементов матрицы размера МхN превышает среднее арифметическое последней...

Выяснить сколько элементов матрицы размера МхN превышает среднее арифметическое последней строки
Выяснить сколько элементов матрицы размера МхN превышает среднее арифметическое последней...

Найти среднее арифметическое элементов каждой строки матрицы Q (lm) и отнять его от элементов этой строки. размер матрицы 7х7.заранее спасибо
Найти среднее арифметическое элементов каждой строки матрицы Q (lm) и отнять его от элементов этой...

Найти среднее арифметическое первой и среднее квадратичное последней строки матрицы
В матрице 10х10 вещественных чисел от 0 до 5 найти среднее арифметическое первой и среднее...

0
18.12.2012, 22:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2012, 22:41
Помогаю со студенческими работами здесь

Найти среднее арифметическое первой и среднее квадратичное последней строки матрицы
В матрице 10х10 вещественных чисел от 0 до 5 найти среднее арифметическое первой и среднее...

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

Определить: среднее арифметическое элементов n-го столбца и сумму квадратов элементов k-й строки матрицы
Дан двумерный массив. Определить: среднее арифметическое элементов n-го столбца массива и сумму...

Определить среднее арифметическое элементов матрицы, переставить строки по убыванию числа ненулевых элементов
Дана матрица А(m, n), 1<(m, n)<10. Определить среднее арифметическое элементов матрицы. Переставить...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru