Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Dina30
1 / 1 / 0
Регистрация: 29.12.2014
Сообщений: 34
#1

Даны натуральное число n, действительная матрица. Получить последовательность элементов главной диагонали - Turbo Pascal

29.12.2014, 15:33. Просмотров 1067. Ответов 17
Метки нет (Все метки)

Даны натуральное число n, действительная матрица[ai,i]i=1, ... ,n, j=1,…, n. Получить последовательность элементов главной диагонали a11, a22, ...,ann
На Паскале
http://www.cyberforum.ru/turbo-pascal/thread119365.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2014, 15:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Даны натуральное число n, действительная матрица. Получить последовательность элементов главной диагонали (Turbo Pascal):

Даны квадратная матрица порядка m, натуральное число n. Получить матрицу E+A+A2+A3+…+An
Даны квадратная матрица порядка m, натуральное число n. Получить матрицу...

Получить последовательность элементов главной диагонали матрицы
Дано натуральное число n, действительная матрица i,j=1,..,n. Получить...

Получить последовательность элементов главной диагонали матрицы
Дано натуральное число n, действительное матрицы i=1,...n получить...

Дана действительная квадратная матрица порядка 10. В строках с отрицательным элементом на главной диагонали найти сумму всех элементов.
Дана действительная квадратная матрица порядка 10. В строках с отрицательным...

Дана действительная матрица размера n на m. Получить последовательность b1,..,bn, где bk- это произведение квадратов тех элементов k-й строки
Дана действительная матрица размера n на m. Получить последовательность...

17
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
29.12.2014, 23:59 #2
элементарная задача
думаю раз 100 здесь поднималась

в чем сложность?
в var прописывать матрицу не умеете?
не умеете заполнять матрицу числами?
цикл не знаете что такое?

воспользуйтесь поиском, может даже найдете решение своей задачи
0
Dina30
1 / 1 / 0
Регистрация: 29.12.2014
Сообщений: 34
30.12.2014, 02:57  [ТС] #3
Fakeoke, если сюда пишу, значит не знаю... Помогите пожалуйста если не трудно) буду благодарна)
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
30.12.2014, 09:06 #4
Просто вывести:
http://www.cyberforum.ru/delphi-beginners/thread123582.html
Переписать в массив:
http://www.cyberforum.ru/turbo-pascal/thread725367.html
0
Dina30
1 / 1 / 0
Регистрация: 29.12.2014
Сообщений: 34
05.01.2015, 10:17  [ТС] #5
ZX Spectrum-128, как сделать через random? Помогите!
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
05.01.2015, 10:29 #6
Dina30, а что через random-то? Вы же программу вашу не положили, чтобы переделать.

Добавлено через 29 секунд
А-а-а-а.
По которой из ссылок нужно переделать?

Добавлено через 4 минуты
(С) Kodzaev

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
Uses crt;
Var
  a: Array[1..10,1..10] of Integer;
  y: Array[1..10] of Integer;
  i,n,max,j: Integer;
BEGIN
Write('Введите размер N матрицы: '); Readln(n);
For i:=1 to n do
For j:=1 to n do
  a[i,j]:=random(100)-50;
Clrscr;
Writeln('Матрица:');
For i:=1 to n do
begin
  y[i]:=a[i,i];
  For j:=1 to n do
  Write(a[i,j]:4);
  Writeln
end;
Writeln('Одномерный массив Y: ');
For i:=1 to n do
begin
  Write(y[i],' ');
end;
Readln
END.
0
Dina30
1 / 1 / 0
Регистрация: 29.12.2014
Сообщений: 34
05.01.2015, 10:39  [ТС] #7
ZX Spectrum-128, ну надо же сначала чтоб генерация случайных чисел была, потом чтобы главная диагональ последовательна была. Помогите

Добавлено через 1 минуту
ZX Spectrum-128, тут двумерный массив должен быть

