Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Записать строки файла f в файл g, поменяв порядок их следования на противоположный https://www.cyberforum.ru/ pascal/ thread2265591.html
1. Дан текстовый файл f. Записать строки файла f в файл g, поменяв порядок их следования на противоположный. 		Pascal Работа цикла for
Объясните пожалуйста, почему в цикле for второе значение Round(exp(p*ln(4)))-1 ? uses CRT, Graph; const p = 4; var gd, gm: Integer; i, j: Integer; x, y, l: Real;
Pascal Написать программу, которая для заданного с клавиатуры числа А ищет корень уравнения f(x)=0 https://www.cyberforum.ru/ pascal/ thread2265047.html
Написать программу, которая для заданного с клавиатуры числа А ищет корень уравнения f(x)=0. f(x)={(x*sqrt(1+a*a)/sqrt(1-a*a) -1,|a|<1 x*sqrt(1-a*a)/(sqrt(1+a*a)-1,|a|>1 		Pascal Сформировать одномерный массив, элементами которого являются строчные суммы исходной матрицы Дана целочисленная матрица А размерности 4×4. Требуется сформировать одномерный массив, элементами которого являются строчные суммы исходной матрицы. https://www.cyberforum.ru/ pascal/ thread2264952.html
Pascal Циклы без параметра
Помогите пожалуйста составить программу) Определить наименьшее значение натурального x, n-й многочлен Чебышева Tn (x) от которого >A (A и n задаются). 		Pascal Найти минимальный внедиагональный элемент матрицы и добавить его к максимальному элементу главной диагонали матрицы https://www.cyberforum.ru/ pascal/ thread2264533.html
Найти минимальный внедиагональный элемент матрицы и добавить его к максимальному элементу главной диагонали матрицы
Pascal Произвести действия с элементами матрицы по заданному условию https://www.cyberforum.ru/ pascal/ thread2264531.html
Если элементы главной диагонали расположены в порядке убывания модулей, то произвести транспонирование матрицы, в противном случае –найти сумму элементов каждой строки. 		Поменять местами наименьший по модулю и наибольший по степени 3 элементы матрицы Pascal
Поменять местами наименьший по модулю и наибольший по степени 3 элементы матрицы. Помогите, пожалуйста.
Pascal Расположить элементы матрицы заданным образом Дана целочисленная матрица А порядка N. Если минимальные элементы столбцов образуют неубывающую последовательность, то расположить в порядке возрастания элементы строк под главной диагональю, иначе – расположить в порядке возрастания элементы столбцов над побочной диагональю. https://www.cyberforum.ru/ pascal/ thread2264528.html Pascal Отсортировать массив различными методами https://www.cyberforum.ru/ pascal/ thread2264527.html
Дан целочисленный вектор А. Программно реализовать алгоритм размещения элементов вектора А в порядке убывания на основе методов сортировки: - линейный выбор; - линейный выбор с обменом; - быстрая сортировка.
Pascal МАССИВЫ
помогите, пожалуйста! очень срочно. все задачи на картинке. если что-то плохо видно, я напишу. 		Pascal Как четность длины массива влияет на результат рекурсивной функции? Задание: "Задан динамический массив целых чисел. Данные вводятся с клавиатуры. Подсчитать рекурсивно количество четных значений". Ответ правильный только, когда длина массива нечетная, если четная - ответ на 1 больше правильного. program Project2; {$APPTYPE CONSOLE} uses SysUtils; type Tarr = array of integer; function chet(arr:Tarr;i:integer):integer; https://www.cyberforum.ru/ pascal/ thread2264386.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
20.06.2018, 10:06 0

Найти среднее арифметическое элементов отмеченной области матрицы - Pascal - Ответ 12489826

20.06.2018, 10:06. Показов 621. Ответов 3
Метки (Все метки)

Ответ

Добавлено через 1 час 18 минут
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

var a:array[1..15,1..15] of real;
    n,k,i,j:integer;
    s:real;
begin
repeat
write('Введите размер матрицы от 3 до 15 n=');
readln(n);
until n in [3..15];
k:=0;
s:=0;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=9*random;
    if ((j<=i)and(j<=n-i+1))or((j>=i)and(i>n div 2))then
     begin
      k:=k+1;
      s:=s+a[i,j];
     end;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
s:=s/k;
write('Среднее арифметическое выделенной области=',s:0:2)
end.
Если бы как нормальный человек поместили бы тему в нужный подраздел Паскаля, можно было бы слегка разукрасить программу, вывести цветом выделенную область.

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

Найти процентное соотношение положительных и отрицательных элементов отмеченной области матрицы
Найти процентное соотношение положительных и отрицательных элементов отмеченной области матрицы.

Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали
Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых...

Найти среднее арифметическое отрицательных элементов матрицы
найти среднее арифметическое отрицательных элементов матрицы лежащей ниже главной диагонали и ...

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

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

Найти среднее арифметическое положительных элементов матрицы
Дается двумерный массив R, n, m &lt;= 12. Найти и вывести на экран средний положительный элемент с...

Найти среднее арифметическое элементов каждого из столбцов матрицы
Дана вещественная матрица размером n x m. Найти средне арифметическое элементов каждого из ее...

Найти среднее арифметическое наибольшего и наименьшего элементов матрицы
Дана действительная матрица 6*5. Найти среднее арифметическое ее наибольшего и наименьшего в ней...

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

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