Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.11.2012, 09:06   #1
cdc
 
Регистрация: 08.11.2012
Сообщений: 4
По умолчанию Turbo Pascal. Двумерные массивы

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

P.S.: это одна задача, помогите, пожалуйста, решить её))
Сам алгоритм есть, но нужно оформить в виде функции и в виде процедур

Код:
program xxx;
uses crt;
var
a:array [1..12, 1..10] of integer;
i, l, p, s, j, x, y, n, k: integer;
m, d:boolean;
begin
clrscr;
randomize;
writeln(' Введите размер матрицы');
readln(n, k);
clrscr;
for i:= 1 to n do
for j:= 1 to k do
begin
a[i, j]:=Random(10)-5;
write(a[i, j], ' ');
end;
for i:=1 to n do
begin
l:=1;
s:=0;
for j:=1 to k do
begin
if j<>k then
for x:=j+1 to k do
if a[i, j]=a[i, x] then
begin
m:=false;
if j<>1 then
begin
for y:=1 to j-1 do
if a[i, y]=a[i, j] then
m:=true;
end;
if m<>true then
l:=l+1;
end;
if l<>1 then
s:=s+1;
l:=1;
end;
a[i, k+1]:=s;
end;
for j:=1 to n-1 do
for x:=1 to n-1 do
begin
if a[x, k+1]>a[x+1, k+1] then
begin
for y:=1 to k+1 do
begin
a[n+1, y]:=a[x, y];
a[x, y]:=a[x+1, y];
a[x+1, y]:=a[n+1, y];
end;
end;
end;
writeln(' ');
writeln(' Упорядоченный массив');
writeln(' ');
for i:=1 to n do
for j:=1 to k do
if j<>k then
write(a[i, j], ' ')
else
writeln(a[i, j]);
for i:=1 to n do
begin
for j:=1 to k do
begin
if a[i, j]<0 then d:=true;
end;
l:=1;
if (d=false) and (y=1) then
begin
p:=j;
l:=l+1;
break
end
else p:=0;
end;
writeln(p);
readln;
end.


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 08.11.2012 в 09:36.
cdc вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo Pascal Двумерные массивы lvl Помощь студентам 5 08.11.2012 08:26
двумерные массивы.(pascal) Диляра - новичок Помощь студентам 1 01.12.2010 18:12
Turbo Pascal 7.0 (Двумерные массивы) @vror@ Помощь студентам 4 27.05.2010 14:33
Двумерные массивы в PASCAL hohol90 Помощь студентам 2 01.12.2009 15:55