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

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

Форум «Всё о Паскале» _ Задачи _ Матрицы

Автор: Ш.Нелль 1.12.2004 19:16

Три задачи по матрицам... Только начали изучение темы, пыталась разобраться сама, но ничего не получается... Совершенно не понимаю, простите уж за наглость... Очень синно прошу помочь! Заранее спасибо... Только, если возьметесь, попробуйте сделать, как бы решал трехлетний ребенок, без заковырок, чтоб я разобралась...На самом деле хочу понять...
Заранее огромное СПАСИБО!

1.Дана действительная матрица a[i;j] i, y=1,…,n. Получить действительную матрицу b[i,j] i,y=1,…,n, элемент b[i;j] которой равен сумме элементов матрицы a[i,j], расположенных в области определяемой индексами i,j так как показано на рисунке(область заштрихована).
http://diary.ru/userdir/6/0/4/6/60460/1165042.jpg

2.Дана действительная квадратная матрица 7ого порядка. Найти последовательность действительных чисел b1,…,b49, получающуюся при чтении данной матрицы по спирали.
http://diary.ru/userdir/6/0/4/6/60460/1165054.jpg

3.Получить квадратную матрицу n-ого порядка.
http://diary.ru/userdir/6/0/4/6/60460/1165039.jpg

Автор: GoodWind 1.12.2004 19:55

2. http://pascal.net.ru/forum/index.php?showtopic=2694&view=findpost&p=27640
тут почти то-же самое....

Автор: Guest 8.12.2004 23:34

GoodWind
Спасибо! А остальные сложные?...=(

Автор: Флогримм 9.12.2004 10:17

я так понял третья такая?

Код

1111
0222
0033
0004

??
если да, то вот
3
Код
const maxN=25;
var i,j,n:byte;
   a:array[1..maxn,1..maxn]of byte;
begin
write('n> ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
   begin
   a[i,j]:=i;
   if j<i then a[i,j]:=0;
   write(a[i,j]:3);
   end;
writeln;
end;
end.


а в 1 я не понял условие, если уточнишь - решу! что такое y?