Карта сайта

Это автоматически сохраненная страница от 22.05.2013. Оригинал был здесь: http://2ch.hk/b/res/48592105.html
Сайт a2ch.ru не связан с авторами и содержимым страницы
жалоба / abuse: admin@a2ch.ru

Срд 22 Май 2013 16:22:05
Создать генератором случайных чисел в интервале от - 20 до 20, двумерный массив (4 х 4)с элементами aij . Вывести его на экран в виде таблицы (матрицы). Вычислить произведение элементов над главной диагональю и сумму элементов над главной диагональю.

program pr52;
const n = 4;
var a : array [1..n, 1..n] of integer;
i, j : integer;
s, p : longint;

begin
randomize;
p := 1;
s := 0;
writeln('A:');
for i:=1 to n do begin
for j:=1 to n do begin
a[i, j] := random(41)-20;
write(a[i, j] : 5);
end;
writeln;
end;
for i:=1 to n-1 do
for j:=i+1 to n do begin
s := s + a[i, j];
p := p * a[i, j];
end;
writeln;
writeln('p=', p:8);
writeln('s=', s:8);
end.

Что не так?


Срд 22 Май 2013 16:24:37
>>48592105
>двумерный массив (4 х 4)
Зачем быдлокодить, если ты и так знаешь индексы элементов?

Срд 22 Май 2013 16:24:51
>>48592105
Readeln
В конце забыл
Инб4: я смотрю альтом + ф5

Срд 22 Май 2013 16:28:14
>>48592282
>Readln
Fix

end;
writeln;
end;
Нахуя?
writeln('p=', p:8);
writeln('s=', s:8);
Нахуя?

Срд 22 Май 2013 16:29:18
>>48592105
Сажу забыл же.

Срд 22 Май 2013 16:33:29
>>48592105
Summa:=a[2.1]+a[3.2]+a[4.3];
Proizvedenie:=a[2.1]*a[3.2]*a[4.3];
Задача уровня восьмиклассника?

Срд 22 Май 2013 16:35:26
>>48592105
Очевидно забыл вывести матрицу!

Срд 22 Май 2013 16:35:58
>>48592105
>for i:=1 to n-1 do
Ты пропускаешь последний столбец?

Срд 22 Май 2013 16:37:28
>>48592774
А нет, попутал, всё норм.

Срд 22 Май 2013 16:43:38
>>48593016
Ну и хули ты не доволен?

Срд 22 Май 2013 16:46:46
>>48592105
> интервале от - 20 до 20
-20 < x < 20
т.е. -20 и 20 туда не входят.

Срд 22 Май 2013 16:48:08
>>48593310
наоборот

Срд 22 Май 2013 16:50:47
http://raal100.narod.ru/index/0-259

Срд 22 Май 2013 16:55:29
>>48592105
program DVACH_SOSET_U_NIGG;
const n = 4;
var a : array [1..n, 1..n] of integer;
i, j, hui : integer;
s, p, pizda : longint;

begin
randomize;
writeln(&amp;#39;A:&amp;#39;);
for i:=1 to n do begin
for j:=1 to n do begin
a[i, j] := random(41)-20;
write(a[i, j] : 5);
end;
writeln;
end;
s:=a[1,2]+a[2,3]+a[3,4];
p:=a[1,2]*a[2,3]*a[3,4];
writeln;
writeln(&amp;#39;p=&amp;#39;, p);
writeln(&amp;#39;s=&amp;#39;, s);
end.

Хули сложного?

Срд 22 Май 2013 16:59:27
>>48593691
>s:=a[1,2]+a[2,3]+a[3,4];
>p:=a[1,2]*a[2,3]*a[3,4];
Я так понимаю, опу надо чтобы для любой матрицы подходило хоть 4х4, хоть 9000х7453.

Срд 22 Май 2013 17:00:30
>>48593691
s:=a[1,1]+a[2,2]+a[3,3]+a[4,4];
p:=a[1,1]*a[2,2]*a[3,3]+a[4,4];
Может так?

Срд 22 Май 2013 17:01:01
>>48593939
s:=a[1,1]+a[2,2]+a[3,3]+a[4,4];
p:=a[1,1]*a[2,2]*a[3,3]*a[4,4];
фикс

Срд 22 Май 2013 17:02:28
>>48593965
Условие внимательно ВНИМАТЕЛЬНО БЛЯТЬ читайте.

Срд 22 Май 2013 17:05:14
>>48594035
Да читал я. Я про алгоритм, для применения в других подобных задачах. Или опять упустил что-то?

Срд 22 Май 2013 17:23:08
>>48594165
program pr52;
uses CRT;
const n = 4;
var a : array [1..n, 1..n] of integer;
i, j : integer;
s, p : longint;

begin
randomize;
p := 1;
s := 0;
for i:=1 to n do
for j:=1 to n do begin
a[i, j] := random(41)-20;
write(a[i, j] : 5);
if j = n then writeln;
end;
writeln;
for i:=1 to n-1 do begin
s := s + a[i, i+1];
p := p * a[i, i+1];
end;
writeln;
writeln(&amp;#39;Multiplication &amp;#39;, p:2);
writeln(&amp;#39;Sum &amp;#39;, s:14);
end.

Мимо_13_лвл_восьмиклассник_кун

Срд 22 Май 2013 17:32:12
>>48594165
program s_and_p;
const n = 4;
var a : array [1..n, 1..n] of integer;
i, j: integer; s, p: longint;
begin
p:=1; s:=0; randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i, j] := random(41)-20;
write(a[i, j]:4);
end;
writeln;
end;
For i:= 1 to n-1 do begin
s:=s+a[i, i+1];
p:=p*a[i, i+1];
end;
writeln;
writeln(&amp;#39;p = &amp;#39;, p); writeln(&amp;#39;s = &amp;#39;, s);
end.
4-класс-пацан


← К списку тредов