Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 25.05.2014, 15:47   #1 (permalink)
NikaMay
Новичок
 
Регистрация: 25.05.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, пожалуйста, соединить две программы в Паскале

Задание звучит следующим образом:
Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы заданной матрицы, расположить их в соответствии с ростом характеристик (оформить в виде процедуры).
Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент (оформить в виде функции).


Нашла в интернете решение, НО как две разные программы.
А мне очень нужно, чтобы все было в одной программе.
Помогите пожалуйста!!!


Программа 1:


program aaa;
Var a:array[1..5, 1..5] of integer;
s:array[1..5]of integer;
j,k,m, min, pr, w,z:integer;
Procedure obmen(Var x,y:integer);
Var prom:integer;
begin
prom:=x;
x:=y;
y:=prom;
end;
begin
for j:=1 to 5 do
for k:=1 to 5 do
a[j,k]:=Random(20)-10;
writeln('Исходный массив ');
for j:=1 to 5 do
begin
for k:=1 to 5 do
write( a[j,k]:3,' ');
writeln;
end;
for k:=1 to 5 do
begin
s[k]:=0;
for j:=1 to 5 do
if (a[j,k]<0) and (a[j,k] mod 2<>0) then s[k]:=s[k]+abs(a[j,k]);
end;
writeln('массив характеристик столбцов: ');
for k:=1 to 5 do
write(s[k]:3, ' ');
writeln;
for k:=1 to 4 do
begin
min:=s[k]; m:=k;
for j:=k+1 to 5 do
if s[j]< min then begin min:=s[j]; m:=j end;
obmen(s[k],s[m]);
for w:=1 to 5 do
obmen(a[w,k],a[w,m]);
end;
writeln('отсортированный массив характеристик: ');
for k:=1 to 5 do
write(s[k]:3, ' ');
writeln;
writeln('матрица с переставленными столбцами в соответствии с ростом характеристик: ');
for j:=1 to 5 do
begin
for k:=1 to 5 do
write( a[j,k]:3,' ');
writeln;
end;
end.

Программа 2:

program zadacha2;
Type mas=array[1..5, 1..5] of integer;
Var
a:mas ;
j, sum,k, fl: integer;
function summa(b:mas; n:integer):integer;
Var s, x:integer;
begin
s:=0;
for x:=1 to 5 do
s:=s+b[x,n] ;
summa:=s;
end;
begin
writeln('Исходный массив');
for j:=1 to 5 do
begin
for k:=1 to 5 do
begin
a[j,k]:=Random(10)-3;
write (a[j, k]:4, ' ')
end;
writeln;
end;
for k:=1 to 5 do
begin
fl:=0;
for j:=1 to 5 do
if a[j,k]<0 then fl:=1;
if fl=1 then begin sum:= summa(a,k);
writeln('Сумма элементов ', k, '-го столбца=', sum);end;
end;
end.
NikaMay вне форума   Ответить с цитированием

Старый 25.05.2014, 15:47
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Вот топики, которые схожи с вашей темой

Помогите, пожалуйста, составить программы в Паскале
Проверьте пожалуйста правильность программы на паскале
Помогите соединить, пожалуйста
Ребят,помогите,пожалуйста, с написанием программы в паскале с помощью подпрограммы!

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 01:07.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.