Вычислить N степень каждого элемента этой матрицы( не могу понять что от меня хотят )

@19enf · Регистрация: 23.11.2012

Студворк — интернет-сервис помощи студентам

Даны натуральное N и элементы квадратной вещественной матрицы А пятого порядка.
Вычислить N-ю степень каждого элемента этой матрицы ( $https://www.cyberforum.ru/cgi-bin/latex.cgi?\large {A{i},{j}}^{1}=A{i},{j} ; {A{i},{j}}^{2}=A{i},{j}*A{i},{j} ; {A{i},{j}}^{3}={A{i},{j}}^{2}*A{i},{j}$ и тд , где i,j=1,2,...,5)

Как я понимаю, у нас матрица 5 на 5 ; а дальше я не могу домозговать что от меня хотят))

Помогите разобраться.

@Das Gespenst · 11.01.2013, 02:06

Действительно, условие немного необычное О_о
Но я думаю так:

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
uses crt;
var i,j,n:integer;
a:array [1..5,1..5] of integer;
begin
     clrscr;
     writeln('Ââîä ýëåìåíòîâ ìàòðèöû');
     for i:=1 to 5 do
         for j:=1 to 5 do
             begin
                  write('a[',i,',',j,']=');
                  readln(a[i,j]);
             end;
     clrscr;
     write('Ñòåïåíü: ');
     readln(n);
     writeln('Èñõîäíàÿ ìàòðèöà');
     for i:=1 to 5 do
         begin
              for j:=1 to 5 do
                  write(a[i,j],' ');
              writeln;
         end;
     writeln('Ðåçóëüòàò');
     for i:=1 to 5 do
         begin
              for j:=1 to 5 do
                  begin
                       a[i,j]:=trunc(exp(n*ln(a[i,j])));
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
end.

@19enf · 17.01.2013, 10:55 **[ТС]**

Das Gespenst, как оказалось, задание не совсем такое)
тут не не каждое число надо возводить в степень N,а что то другое.
не знаю что тут думать даже)

@Puporev · 17.01.2013, 11:00

Сообщение от 19enf

тут не не каждое число надо возводить в степень N,а что то другое.

Ну тогда на форум экстрасенсов...

@19enf · 17.01.2013, 11:40 **[ТС]**

Сообщение от Puporev

Ну тогда на форум экстрасенсов...

хаха))
точно. меня всегда эти методички "радовали" )))

Добавлено через 29 минут
Puporev, в след подпункте к этой проге просят переделать ее с использованием процедуры.
в процедуре сделать формирование массива? или как

Добавлено через 7 минут
"переделать ее с использованием процедуры с параметрами-массивами для двух наборов исходных данных"

@19enf · 17.01.2013, 12:08 **[ТС]**

Написать прогу для задачи с выделением алгоритма обработки или формирования массива.
Организовать вызов процедуры с параметрами -массивами для двух наборов исходных данных.
Само задание для той лабы , которую надо переделать(
Вычислить 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
 program lab7_1;
uses crt;
var i,j,n:integer;
a:array [1..5,1..5] of integer;  //cначала строки потом слобцы описываются
begin
     clrscr;
     writeln('Ввод элементов матрицы');
     for i:=1 to 5 do
         for j:=1 to 5 do
             begin
                  write('a[',i,',',j,']=');
                  readln(a[i,j]);
             end;
     clrscr;
     write('Степень: ');
     readln(n);
     writeln('Исходная матрица');
     for i:=1 to 5 do
         begin
              for j:=1 to 5 do
                  write(a[i,j],' ');
              writeln;
         end;
     writeln('Результат');
     for i:=1 to 5 do
         begin
              for j:=1 to 5 do
                  begin
                       a[i,j]:=trunc(exp(n*ln(a[i,j]))); // решил проблему когда пишет типо что нельзя преобразовать тип реал к интегер
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
end.

@Taftis · 17.01.2013, 14:22

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
var i,j,n:integer;
a:array [1..5,1..5] of integer;  //cíà÷àëà ñòðîêè ïîòîì ñëîáöû îïèñûâàþòñÿ
procedure VVV;
begin
     clrscr;
     writeln('Ââîä ýëåìåíòîâ ìàòðèöû');
     for i:=1 to 5 do
         for j:=1 to 5 do
             begin
                  write('a[',i,',',j,']=');
                  readln(a[i,j]);
             end;
     clrscr;
     write('Ñòåïåíü: ');
     readln(n);
     writeln('Èñõîäíàÿ ìàòðèöà');
     for i:=1 to 5 do
         begin
              for j:=1 to 5 do
                  write(a[i,j],' ');
              writeln;
         end;
end;
procedure VARA;
begin
     writeln('Ðåçóëüòàò');
     for i:=1 to 5 do
         begin
              for j:=1 to 5 do
                  begin
                       a[i,j]:=trunc(exp(n*ln(a[i,j]))); // ðåøèë ïðîáëåìó êîãäà ïèøåò òèïî ÷òî íåëüçÿ ïðåîáðàçîâàòü òèï ðåàë ê èíòåãåð
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
end;
begin
VVV;VARA;
end.

Добавлено через 3 минуты
у меня 2 процедуры 1 для ввода и вывода матрицы
2 для поднесения в степень

Добавлено через 9 минут
Модераторы вопрос к вам а это нормально что задание висит и тут и на фрилансе??

@19enf · 17.01.2013, 18:15 **[ТС]**

Taftis,

Сообщение от Taftis

Модераторы вопрос к вам а это нормально что задание висит и тут и на фрилансе??

спасибо , что написали. затупил

)

@Puporev · 17.01.2013, 18:26

Сообщение от Taftis

а это нормально что задание висит и тут и на фрилансе??

Нормально. Вдруг решат на халяву. Но если ТС сам не знает условия, то вряд ли ему хоть где-то решат.

@19enf · 17.01.2013, 19:26 **[ТС]**

Puporev, как говорится, давайте жить дружно ))))

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@19enf 6 / 6 / 0 Регистрация: 23.11.2012 Сообщений: 50

	Вычислить N степень каждого элемента этой матрицы( не могу понять что от меня хотят ) 10.01.2013, 20:16. Показов 1731. Ответов 9 Метки нет (Все метки) Даны натуральное N и элементы квадратной вещественной матрицы А пятого порядка. Вычислить N-ю степень каждого элемента этой матрицы ( $https://www.cyberforum.ru/cgi-bin/latex.cgi?\large {A{i},{j}}^{1}=A{i},{j} ; {A{i},{j}}^{2}=A{i},{j}A{i},{j} ; {A{i},{j}}^{3}={A{i},{j}}^{2}A{i},{j}$ и тд , где i,j=1,2,...,5) Как я понимаю, у нас матрица 5 на 5 ; а дальше я не могу домозговать что от меня хотят)) Помогите разобраться. Миниатюры 0

@19enf 6 / 6 / 0 Регистрация: 23.11.2012 Сообщений: 50
	17.01.2013, 10:55 [ТС]
	Das Gespenst, как оказалось, задание не совсем такое) тут не не каждое число надо возводить в степень N,а что то другое. не знаю что тут думать даже) 0

@19enf 6 / 6 / 0 Регистрация: 23.11.2012 Сообщений: 50
	17.01.2013, 19:26 [ТС]
	Puporev, как говорится, давайте жить дружно )))) 0