Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 18.12.2009, 17:51   #1
Nitriyc
Пользователь
 
Регистрация: 18.11.2009
Сообщений: 20
По умолчанию Динамическая структура

вот программа нужно переделать её в динамическу структуру
program lab_6;
const n=5;
type matr=array [1..n,1..n] of integer;
procedure Input(var a:matr);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
end;
procedure Change(var a:matr; var f:byte);
var i,j:byte;
x:integer;
Begin
f:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (a[i,j]>=0) then
begin
if i<j then
begin
x:=a[j,i];
a[j,i]:=a[i,j];
a[i,j]:=x;
end;
end
else f:=0;
end;
end;
end;
procedure Output(const a:matr);
var i, j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
writeln;
end;
end;
var a:matr;
f:byte;
begin
Input(a);
Change(a,f);
if f=1 then Output(a)
else writeln('est otricatelnoe chislo');
readln;
readln;
End.
вот задание:Дана квадратная матрица порядка n(n=5). Если в данной матрице a нет отрицательных элементов, то транспонировать её, иначе выдать сообщение.
Заранее спасибо
Nitriyc вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Динамическая строка Сергей089 C++ Builder 15 10.12.2009 20:32
Задача: Динамическая структура данных на Си++ Клеом Помощь студентам 2 26.10.2009 17:17
динамическая структура o4arova6ka90 Помощь студентам 0 17.10.2009 13:05
Динамическая шапка dr.Chas HTML и CSS 1 03.09.2009 07:25
Динамическая переменная kezman Общие вопросы C/C++ 1 29.07.2008 12:49


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840