0 / 0 / 0
Регистрация: 18.11.2015
Сообщений: 60

Составить процедуру для создания матрицы А

28.02.2016, 11:16. Показов 1493. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Как составить процедуру
Дан массив Х (8). Составить процедуру для создания матрицы А (8,8):
Название: latex.gif
Просмотров: 24

Размер: 1.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
program array1;
uses
  crt;
const
  n=8;
var
  x:array[1..n] of LongInt;
  a:array[1..n,1..n] of LongInt;
  i,j:longint;
begin
  randomize;
  for i:=1 to n do
    begin
      x[i]:=i;
      write(x[i]:4)
    end;
  writeln;
  writeln;
  for j:=1 to n do
    begin
      for i:=1 to n do
        begin
          a[i,j]:=round(exp(j*ln(x[i])));
          write(a[i,j]:9)
        end;
      writeln;
    end;
  readln;
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.02.2016, 11:16
Ответы с готовыми решениями:

Составить процедуру для получения из квадратной матрицы A(n,n), n<=6 матрицы B(n,n-1) путем вычеркивания элементов главной диагонали исходной
Помогите пожалуйста составить процедуру для Паскаля: Составить процедуру для получения из квадратной матрицы A(n,n), n&lt;=6 матрицы...

Процедура (Составить процедуру для нахождения макс. элемента матрицы)
Помогите написать программку. Задание: Составить процедуру для нахождения макс. элемента матрицы. Используя эту процедуру определить...

Составить процедуру для нахождения индексов максимального элемента квадратной матрицы
помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7808 / 4629 / 2834
Регистрация: 22.11.2013
Сообщений: 13,148
Записей в блоге: 1
28.02.2016, 11:56
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=8;
type
  TVector = array [1..n] of Longint;
  TMatrix = array [1..n] of TVector;
procedure mGen(const v: TVector; var m: TMatrix);
var i, j: Integer;
begin
  m[1]:=v;
  for i:=2 to n do for j:=1 to n do m[i,j]:=m[1,j]*m[i-1,j];
end;
var
  x: TVector;
  a: TMatrix;
  i, j: Integer;
begin
  for i:=1 to n do x[i]:=i; mGen(x,a);
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:9); WriteLn;
  end;
end.
Добавлено через 4 минуты
Исходный вариант без процедуры вполне мог быть таким:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const n=8;
type
  TVector = array [1..n] of Longint;
  TMatrix = array [1..n] of TVector;
var
  x: TVector;
  a: TMatrix;
  i, j: Integer;
begin
  for i:=1 to n do x[i]:=i;
  a[1]:=x; for i:=2 to n do for j:=1 to n do a[i,j]:=a[1,j]*a[i-1,j];
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:9); WriteLn;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.02.2016, 11:56
Помогаю со студенческими работами здесь

Составить процедуру и функцию для вычисления значений элементов матрицы по заданной формуле
Составить подпрограмму-процедуру и подпрограмму-функцию для вычисления значений элементов а ij матрицы A=|aij|nm по формуле aij=z(xi, yj,...

Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n)
Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n) (процедура только для произведения)

Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы
Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы A(m*n) процедура только суммы.

Написать процедуру создания типизированного файла из первых строк целочисленной матрицы
Процедура создания файла типизированного из первых строк целочисленный матриц 4-го порядка, записанных в данном файле, имеет вид...

Подскажите процедуру для создания таблицы умножения
Подскажите пожалуйста процедуру для создания таблицы умножения в VBA,и чтобы msgbox выдавал кол-во правельных и неправильных ответов.И...


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

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

Новые блоги и статьи
Чем асинхронная логика (схемотехника) лучше тактируемой, как я думаю, что помимо энергоэффективности - ещё и безопасность.
Hrethgir 14.05.2025
Помимо огромного плюса в энергоэффективности, асинхронная логика - тотальный контроль над каждым совершённым тактом, а значит - безусловная безопасность, где безконтрольно не совершится ни одного. . .
Многопоточные приложения на C++
bytestream 14.05.2025
C++ всегда был языком, тесно работающим с железом, и потому особеннно эффективным для многопоточного программирования. Стандарт C++11 произвёл революцию, добавив в язык нативную поддержку потоков,. . .
Stack, Queue и Hashtable в C#
UnmanagedCoder 14.05.2025
Каждый опытный разработчик наверняка сталкивался с ситуацией, когда невинный на первый взгляд List<T> превращался в узкое горлышко всего приложения. Причина проста: универсальность – это прекрасно,. . .
Как использовать OAuth2 со Spring Security в Java
Javaican 14.05.2025
Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .
Анализ текста на Python с NLTK и Spacy
AI_Generated 14.05.2025
NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .
Реализация DI в PHP
Jason-Webb 13.05.2025
Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .
Обработка изображений в реальном времени на C# с OpenCV
stackOverflow 13.05.2025
Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .
POCO, ACE, Loki и другие продвинутые C++ библиотеки
NullReferenced 13.05.2025
В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C#
UnmanagedCoder 13.05.2025
Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .
Создаем CLI приложение на Python с Prompt Toolkit
py-thonny 13.05.2025
Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru