IPB
ЛогинПароль:

> ПРАВИЛА РАЗДЕЛА!!!

1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!

 
Closed Topic Открыть новую тему 
> Помогите! не пойму что нужно программе, массив в паскале
сообщение
Сообщение #1


Гость






Даны две действительные матрицы разной размерности. Используя процедуру упорядочить (переставить) строки матриц по неубыванию сумм тех элементов строк, значения которых лежат в интервале [a,b]. Использование вспомогательных рабочих массивов допускается. Проверить работу программы на тестовом примере. Результаты вывести на печать. Отчет должен содержать: условие задачи, блок-схему алгоритма работы программы. Программу, тестовые исходные данные и результаты работы программы.

program pr;
type vect=array[1..7,1..7] of integer;
var bm,cm:vect;
rv1,rh1,rv2,rh2,i,j,k,p,s,aq,bq,q:integer;
procedure proc(var a:vect;var h,v:integer);
var b :array [1..7] of integer;
begin
for j:=1 to v do begin
q:=0;
for i:=1 to h do
if (a[i,j]>aq) or (a[i,j]<bq) then q:=q+a[i,j];
b[j]:=q;
end;
for i:=1 to v-1 do
begin
k:=i;
for j:=i to v do
if b[k]<b[j] then k:=j;
for s:=1 to h do
begin
p:=a[s,k];
a[s,k]:=a[s,i];
a[s,i]:=p;
end;
end;
end;
procedure vvod(var f:vect;var h,v:integer);
begin
for i:=1 to v do
for j:=1 to h do
read(f[j,i]);
end;
procedure vyvod(var f:vect;var h,v:integer);
begin
for i:=1 to v do
begin
for j:=1 to h do
write(f[j,i]);
writeln;
end;
end;
begin
read(rv1,rh1);
read(rv2,rh2);
read(aq,bq);
vvod(bm,rv1,rh1);
vvod(cm,rv2,rh2);
proc(bm,rv1,rh1);
proc(cm,rv2,rh2);
vyvod(bm,rv1,rh1);
vyvod(cm,rv2,rh2);
end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


 ! 
1. Заголовок темы должен быть информативным
2. Теги!!!
3. Разделом ошибся.

Закрыто.



--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 2:41
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name