PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Как заблокировать клавиши на клавиатуре? https://www.cyberforum.ru/ pascalabc-net/ thread2234821.html Мне нужно чтоб в этой части программы. На клавиатуре нажимались только 1,2,3,4,5,0 и всё. Я знаю можно сделать через If, но можно как-то по проще это устроить?(блокировки требует условие задачи) repeat ClrScr; TextColor(green); ...	Преобразование строк в текстовом файле. PascalABC.NET Дан текстовый файл, содержащий несколько строк, составленных более чем из пяти слов. Создать результирующий файл, записав в каждую строку этого файла сначала самое длинное слово этой строки исходного файла, а затем самое короткое слово этой же строки.
PascalABC.NET Дано действительное число ε (ε>0). Последовательность образована по следующему закону https://www.cyberforum.ru/ pascalabc-net/ thread2234793.html Дано действительное число ε (ε>0). Последовательность a1,a2,...an образована по следующему закону (см. вложения) Найти первый член an (n≥2), для которого выполнено условие \|an - a(n-1) <ε\|. Постарайтесь обойтись без массивов – в задаче нет необходимости сохранения значений ai.	PascalABC.NET Даны действительные числа x, ε (x≠ε, ε>0). Вычислить с точностью ε https://www.cyberforum.ru/ pascalabc-net/ thread2234775.html Даны действительные числа x, ε (x≠ε, ε>0). Вычислить с точностью ε. Формулу смотрите во вложениях.
PascalABC.NET Циклы: найти все автоморфные числа на заданном интервале Решить используя несколько вложенных циклов. На множестве натуральных чисел от A до B найти все автоморфные числа и их количество. Число называется автоморфным, если квадрат этого числа оканчивается на само число. Например, число 25 (252 = 625). A и B вводятся с клавиатуры, если искомых чисел нет вывести об этом сообщение.	PascalABC.NET Рекурсивная функция числа в n степени program zdarova; var a,n,k:longint; function step(x,t:integer):longint; var p:longint; begin if a=0 then step:=1 else step:=a*step(a,n-1); step:=p; end; begin https://www.cyberforum.ru/ pascalabc-net/ thread2234750.html
PascalABC.NET В заданном двоичном дереве подсчитайте число элементов в 2 раза больших минимального элемента В заданном двоичном дереве подсчитайте число элементов в 2 раза больших минимального элемента. https://www.cyberforum.ru/ pascalabc-net/ thread2234736.html	Кольцевой список PascalABC.NET Дан список студентов. Элемент списка имеют информацию: об ФИО, № курса, оценки по 5 экзаменов. Вывести информацию о начислений стипендию, представляя, что отличникам выплачивается сумма S1, студентам, у которых оценки «5» и «4» - S2, студентам, которые имеют тройки - не выплачивается. (методом кольцевого списка) Помогите пожалуйста
PascalABC.NET Кодирование и декодирование строк по правилу цезаревской подстановки https://www.cyberforum.ru/ pascalabc-net/ thread2234679.html Реализуйте кодирование и декодирование строк по правилу цезаревской подстановки. С клавиатуры вводится строка, которая должна состоять из маленьких букв латинского алфавита. Программа зашифровывает эту строку согласно правилам цезаревской подстановки, и записывает результат во вторую строку. Затем в третью строку записывается дешифровка второй строки. Шифрованная и дешифрованная строки выводятся...	PascalABC.NET Pascal Чертёжник https://www.cyberforum.ru/ pascalabc-net/ thread2234661.html Pascal Чертёжник, помогите пожалуйста решить написать программу, ниже прикреплен файл. Задача сс9
PascalABC.NET Задача с сортировкой массива Помогите решить плз Дан целочисленный массив размера N. Упорядочить этот массив по неубыванию элементов методом «Пузырька»; методом поиска максимального элемента и перемещения его в конец массива; методом вставки текущего элемента на соответствующее место в уже упорядоченный фрагмент массива. Вывести новый массив в строку.	PascalABC.NET Задачи с сортировкой массивов https://www.cyberforum.ru/ pascalabc-net/ thread2234429.html Люди добрые, помогите решить все это, плз Дан целочисленный массив размера N. Упорядочить этот массив по неубыванию элементов методом «Пузырька»; методом поиска максимального элемента и перемещения его в конец массива; методом вставки текущего элемента на соответствующее место в уже упорядоченный фрагмент массива. Вывести новый массив в строку. Даны два массива A и B из N и M случайных...

Puporev

Почетный модератор

64291 / 47589 / 32740

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

Сообщений: 115,181

25.04.2018, 10:24

Дана действительная матрица . Получить действительную матрицу, элемент которой равен сумме элементов данной матрицы - PascalABC.NET - Ответ 12338247

25.04.2018, 10:24. Показов 3301. Ответов 1

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

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

Решение

Pascal

var a,b:array[1..10,1..10] of real;
    n:integer;
begin
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
randomize;
writeln('Матрица А');
for var i:=1 to n do
 begin
  for var j:=1 to n do
   begin
    a[i,j]:=3*random;
    write(a[i,j]:7:2);
   end;
  writeln;
 end;
writeln('Матрица В');
for var i:=1 to n do
 begin
  for var j:=1 to n do
   begin
    b[i,j]:=0;
    for var ii:=i to n do
    for var jj:=1 to j do
    b[i,j]:=b[i,j]+a[ii,jj];
    write(b[i,j]:7:2);
   end;
  writeln;
 end;
end.

Вернуться к обсуждению:
Дана действительная матрица . Получить действительную матрицу, элемент которой равен сумме элементов данной матрицы PascalABC.NET

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.04.2018, 10:24

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

Получить новую матрицу {b ij} n, n, элемент bij которой равен сумме элементов данной матрицы
Данная Действительная квадратная матрица {a ij} n, n. Получить новую матрицу {b ij} n, n, элемент...

Получить квадратную матрицу, элемент которой равен сумме элементов данной матрицы, расположенных в области
Дана квадратная марица действительных числе размерности n(n<=15). Получить квадратную матрицу,...

Получить действительную матрицу [Bi,j ], элемент которой b[i,j] равен наибольшему элементу данной матрицы, расположенному в области, определяемой инде
Объясните пожалуйста, как решить такую задачку Дана действительная матрица размера nxn. ...

Построить матрицу B, элемент bij которой равен сумме элементов данной матрицы
Дана квадратная матрица А n-го порядка. Построить матрицу B, элемент bij которой равен сумме...

	25.04.2018, 10:24

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.04.2018, 10:24

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

Построить матрицу элемент bij которой равен сумме элементов данной матрицы, расположенных в заштрихованной области
Дана действительная матрица . i,j=1,...,n. Получить действительную матрицу i,j=1,...,n, элемент...

Дана действительная матрица размера a1...a64. Получить действительную матрицу порядка 8:
Дана действительная матрица размера a1...a64. Получить действительную матрицу порядка 8: Всю...

Массив: Вывести матрицу, у которой каждый элемент равен сумме элементов матрицы на заданных позициях...
Всем еще раз добрый день. Есть задача: Напишите программу, на вход которой подаётся...

Вывести матрицу того же размера, у которой каждый элемент в позиции i, j равен сумме элементов первой матрицы
Напишите программу, на вход которой подаётся прямоугольная матрица в виде последовательности строк,...

Наверх