Добавлено через 7 минут
ZX Spectrum-128,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program
Var
a:array[1..m,1..n] of real;
i,j:byte;
begin
Randomize;
for i:=1 to m do
for j:=1 to n do
begin
a[i,j]:=random*10;
write(a[i,j]:5);
end;
а потом что надо делать? Помоги
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
05.01.2015, 10:40 #8
Dina30, а я что положил?
0
Dina30
1 / 1 / 0
Регистрация: 29.12.2014
Сообщений: 34
05.01.2015, 10:43  [ТС] #9
ZX Spectrum-128, то что ты сказал это же одномерный массив, а нужен двумерный
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
05.01.2015, 10:45 #10
Dina30, главная диагональ не может быть двумерным массивом.

Добавлено через 38 секунд
1 0 0
0 2 0
0 0 3
Так что-ли надо?
0
Dina30
1 / 1 / 0
Регистрация: 29.12.2014
Сообщений: 34
05.01.2015, 10:46  [ТС] #11
ZX Spectrum-128, а как в главной диагонали чтоб было а1,а2 и тд?

Добавлено через 13 секунд
ZX Spectrum-128, дааа

Добавлено через 17 секунд
ZX Spectrum-128, напиши как ты это сделал?
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
05.01.2015, 10:47 #12
Запутали меня совсем. С чего вы решили, что нужен двумерный массив?
Получить последовательность элементов главной диагонали a11, a22, ...,ann
0
Dina30
1 / 1 / 0
Регистрация: 29.12.2014
Сообщений: 34
05.01.2015, 10:47  [ТС] #13
ZX Spectrum-128, мне учитель сказал
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
05.01.2015, 10:49 #14
Программа Kodzaev'а, которую, я выложил, делает именно то, что вам нужно. Вас просто немножко ввело в заблуждение: a11,...,ann
0
Dina30
1 / 1 / 0
Регистрация: 29.12.2014
Сообщений: 34
05.01.2015, 10:50  [ТС] #15
ZX Spectrum-128, как вы сделали чтоб так было?
100
020
003
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
05.01.2015, 10:50 #16
мне учитель сказал
То есть, все-таки на выходе двумерный массив с главной диагональю и нулями вне ее?
0
Dina30
1 / 1 / 0
Регистрация: 29.12.2014
Сообщений: 34
05.01.2015, 10:51  [ТС] #17
ZX Spectrum-128, да
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
05.01.2015, 10:54 #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
29
30
31
32
33
Uses crt;
Var
  a: Array[1..10,1..10] of Integer;
  y: Array[1..10,1..10] of Integer;
  i,n,max,j: Integer;
BEGIN
Write('Введите размер N матрицы: '); Readln(n);
For i:=1 to n do
For j:=1 to n do
  begin
  a[i,j]:=random(100)-50;
  y[i,j]:=0;
  end;
Clrscr;
Writeln('Матрица:');
For i:=1 to n do
begin
  y[i,i]:=a[i,i];
  For j:=1 to n do
  Write(a[i,j]:4);
  Writeln
end;
Writeln('массив Y: ');
For i:=1 to n do
begin
For j:=1 to n do
begin
  Write(y[i,j]:4);
end;
writeln;
end;
Readln
END.
Добавлено через 1 минуту
Результат:
1
Миниатюры
Даны натуральное число n, действительная матрица. Получить последовательность элементов главной диагонали  
05.01.2015, 10:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2015, 10:54
Привет! Вот еще темы с решениями:

дано натуральное число n, действительная матрица размером m*n
очень прошу помочь с решением задачи. Дано натуральное число n, действительная...

Дана действительная матрица размера r x t. Получить последовательность чисел b1, b2., bt; где bi, ()
Дана действительная матрица размера r x t. Получить последовательность чисел...

Даны действительные числа A1, ..., An, действительная квадратная матрица порядка n (n>=6). Получить действительную матрицу размера n´(n+1), вставив
Даны действительные числа A1, ..., An, действительная квадратная матрица...

Даны натуральное число n, действительное число а. Выдать на экран последовательность чисел: а, а+1!, а+2!, а+3!, . , а+п!
вот есть програма которая просто виводит последовательность чисел без...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru