Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на двухмерный массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
V1P
Добрый день.Если можете,то помогите мне выяснить два вопроса:
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
Цитата
а как мне вывести на печать нижную треугольную матрицу в общепринятом виде?
Помнишь, что такое "нижняя треугольная матрица"? Матрица, в которой A[i, k] = 0 для всех i < k ...
V1P
Цитата(volvo @ 23.11.2006 14:47) *

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

Условие,что = 0 разве обязательно?
Если использовать только i<k то он выводит всё,что выше побочной диагонали.
мисс_граффити
а в чем, по-твоему, заключается ее треугольность, если условие про =0 необязательное??
вторая - имхо, заполнять надо по половинкам. отдельно то, что выше диагонали, отдельно то, что ниже.
V1P
Цитата(мисс_граффити @ 23.11.2006 15:43) *

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

Получается,что бы вывести надо поставить условие If (a[i,k]=0) and (i<k)?
мисс_граффити
по-моему, ты сам не совсем понимаешь, чего хочешь добиться...
нижняя треугольная матрица - это матрица вполне конкретного вида. вверху нули, внизу какие-то цифры.
то есть, видимо, если у тебя она получится не такой - надо забить половину нулями....
medicamento priligy estudios cli
Tadalis Sx Soft Experience
how long does it take for azithr
Baclofene
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.