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

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

Форум «Всё о Паскале» _ Задачи _ Помогите пожалуйсто сделать задачу через процедуры

Автор: Speed52 26.11.2006 2:56

дана матрица С(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.

Автор: Гость 26.11.2006 3:04

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

Автор: мисс_граффити 26.11.2006 3:12

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

Автор: Speed52 26.11.2006 3:22

Извиняюсь!

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.gif2,'');
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.gif2);
end;end;
for i:=1 to n do
write (a[i]2.gif2,'');
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.gif2,'');
writeln;
readln;
end;end.


Пожалуйста


Прикрепленные файлы
Прикрепленный файл  LAB4.PAS ( 743 байт ) Кол-во скачиваний: 260

Автор: Kirill_ 26.11.2006 3:29

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


Автор: Speed52 26.11.2006 3:45

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

Автор: мисс_граффити 26.11.2006 3:58

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

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

Автор: Speed52 26.11.2006 4:04

А всёже?

Автор: Kirill_ 26.11.2006 4:21

Цитата(Speed52 @ 26.11.2006 0:04) *

А всёже?

НА


Прикрепленные файлы
Прикрепленный файл  LAB4.PAS ( 1.08 килобайт ) Кол-во скачиваний: 263

Автор: Speed52 26.11.2006 4:27

Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!! good.gif