Требуется решить задачу

[4283361984]

Задача: Задана действительная квадратная матрица А порядка n.Заменить элементы главной и побочной диагоналей - на 1,а на их пересечении поместить 0.

Нужно написать программу на Паскале и составить структурную схему алгоритма.

p/s/ Предлагайте,кто за какую цену согласиться это написать.

Мое мыло: [email protected]

[Xtnshtcgjkjdbyjq]

это шутка? или за такие задачи кто-то действительно готов отдать деньги??? мозги соФФсем атрофировались?

[I&F]

Прикольно, у меня такая же задачка была когда поступал (их там больше 5 кажется было) )))

[zss_vrn]

Печально... Надеюсь, это не в Воронеже так учат программистов?

[4283361984]

Блин тут все такие умные,а решить не могут....обидно
Я только в сентябре начал изучать Паскаль.

[meddle]

Вот и изучал бы дальше..... у кого списывать будешь, когда работать начнёшь???

[Yandex]

Самое лучшее тогда наверно найти чела который просто бы объяснил Паскаль и основы проганья, а программу сам бы ты после написал

В принципе я бы мог попробовать втолковать (хотя честно, Паскаль знаю хреново [больше прогал на Delphi6-7, а там уже отличия])

[J++]

В мединституте:
"Гоги, как же ты собираешься работать врачом? Ты же даже не знаешь, из какого места дети на свет появляются!"
"Вах, дарагой! Ну кто тебе сказал, что я буду врачом? Я буду - ГЛАВВРАЧОМ!"

[Xtnshtcgjkjdbyjq]

Кстати, а не сказано что делать, если диагонали не пересекаются? (При четном n) Что менять на 0? Или в таком случае на 0 ничего не меняется?

З.Ы. С каждого по паре строк - голому программа

programm Matrix (input, output);
var n,i,j:integer;
A:array [1..100,1..100] of Integer;
begin

[Maxell]

For i to n do
begin
For j=1 to n do
begin
If i=j then a[i,j]:=1;
If i=(j-n-1) then a[i,j]:=1;
if (i=j) and (i=n/2) then a[i,j]:=0;
end;
end;

[Yandex]

>A:array [1..100,1..100] of Integer;
Юморист Динамических массивов в Паскале нет?

На самом деле конечно формулировка нестрогая для Паскакаля

[Xtnshtcgjkjdbyjq]

Сообщение от Yandex

>A:array [1..100,1..100] of Integer;
Юморист Динамических массивов в Паскале нет?

На самом деле конечно формулировка нестрогая для Паскакаля

Я ему и рекурсию вопхну, но как он препу задачу объяснять будет??? Проще, проще...

[Xtnshtcgjkjdbyjq]

Забыли ввод n и собственно ввод массива.

[Weiss]

ну так и напишем процу для ввода

Pprocedure Input;
begin
Writeln('Input dimension of matrix:');
Readln(n);
While not(n in [1..100]) do begin
Writeln('Error. Input again:');
Readln(n);
end;
For i := 1 to n do
For j := 1 to n do begin
Writeln('Input ('+IntToStr(i)+','+IntToStr(j)+') element of matrix');
Readln(a[i,j]);
end;
end;

[Luke]

Сообщение от Yandex

>A:array [1..100,1..100] of Integer;
Юморист Динамических массивов в Паскале нет?

На самом деле конечно формулировка нестрогая для Паскакаля

Динамических массивов в Паскале нет!
в делфях есть, начиная с каких то 3 или 4, а в каноническом паскале нет!

[J++]

А можно и сразу вычислить, куда девать (или не девать) 0, и не считать это каждый раз в цикле
например, на С или С++ (Паскаль уже подзабыла, каюсь, лет 10 или 12 на нем не работала, хотя паскалевские заклинания легко понимаю на чтение ):

int centre=(n%2)? n/2+1 : -1;
(это для С-шных массивов, где индекс начинается с 0)
и потом сравнивать (i==j && i==centre) - тады писать там 0.

в смысле, если n нечетное (есть пересечение), то centre будет индексом "середины". Если n четное (нет пересечения), то в centre здесь "загнана" -1, которая в циклах никогда потом не встретится и соотв. не будет значения 0 в выходной матрице.

[Luke]

в данном случае второй вложенный цикл - мусор и все, что с ним связано!
не надо сравнивать (i==j) переменная j вообще не нужна!

[Yandex]

>int centre=(n%2)? n/2+1 : -1;
Сдается мне, что после такого, автор темы тут больше не появится

[Balrog]

Yandex Подожди, ещё я не выступал

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

int n;
int *a, i;

// assign dimension to n here
a = malloc( n * n * sizeof( int ) );
// insert array input here

if( n & 1 )
a[ n + ( n >> 1 ) ] = 0;
for( i = 0; i < n; i++ )
a[ i * ( n + 1 ) ] = a[ ( n - i ) * ( n - 1 ) ] = 1;
// insert array output here
free( a );

4283361984 Устроит? На паскаль сам переведи, чтоб жизнь мёдом не казалась. Ввод-вывод надесь, проблем не составит

PS: А что, порезвиться нельзя?

[aerin]

Balrog Вспомнилось, как в универе я измывался над преподом, оформляя программы примерно так:

begin
asm
...здесь содержательная часть кода...
end;
end;

Он спрашивал, увидев очередной мой опус, это что? Я говорил, как что, программа на Pascal-е.
- Какой же это паскаль?
- Как какой, самый обычный, компилятор принял, значит - ПАСКАЛЬ

ЗЫ. Глупый был, нарывался...

[Weiss]

вот и забили пареньку голову, если он не мог решить столько "школьной" задачи, то вы его своими Сями завели в тако глупое положение, что он захочет взять книжку и научится таи это паскалю!

зы. а может даже и Сям!!!

[4283361984]

Вот собрал программу,только что то она не работает.В чем причина ?

program Matrix (input, output);
var n,i,j:integer;
A:array [1..100,1..100] of Integer;
begin
For i:=1 to n do
begin
For j:=1 to n do
begin
If i=j then a[i,j]:=1;
If i=(j-n-1) then a[i,j]:=1;
If (i=j) and (i=n/2) then a[i,j]:=0;
end;
end;

[Balrog]

4283361984 А с чего ты взял, что она не работает? Если ты привёл всю программу - то она скорее всего работает, ты просто результатов не видишь. Ввод-вывод (или хотя бы только вывод) вставь, да? А, ещё в конце строчку
end.

[J++]

Зачем нужна строчка
If i=(j-n-1) then a[i,j]:=1;
или у меня с Паскалем уже настолько пути разошлись, что мне не понять каких-то светлых замыслов
там, кажется, хватит того, что есть, без этой строчки?

[Xtnshtcgjkjdbyjq]

Сообщение от J++

Зачем нужна строчка
If i=(j-n-1) then a[i,j]:=1;
или у меня с Паскалем уже настолько пути разошлись, что мне не понять каких-то светлых замыслов
там, кажется, хватит того, что есть, без этой строчки?

Это проверка принадлежности к "неглавной" (побочной) диагонали матрицы.

[J++]

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

for (i=0; i<n; i++)
a[i][i]=a[i][n-1-i]=(i==centre)?0:1;
только навскидку не помню a[i][n-1-i] или a[n-1-i][i]

[Xtnshtcgjkjdbyjq]

Кстати да, проще сделать все в 1 цикле.

[tert]

Мдаа, товарисчи..
А как тема начиналась -
"это шутка? или за такие задачи кто-то действительно готов отдать деньги??? мозги соФФсем атрофировались?"
Потом путем мучительно, общими усилиями родили. В 2х циклах. Это, вам, не GUI с базами данных мучать))

const n = 100;
var a:array[1..n,1..n] of real;
i:integer;
begin
//ввод
for i:=1 to n do
begin
a[i,i]:=1;
a[i, n-i+1]:=1;
end;
if (n mod 2 = 0) then
a[n div 2,n div 2]:=0;
//вывод
end.

[J++]

Это не МЫ GUI с БД мучаем. Это ОНИ нас имеют вовсю, по мере глюкавости. По крайней мере многих из нас - точно (никакого вазелина не хватит)

[Yandex]

2tert
Да ты крут :biggrin: