Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на двухмерный массив

Автор: V1P 23.11.2006 18:38

Добрый день.Если можете,то помогите мне выяснить два вопроса:
1.Дана квадратная матрица A[N,N].Записать на место отрицательных элементов матрицы нули,а на место положительных - единицы.Вывести на печать нижную треугольную матрицу в общепринятом виде.

 Program z1;
uses crt;
Var
k,I,J,N : Integer;
A:array [1..100,1..100] of Integer;
Begin
clrscr;
Writeln ('Введи размерность матрицы');
readln (N);
writeln('vvedi 3na4eniya matrici');
For i:=1 to n do begin
For j:=1 to n do
a[i,j]:=random(10)-5;
end;
For i:=1 to n do begin
For j:=1 to n do write(a[i,j]:4);writeln;
end;
writeln('*****');
For i:=1 to n do begin
For j:=1 to n do begin
If a[i,j]<0 then begin;a[i,j]:=0;end;
If a[i,j]>0 then begin;a[i,j]:=1;end;
end;end;
.
Вопрос: а как мне вывести на печать нижную треугольную матрицу в общепринятом виде?
2.{Cовсем другая задача} Нужно заполнить матрицу в виде:
1 2 3 ... n-2 n-1 n
2 1 2 ... n-3 n-2 n-1
3 2 1 ... n-4 n-3 n-2
. . . ... . . .
n-1 n-2 n-3 ... 2 1 2
n n-1 n-2 ... 3 2 1

Автор: volvo 23.11.2006 18:47

Цитата
а как мне вывести на печать нижную треугольную матрицу в общепринятом виде?
Помнишь, что такое "нижняя треугольная матрица"? Матрица, в которой A[i, k] = 0 для всех i < k ...

Автор: V1P 23.11.2006 18:52

Цитата(volvo @ 23.11.2006 14:47) *

Помнишь, что такое "нижняя треугольная матрица"? Матрица, в которой A[i, k] = 0 для всех i < k ...

Условие,что = 0 разве обязательно?
Если использовать только i<k то он выводит всё,что выше побочной диагонали.

Автор: мисс_граффити 23.11.2006 19:43

а в чем, по-твоему, заключается ее треугольность, если условие про =0 необязательное??
вторая - имхо, заполнять надо по половинкам. отдельно то, что выше диагонали, отдельно то, что ниже.

Автор: V1P 23.11.2006 19:53

Цитата(мисс_граффити @ 23.11.2006 15:43) *

а в чем, по-твоему, заключается ее треугольность, если условие про =0 необязательное??
вторая - имхо, заполнять надо по половинкам. отдельно то, что выше диагонали, отдельно то, что ниже.

Получается,что бы вывести надо поставить условие If (a[i,k]=0) and (i<k)?

Автор: мисс_граффити 23.11.2006 19:59

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

Автор: medicamento priligy estudios cli 25.09.2021 21:19

Tadalis Sx Soft Experience

Автор: how long does it take for azithr 20.12.2021 12:15

Baclofene