Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Найти сумму периметров и сумму площадей прямоугольников https://www.cyberforum.ru/ pascalabc/ thread400081.html 1.Составить программу в результате которой, величина А меняется значением с величиной В. А величина С с величиной Д. Использовать процедуру обмен значениями двух переменных. 2.Даны стороны двух прямоугольников . Найти сумму их периметров и сумму их площадей. Использовать процедуру для расчета периметра и площади прямоугольника. По его сторонам. 3.Используя процедуру нахождения суммы цифр...	Pascal ABC Ряд Тейлора Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора , на интерваое от "Xнач" до "Xкон" с шагом dx с точностью E. Таблицу снадбить заголовком и шапкой . Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда .
Pascal ABC Вычислить сумму элементов массива, расположенных между первым и последним нулевыми элементами https://www.cyberforum.ru/ pascalabc/ thread400061.html В одномерном массиве, состоящем из n целочисленных элементов.вычислить: 1)Сумму элементов массива, расположенных между первым и последним нулевыми элементами Преобразовать массив таким образом, чтобы сначала располагались все положительные элементы, а потом - все отрицательные ( элементы, равные нулю, считать положительными).	Pascal ABC Двумерные массивы и подпрограммы Задание Размерности массивов следует задать именованными константами. Все необходимые данные должны передаваться подпрограммам в качестве параметров; все величины, используемые только внутри подпрограмм, должны быть описаны как локальные. Использование глобальных переменных в подпрограммах не допускается. Вывод результатов работы подпрограмм должен выполняться в главной программе. 1)Элемент... https://www.cyberforum.ru/ pascalabc/ thread400056.html
Отсортировать столбцы матрицы по возрастанию значений элементов в первой строке Pascal ABC что то не работает((( выдает ошибку индекс находился вне границ массива....... задавать массив как нельзя.... обязательно вот код {Отсортировать столбцы двумерного массива чисел (n х m) по возрастанию значений элементов в первой строке} uses crt; type matr=array of integer; Procedure Input(var n,m:integer; var a:matr); var i,j:integer; Begin write('Введите количество строк...	Pascal ABC Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент https://www.cyberforum.ru/ pascalabc/ thread400037.html 1) для заданной матрицы размером 8х8 найти k , что k-я строка матрицы совпадает с k-v столбцом ( оформить в виде процедуры) 2) Найти сумму элементов в тех строках , которые содержат хотя бы один отрицательный элемент( оформить в виде функции) Добавлено через 30 минут помогите плз!)))
Pascal ABC текстовые файлы написала код. в нем весь текстовый файл записывается в одну строку. и в результирующий записывается все в одну строку. подскажите, как сделать это для каждой строки? вот код и задание.{В исходном текстовом файле записаны строки, содержащие произвольные алфавитно-цифровые символы. Требуется написать программу, которая для каждой строки исходного файла будет выводить в результирующий файл... https://www.cyberforum.ru/ pascalabc/ thread400036.html	Pascal ABC Пожалуйста помогите по ветвлению решить Даны уравнения прямых а1х+b1y=c1, a2x+b2y=c2, a3x+b3y=c3. Выяснить, какие из этих прямых перпендикулярны или указать, если таковых не имеется.
Pascal ABC Матрицы https://www.cyberforum.ru/ pascalabc/ thread399989.html В матрице размера 3*5найти среднее арифметическое значение в каждой строке помогите, пожалуйста. через полчаса контрольную сдать надо.	Pascal ABC Определить, является ли 8-чное число, введенное с клавиатуры четным https://www.cyberforum.ru/ pascalabc/ thread399983.html определить,является ли 8-чное число,введенное с клавиатуры четным.
Процедуры и функции: Упорядочить их по неубыванию методом фон Неймана Pascal ABC Дано n вещественных чисел (n = 100). Упорядочить их по неубыванию методом фон Неймана: завести два массива A и B и записать исходные числа в A; упорядочить пары соседних чисел (A1 и A2, A3 и A4 и т. д.) и записать их в B; взять из B по две соседние упорядоченные пары и, слив их в упорядоченные четверки, снова записать в A; затем каждые две соседние четверки из B слить в упорядоченные восьмерки и...	Pascal ABC Определить, сколько раз цифра встречается в числе Дано натуральное число. Сколько раз данная цифра А встречается в данном числе (А вводится с клавиатуры). Составить программу с While. https://www.cyberforum.ru/ pascalabc/ thread399978.html

Akcent2

18 / 18 / 14

Регистрация: 27.11.2011

Сообщений: 51

06.12.2011, 13:29

Массив: Для каждой строки заменить все элементы матрицы меньшие среднего арифметического этой строки на нулевое значение. - Pascal ABC - Ответ 2252846

06.12.2011, 13:29. Показов 1632. Ответов 1

Метки (Все метки)

Сообщение было отмечено Vampire110 как решение

Решение

Pascal

program zad;
uses crt;
 const n=5;
 const m=6;
      var
      a:array[1..n,1..m] of real;
      i,j,kol:integer;
      sr,sum:real;
       begin
 clrscr;
 for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(10)-2; write(a[i,j]:3:0); end;
 writeln; end;
 writeln;
  for i:=1 to n do begin
  sr:=0; sum:=0;
  for j:=1 to m do begin
  sum:=sum+a[i,j]; inc(kol); end;
   sr:=sum/kol;
   writeln('среднее арифметическое ',i,' строки=',sr:5:2);
   for j:=1 to m do
   if  a[i,j]<sr then a[i,j]:=0;
   end;
       writeln;
         for i:=1 to n do begin
         for j:=1 to m do begin
 write(a[i,j]:3:0); end;
 writeln; end;
 end.

Вернуться к обсуждению:
Массив: Для каждой строки заменить все элементы матрицы меньшие среднего арифметического этой строки на нулевое значение. Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.12.2011, 13:29

Готовые ответы и решения:

Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического
В одномерном массиве целых чисел заменить все элементы, меньшие среднего арифметического,значением...

В каждой строке матрицы определить количество элементов, больших среднего арифметического этой строки
дана вещественная матрица С размером 7 на 8 в каждой строке определить количество элементов больших...

Поделить все элементы каждой строки матрицы на наибольший по модулю элемент этой строки
массив размерностью m на n.поделить все элементы каждой строки на наибольший по модулю элемент этой...

Дан массив размерностью n*m. Поделить все элементы каждой строки на наибольший по модулю элемент этой строки
массив двумерный

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.12.2011, 13:29

Помогаю со студенческими работами здесь

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

В матрице заменить все элементы каждой строки на минимальный элемент в этой строке
Здравствуйте) Помогите пожалуйста с решением задачи с помощью процедур и функций: Дана матрица...

Разделить элементы каждой строки матрицы на максимальный элемент этой строки (с использованием подпрограмм)
Ввести двумерный массив вещественных чисел. Разделить элементы каждой строки матрицы на...

Поделить все элементы каждой строки массива на наибольший по модулю элемент этой строки
Дан массив размерностью n*m. Поделить все элементы каждой строки на наибольший по модулю элемент...

Наверх