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

@Dina30 · Регистрация: 29.12.2014

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

Даны натуральное число n, действительная матрица[a_i,i]_i=1, ... ,_n, _j=1,…, _n. Получить последовательность элементов главной диагонали a₁₁, a₂₂, ...,a_nn
На Паскале

@Fakeoke · 29.12.2014, 23:59

элементарная задача
думаю раз 100 здесь поднималась

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

воспользуйтесь поиском, может даже найдете решение своей задачи

@Dina30 · 30.12.2014, 02:57 **[ТС]**

Fakeoke, если сюда пишу, значит не знаю... Помогите пожалуйста если не трудно) буду благодарна)

@ZX Spectrum-128 · 30.12.2014, 09:06

Просто вывести:
Элементы главное диагонали матрицы
Переписать в массив:
Переписать элементы главной диагонали матрицы в одномерный массив и разделить их на максимальный элемент главной диагонали

@Dina30 · 05.01.2015, 10:17 **[ТС]**

ZX Spectrum-128, как сделать через random? Помогите!

@ZX Spectrum-128 · 05.01.2015, 10:29

Dina30, а что через random-то? Вы же программу вашу не положили, чтобы переделать.

Добавлено через 29 секунд
А-а-а-а.

По которой из ссылок нужно переделать?

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

Pascal

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.

@Dina30 · 05.01.2015, 10:39 **[ТС]**

ZX Spectrum-128, ну надо же сначала чтоб генерация случайных чисел была, потом чтобы главная диагональ последовательна была. Помогите

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

Добавлено через 7 минут
ZX Spectrum-128,

Pascal

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;

а потом что надо делать? Помоги

@ZX Spectrum-128 · 05.01.2015, 10:40

Dina30, а я что положил?

@Dina30 · 05.01.2015, 10:43 **[ТС]**

ZX Spectrum-128, то что ты сказал это же одномерный массив, а нужен двумерный

@ZX Spectrum-128 · 05.01.2015, 10:45

Dina30, главная диагональ не может быть двумерным массивом.

Добавлено через 38 секунд

1 0 0
0 2 0
0 0 3

Так что-ли надо?

@Dina30 · 05.01.2015, 10:46 **[ТС]**

ZX Spectrum-128, а как в главной диагонали чтоб было а1,а2 и тд?

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

Добавлено через 17 секунд
ZX Spectrum-128, напиши как ты это сделал?

@ZX Spectrum-128 · 05.01.2015, 10:47

Запутали меня совсем. С чего вы решили, что нужен двумерный массив?

Получить последовательность элементов главной диагонали a11, a22, ...,ann

@Dina30 · 05.01.2015, 10:47 **[ТС]**

ZX Spectrum-128, мне учитель сказал

@ZX Spectrum-128 · 05.01.2015, 10:49

Программа Kodzaev'а, которую, я выложил, делает именно то, что вам нужно. Вас просто немножко ввело в заблуждение: a₁₁,...,a_nn

@Dina30 · 05.01.2015, 10:50 **[ТС]**

ZX Spectrum-128, как вы сделали чтоб так было?
100
020
003

@ZX Spectrum-128 · 05.01.2015, 10:50

мне учитель сказал

То есть, все-таки на выходе двумерный массив с главной диагональю и нулями вне ее?

@Dina30 · 05.01.2015, 10:51 **[ТС]**

ZX Spectrum-128, да

@ZX Spectrum-128 · 05.01.2015, 10:54

Pascal

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 минуту
Результат:

@ZX Spectrum-128 6807 / 4565 / 4818 Регистрация: 05.06.2014 Сообщений: 22,438
	05.01.2015, 10:50	16
	мне учитель сказал То есть, все-таки на выходе двумерный массив с главной диагональю и нулями вне ее? 0

@Dina30 1 / 1 / 0 Регистрация: 29.12.2014 Сообщений: 34
		1
	Даны натуральное число n, действительная матрица. Получить последовательность элементов главной диагонали 29.12.2014, 15:33. Показов 3851. Ответов 17 Метки нет (Все метки) Даны натуральное число n, действительная матрица[a_i,i]_i=1, ... ,_n, _j=1,…, _n. Получить последовательность элементов главной диагонали a₁₁, a₂₂, ...,a_nn На Паскале 0

@Fakeoke 519 / 396 / 212 Регистрация: 28.07.2011 Сообщений: 2,193
	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 6807 / 4565 / 4818 Регистрация: 05.06.2014 Сообщений: 22,438
	30.12.2014, 09:06	4
	Просто вывести: Элементы главное диагонали матрицы Переписать в массив: Переписать элементы главной диагонали матрицы в одномерный массив и разделить их на максимальный элемент главной диагонали 0

@Dina30 1 / 1 / 0 Регистрация: 29.12.2014 Сообщений: 34
	05.01.2015, 10:17 [ТС]	5
	ZX Spectrum-128, как сделать через random? Помогите! 0

@ZX Spectrum-128 6807 / 4565 / 4818 Регистрация: 05.06.2014 Сообщений: 22,438
	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 6807 / 4565 / 4818 Регистрация: 05.06.2014 Сообщений: 22,438
	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 6807 / 4565 / 4818 Регистрация: 05.06.2014 Сообщений: 22,438
	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 6807 / 4565 / 4818 Регистрация: 05.06.2014 Сообщений: 22,438
	05.01.2015, 10:49	14
	Программа Kodzaev'а, которую, я выложил, делает именно то, что вам нужно. Вас просто немножко ввело в заблуждение: a₁₁,...,a_nn 0

@Dina30 1 / 1 / 0 Регистрация: 29.12.2014 Сообщений: 34
	05.01.2015, 10:50 [ТС]	15
	ZX Spectrum-128, как вы сделали чтоб так было? 100 020 003 0

@Dina30 1 / 1 / 0 Регистрация: 29.12.2014 Сообщений: 34
	05.01.2015, 10:51 [ТС]	17
	ZX Spectrum-128, да 0