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

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

Форум «Всё о Паскале» _ Задачи _ МАССИВЫ!МАТРИЦА!

Автор: ЮльКа) 17.12.2006 18:54

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

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



Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: Bokul 17.12.2006 23:45

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

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

Автор: ЮльКа) 18.12.2006 0:57

Цитата(Bokul @ 17.12.2006 19:45) *

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



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


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 18.12.2006 1:28

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

Автор: volvo 18.12.2006 1:30

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

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

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

Автор: Caranthir 18.12.2006 1:42

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



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


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

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

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

Автор: Caranthir 18.12.2006 2:01

вводи так

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


Автор: ЮльКа) 18.12.2006 2:13

Цитата(volvo @ 17.12.2006 21:30) *

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


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

Цитата(Caranthir @ 17.12.2006 21:42) *

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


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