Помогите пожалуйсто сделать задачу через процедуры Опции

[Speed52]

дана матрица С(5,3)
1)Получить новый одномерный массив а, элементами которого будут отрицательные элементы 3-го столбца матрици
2)подсчитать их сумму по формуле
3)Заменить элемент в 3-й строке и 2-м столбце на получленное значение S

program lab4;
const n=5; m=3;
var c:array [1..n,1..m] of real;
a:array [1..n] of real;
i,j,k,l:integer;
s,f,d:real;
begin
writeln ('vvedite matricy c[5*3]');
for i:=1 to n do
for j:=1 to m do
begin writeln ('c[',i,j,']');
readln (c[i,j]);
end;
writeln ('isxodnaa matrica');
for i:=1 to n do
begin for j:=1 to m do
write (c[i,j]:2 :2,'');
writeln;
end;
;
for i:=1 to n do
begin
if c[i,3]<0 then
begin
a[i]:=c[i,3];
writeln (c[i,3]:2 :2);
end;end;
for i:=1 to n do
write (a[i]:2 :2,'');
writeln;
begin i:=1;
S:=0;
for i:=1 to n do
S:=s+a[i]+sin(a[i]);
writeln ('s=',s:2 :2)
end;
d:=s; c[3,2]:=d;
writeln ('rezultat');
for i:=1 to n do
begin for j:=1 to m do
write (c[i,j]:2 :2,'');
writeln;
readln;
end;end.

Сообщение отредактировано: volvo - 23.11.2010 10:55

[Гость]

В паскалевском файле выложи

[мисс_граффити]

не надо в паскалевском файле (что, контрол+с и контрол+в не работает?)
лучше скажи, чего у тебя программа на полуфразе обрывается?

[Speed52]

Извиняюсь!

program lab4;
const n=5; m=3;
var c:array [1..n,1..m] of real;
a:array [1..n] of real;
i,j,k,l:integer;
s,f,d:real;
begin
writeln ('vvedite matricy c[5*3]');
for i:=1 to n do
for j:=1 to m do
begin writeln ('c[',i,j,']');
readln (c[i,j]);
end;
writeln ('isxodnaa matrica');
for i:=1 to n do
begin for j:=1 to m do
write (c[i,j]2,'');
writeln;
end;
;
for i:=1 to n do
begin
if c[i,3]<0 then
begin
a[i]:=c[i,3];
writeln (c[i,3]2);
end;end;
for i:=1 to n do
write (a[i]2,'');
writeln;
begin i:=1;
S:=0;
for i:=1 to n do
S:=s+a[i]+sin(a[i]);
writeln ('s=',s:2:2)
end;
d:=s; c[3,2]:=d;
writeln ('rezultat');
for i:=1 to n do
begin for j:=1 to m do
write (c[i,j]2,'');
writeln;
readln;
end;end.


Пожалуйста

[Kirill_]

кто тебя учил писать программы
про отступы (TAB) слышал

[Speed52]

Как учили в политехе. Так и пишу. Лучше помоги написать через процедуры!

[мисс_граффити]

теги ставить не забывай.
у тебя этот код нормально работает?...

если да - то проблема только с выделением процедур? почитай в FAQ'е, как передавать матрицы подпрограммам.

[Speed52]

А всёже?

[Kirill_]

А всёже?

НА

[Speed52]

Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!