Другие языки программирования и технологии

Pascal перевести программу на подпрограмму.

Пожалуйста помогите нужно сделать подпрограмму внутри программы через function Pascal
вот код программы
разделить программу можно на любой часть
Program 3;
const
stroka = 3;
stolba = 4;
// Дана прямоугольная таблица вещественных чисел. Среди сумм элементов строк найти значение максимальной.
var
massiv: array[1..stroka, 1..stolba] of real;
maksimal, vremenniy_maksimal, chislo: real;
x, str, stb: integer;

begin
X:=stroka*stolba;
writeln('Vvedite znacheniya: ' , X, '-raz');
for str := 1 to stroka do
begin
for stb := 1 to stolba do
begin
readln(chislo);
massiv[str, stb] := chislo;
vremenniy_maksimal += massiv[str, stb];
if str = 1 then
maksimal += massiv[str, stb];
end;
if vremenniy_maksimal > maksimal then maksimal := vremenniy_maksimal;
vremenniy_maksimal := 0;
end;
writeln('Maksimalniy summa elementov iz odnoy stroki: ', maksimal);
end.
Валерий Армаш
Валерий Армаш
195
По видимому как-то так
Program 3;
procedure subproc;
const
stroka = 3;
stolba = 4;
// Дана прямоугольная таблица вещественных чисел. Среди сумм элементов строк найти значение максимальной.
var
massiv: array[1..stroka, 1..stolba] of real;
maksimal, vremenniy_maksimal, chislo: real;
x, str, stb: integer;
begin
X:=stroka*stolba;
writeln('Vvedite znacheniya: ' , X, '-raz');
for str := 1 to stroka do
begin
for stb := 1 to stolba do
begin
readln(chislo);
massiv[str, stb] := chislo;
vremenniy_maksimal += massiv[str, stb];
if str = 1 then
maksimal += massiv[str, stb];
end;
if vremenniy_maksimal > maksimal then maksimal := vremenniy_maksimal;
vremenniy_maksimal := 0;
end;
writeln('Maksimalniy summa elementov iz odnoy stroki: ', maksimal);
end;
begin
subproc;
end.
Альфа Альфа
Альфа Альфа
20 235
Лучший ответ
Валерий Армаш спасибо :)
сумма элементов по строке
function Sum1(a,b: integer): integer;
var i, s: integer;
begin
s:=0;
for i:=a to b do s:=s+massiv[i];
Sum1:=s;
end;
...вызов result:=Sum1(1,4); сумма элементов по строке и

далее аналогично
Иван Егорович Васильев
Иван Егорович Васильев
69 141
измени немного эту прогу
program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
var
j,i,n,m:integer;
a:matr;
s:array[1..100] of integer;
BEGIN
randomize;
clrscr;
writeln('решение задачи на массив ');
writeln('---------------------------');
writeln;
write('Ввксти число строк--> '); readln(n);
write('Ввксти число столбцов--> '); readln(m);
writeln('Имсходный массив ');
writeln('------------------');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(11);
write(a[i,j]:4);
end;
writeln;
end;
writeln('Сумма элементов в строках');
for i:=1 to n do begin
s[i]:=0;
for j:=1 to m do
s[i]:= s[i]+a[i,j];
write( s[i]:4); end;
writeln;
writeln('конец задачи ');
readln;
END.
ЮА
Юрий Аладышев
95 955
Валерий Армаш можно, но учитель уже видел мой код, а я незнаю как сделать подпрогамму внутри программу помогите пожалуйста :)

Похожие вопросы