Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » ПОМОГИТЕ ПЕРЕПИСАТЬ ПРОГУ (МАТРИЦЫ ПАСКАЛЬ)
ПОМОГИТЕ ПЕРЕПИСАТЬ ПРОГУ
надо переписать прогу с матрицей (сделать 2е проги)
сначала с процедурами
а втораю с функциями

народ выручайте позарез как надо

задание:
сост прогу формирования вектора елементы которого = среднему значению положительных елементов строки матрицы

готовая с матрицами
program TP5;
uses crt;
type
mat=array [1..100,1..100] of real;
var
a:mat;
n,m,i,j,k:integer;
s,src:real;
Begin
clrscr;
writeln('введите количество строк');
readln(n);
writeln('введите количество столбцов');
readln(m);
clrscr;
for i:=1 to n do
for j:=1 to m do
begin
Write('введите a[',i,',',j,']','=');
readln (a[i,j]);
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then
begin
s:=s+a[i,j];
k:=k+1;
end;
for i:=1 to n do
BEGIN
if k>0 then
src:=s/k
else src:=0;
END;
clrscr;
writeln('начальные данные');
writeln('n=',n);
writeln('m=',m,#10#13,'матрица а');
for i:=1 to n do
begin
for j:=1 to m do
write(' ',a[i,j]:6:3);
writeln
end;
writeln('результаты решения');
writeln('сумма положительных елементов s=',s:6:3);
writeln('количество положительных елементов k=',k);
writeln('src=',src:6:3);
END.
1 | Автор: bestswimer | 2011-10-23, 17:38   |  Репутация: [ + 0 ]
Ну если код рабочий, то объяви процедуру (функцию), в ней весь код, потом в теле основной программы вызови функции..что сложного то?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-10-24, 08:54   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » ПОМОГИТЕ ПЕРЕПИСАТЬ ПРОГУ (МАТРИЦЫ ПАСКАЛЬ)
Страница 1 из 11
Поиск: