МАССИВЫ!МАТРИЦА!, помогите исправить ошибку! Опции

[ЮльКа)]

Посмотрите пожалуйста программу, как исправить ошибку?

в конце строк стоит ;


Сообщение отредактировано: ЮльКа) - 17.12.2006 23:03

[Bokul]

как исправить ошибку?

Изменить тип переменной...
Хочешь больше, выкладывай полный исходник...

[ЮльКа)]

Изменить тип переменной...
Хочешь больше, выкладывай полный исходник...

ХОЧУ!!!БЛИН!вот теперь все заработало...но в итоге ничего что надо не считает(((

const
N=5;
m=N;
k=N;
var
A: array [1..m,1..k] of real;
S: array [1..k,1..k] of integer;
Z: array [1..m,1..m] of integer;
i,j,c,t: integer;
p,d:real;
begin
(*ўў®¤ ¤ ­­ле*)
A[i,j]:=0;
for i:=1 to m do
begin
writeln('ўўҐ¤ЁвҐ зЁб«® ¤«п бва®ЄЁ',i);
readln(A[i,j]);
for i:=1 to k do
begin
writeln('ўўҐ¤ЁвҐ зЁб«® ¤«п бв®«Ўж ',j);
A[i,j]:=(-1)*i*j;
readln(A[i,j]);
end;
end;
writeln;
d:=0;
for i:=1 to m do begin
d:=d+A[i,i];
writeln(' ',d);
end;
p:=0;
for i:=1 to m do begin
for j:=1 to k do
p:=p*A[i,j];
writeln(' ',p);
end;
(*б㬬  н«Ґ¬Ґ­в®ў бв®«Ўж®ў*)
t:=0;
for i:=1 to m do begin
t:=t+S[j,j];
writeln('б㬬  н«Ґ¬Ґ­в®ў Є ¦¤®Ј® бв®«Ўж ',t);
Z[i,i]:=0;
for i:=1 to m do begin
Z[i,i]:=t;
writeln ('Ї®«гзЁўи пбп ¬ ваЁж ');
end;
end;
(*®Ўа Ў®вЄ  ¬ ваЁжл*)
A[i,j]:=0;
for i:=1 to m do begin
for i:=1 to k do
if A[i,j]<0 then
begin
c:=0;
A[i,j]:=A[i,j]+1;
A[i,j]:=c;
end;
end;
A[i,j]:=0;
for i:=1 to m do begin
for i:=1 to k do
if A[i,j]>0 then
begin
c:=1;
A[i,j]:=c;
Writeln ('¬ ваЁж ');
end;
end;
end.

то что в скобках не по русски - неважно)

[Bokul]

А что надо считать?

[volvo]

то что в скобках не по русски - неважно)

Вполне возможно, что если бы ты привела задание - это действительно было бы неважно... Или если бы имена переменных "говорили сами за себя"... А так, извини -

итоге ничего что надо не считает(((

- это ты кому? Откуда МЫ-то знаем, что ТЕБЕ надо???

Это первое. Второе - или ты сама исправишь название темы (читай правила), или она просто будет закрыта...

[Caranthir]

a[i,j]:=0; прежде определи эти самые i , j

массив попробуй введи так

Код

for i:=1 to m do begin
  for j:=1 to k do
    readln (a[i,j]);
  readln;
end;

p:=0;
for i:=1 to m do begin
for j:=1 to k do
p:=p*A[i,j];
writeln(' ',p);
end;

умножать на ноль бесполезно)

for i:=1 to m do begin
t:=t+S[j,j];

наверное тут имеется ввиду
for j:=1 to m do begin

и так далее....

PS/ мжно ведь компилировать пошагово.)

!

Caranthir, я долго терпел... Только вот мое терпение НЕ безгранично... Еще одно вот такое высказывание: "мжно ведь компилировать пошагово.)" - начинается отстрел... Ты не на форуме "Все о Бейсике", в конце концов!

всё-всё молчу)


кстати задание:

дана матрица A[N,N] при распечатке N=5 A[i,j]=(-1)*i*j

1)вывести матрицу
2)определить сумму элементов главной диагонали и произведение элементов выше глав диагонали
3)определить сумму элементов каждого столбца и вывести эти значения в строках
4)записать на месте отрицат элементов - 0, положит - 1 и вывести матрицу на экран

Сообщение отредактировано: volvo - 18.12.2006 1:38

[Caranthir]

вводи так

Код

  for i:=1 to m do
  for j:=1 to k do
    a[i,j]:=(-1)*i*j;

[ЮльКа)]

Второе - или ты сама исправишь название темы (читай правила), или она просто будет закрыта...

Ну не надо закрывать!!плз!!ну я не знаю как ее еще назвать)неужели недостаточно инфы?массивы..матрица..извините если что..

кстати задание:
...

спасибо большое)) а можно еще раз ток по порядку а то я уже запуталась... ну что возьмешь с глупой девушки...