Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
point!5
1

Дана матрица А(п*п). Заменить элементы главной диагонали нулями, а элемен-ты, стоящие над главной диагональю - единицами

02.06.2012, 00:12. Показов 2319. Ответов 1
Метки нет (Все метки)

Дана матрица А(п*п). Заменить элементы главной диагонали нулями, а элемен-ты, стоящие над главной диагональю - единицами.

вот мой вариант решения, но видно он кривой:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program 111;
var a:array[1..3,1..3] of integer;
i,j:integer;
begin
writeln('vvedite razmer');
for i:=1 to 3 do
for J:=1 to 3 do
readln(a[i,j]);
for i:=1 to 3 do
for j:=1 to 3 do
if i=j then a[i,j]:=0;
if i<j then a[i,j]:=1;
writeln(тут хз что);
end.
в паскале шарю плохо
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2012, 00:12
Ответы с готовыми решениями:

Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К)
Заменить элементы,расположенные над главной диагональю массива единицами,а под главной...

Дана квадратная матрица порядка N. Заменить нулями все элементы, стоящие на главной диагонали и выше ее
Написать программу для решения следующей задачи: дана квадратная матрица порядка N. Заменить нулями...

Заменить элементы главной диагонали единицами, элементы, расположенные под главной диагональю увеличить вдвое
паскаль.... Дана матрица L (4,4). Заменить элементы главной диагонали единицами, элементы,...

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

1
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.06.2012, 00:59 2
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
uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of byte;
    i,j,n: byte;
begin
repeat
write('n (ne bolee ',nmax,')='); readln(n);
until n in [1..nmax];
for i:=1 to n do
    for j:=1 to n do
        begin
        write('a[',i,',',j,']='); readln(a[i,j]);
        end;
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if i=j then a[i,j]:=0 else
           if j>i then a[i,j]:=1;
        write(a[i,j]:3);
        end;
    writeln;
    end;
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2012, 00:59

Дана матрица (n,n) заменить нулями все элементы расположенные на главной диагонали.
(3). Дана матрица (n,n) заменить нулями все элементы расположенные на главной диагонали. (4)....

Дана квадратная матрица. Заменить нулями все ее элементы, расположенные на главной диагонали и выше ее
Дана квадратная матрица порядка N. Заменить нулями все ее элементы, расположенные на главной...

Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной диагонали и выше неё
Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной...

Дана действительная квадратная матрица. Заменить нулями все элементы, на главной диагонали и выше нее
Дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположены на...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru