Двумерный массив

[Jodu]

(-2) возводишь в 25 степень.

посмотрите и исправьте первую часть у меня.

a[i,j]:=exp(i*j*ln(-2)); под знаком логарифма не может отрицательбное число стоять.(хотя вроде как все делал по правилу)

program matrica;
uses crt;
const n =5;
type matrix = array[1..n,1..n] of integer;
var a:matrix;
     i:integer;
     j:integer;
begin
    clrscr;
    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
    a[i,j]:=exp(i*j*ln(-2));
    write(a[i,j],' ');
end;
writeln;
end;
readln;
end.

[puporev]

Дана матрица А[5,5] положительных и отрицательных элементов.АХ[i,j]= (-2) в степени i*j

задание:
1) Записать матрицу.

По моему ты чего-то не врубаешся. Как ты собираешся записывать в матрицу числа типа (-2)^25?
А чтобы не считать логарифмы отрицательных чисел, вводишь в программу такую функцию:

var n,i,a:integer;
function step2(n:integer):integer;
begin
a:=1;
for i:=1 to n do
a:=a*(-2);
step2:=a;
end;
begin
write('n=');readln(n);
a:=step2(n);
writeln('2^n=',a);readln
end.

В своей программе напишешь
a[i,j]:=step2(i*j);(Все таки я думаю, что здесь ты неправ).

[Jodu]

Дана матрица А[5,5] положительных и отрицательных элементов.
А[i,j]= (-2)^i*j

Объясните мне вот это.Как я понимаю элемент A[1,3]=(-2)^1*3....
Т.е. в первой строке и третьем столбце должно быть число (-8)
Т.Е. матрица она будет вида(она не рандомайзом задается):

-2 4 -8 ... ...
4 16 -32 ... ...
-8 64 ... ... ...
... ... ... ... ...
... ... ... ... ...


Исправьте меня,что я не так понимаю.

[puporev]

я настаиваю, что у тебя ошибка в задании. Ты мне все пишешь (-2)^4,(-2)^5. А ты напиши (-2)^25, тогда будем смотреть дальше.
Вот еще способ возведения отрицательных чисел в степень

Используя свойства логарифмов, можно избавиться от мучительного программирования.

Function Pow(A,B:Real):Real;
{ Функция возведения в степень (A^B) }
Var T:Real;
Begin
T := Abs(A);
If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
Else Pow := Exp(B*Ln(T));
End;

[Jodu]

можно написать,только очень большое число получится+)

(-2)^25= (-2)^5 * (-2)^5 * (-2)^5 * (-2)^5 * (-2)^5 =
64*64*64*64*64 = 1073741824

[Jodu]

все сделал.Всем спасибо за помощь.

Маленький вопрос...когда можно в программе можно не писать begin после do?

program Project2;
uses crt;
const n =5;
type matrix = array[1..n,1..n] of integer;
var a:matrix;
i:integer;
j:integer;
S5,S:integer;
P:real;

begin
randomize;
for i:= 1 to n do
begin
for j:= 1 to n do
begin
a[i,j] :=random(100) - 50;
write(a[i,j]:3 ,' ');
end;
writeln;
end;


P:=1; S5:=0; S:=0;
For i:=1 to 5 do begin
For j:=1 to 5 do begin
If i=j then P:=P*a[i,j];
end;
end;
Writeln ('prouzBedenue paBHo ',p:5:2);
For j:=1 to 5 do
S5:=S5+a[5,j];
S:=0;
For i:=1 to 5 do
For j:=1 to 5 do
S:=S+a[i,j];
writeln ('cymma S5 paBHa ' ,s5);
writeln ('cymma maccuBa paBHa ' , s);



writeln;
for i:= 1 to n do
begin
for j:= 1 to n do
begin
if a[i,j] < 0
then
a[i,j]:=10
else a[i,j] := 20;
write(a[i,j]:2,' ');
end;
writeln;
end;
readln;
end.

[puporev]

Можно не писать begin , если в цикле выполняется одна команда, например:
for i:=1 to n do a[i]:=sqr(i);
и если этот цикл не нужно прерывать с помощью exit, break, abort, continue. Более детально смотри в учебниках.

[Jodu]

program Project3;
uses crt;
const n =5;
type matrix = array[1..n,1..n] of real;
var a:matrix;
     i:integer;
     j:integer;
begin  clrscr;

    for i:= 1 to 5 do
    for j:= 1 to 5 do
Begin
     if odd(i*j) then
    a[i,j]:=-exp(i*j*ln(2))
    else  a[i,j]:=exp(i*j*ln(2));
    write(a[i,j]:14:2,' ');
writeln;
end;
readln;

end.

[puporev]

Вот я немного поправил, сейчас похоже на матрицу.

program Project3;
uses crt;
const n =5;
type matrix = array[1..n,1..n] of real;
var a:matrix;
     i:integer;
     j:integer;
begin  clrscr;

    for i:= 1 to 5 do
    for j:= 1 to 5 do
Begin
     if odd(i*j) then
    a[i,j]:=-exp(i*j*ln(2))
    else  a[i,j]:=exp(i*j*ln(2));
Далее вставь следующее:
end;
    for i:=1 to n do
          begin
              for j:=1 to n do
Конец вставки
                 write(a[i,j]:14:2);
                writeln;
          end;
readln;
end.

Выводить матрицу, как и вводить, нужно в цикле.