Пятница, 25.07.2025, 09:50
Главная Регистрация Вход
Приветствую Вас, Гость · RSS
Форма входа
Категории раздела
ВМ (шпоры) [4]
Высшая математика
ОПАМ (задания и решения) [20]
Основы программирования и алгоритмические языки
CОД (задания) [16]
Структуры организации данных
Расписание [3]
Самое новое
Ведомости и оценки [2]
ОДМ (задания) [10]
Основы Дискретной Математики
ИКГ (решения) [1]
Инженерная и Компьютерная Графика
Программы [3]
ОДМ (решения и шпоры) [4]
Основы Дискретной Математики
СОД (решения) [8]
Структуры организации данных
Культурология (задания, решения и конспекты) [3]
ВМ (задания) [1]
Высшая математика
Практика (компьютерная) [2]
Дискретные структуры [1]
Поиск
Наш опрос
Какие части сайта Вам нравиться больше всего?
Всего ответов: 19
Быстрые ссылки
Google
Яндекс
ВикипедиЯ
VKontakte
Другие ссылки
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
 Каталог файлов
Главная » Файлы » ОПАМ (задания и решения)

TП-10 Динамические масивы
[ Скачать с сервера (431.1 Kb) ] 22.02.2009, 12:52
Категория: ОПАМ (задания и решения) | Добавил: slashovanton
Просмотров: 607 | Загрузок: 85 | Комментарии: 2 | Рейтинг: 5.0/1 |
Всего комментариев: 1
1 Nihtalak  
0
Program tp10;
uses crt;
type tmass = array[1..30,1..30] of real;
point = ^tmass;
var a: point;
m, n :integer;
Procedure Input(var x:point; name: string; var n,m:integer);
var i,j:byte;
begin
ClrScr;
WriteLn('Введите кол-во строк');
readln(n);
ClrScr;
WriteLn('Введите кол-во столбцов');
readln(m);
ClrScr;
for i:=1 to n do
for j:=1 to m do
begin
Writeln('input ',name,'[',i,',',j,']');
readln(x^[i,j]);
ClrScr;
end;
end;
Procedure FindReplace(x: point; n,m:integer);
var i,j,h,v : integer;
max: real;
Begin
max := x^[1,1];
for i:=1 to n do
for j:=1 to m do
if x^[i,j] > max then
begin
max := x^[i,j];
v:=j;
h:=i;
end;
for i:=1 to n do begin
if i = h then
continue;
x^[i,v] := 1;
end;
for j:=1 to m do begin
if j = v then
continue;
x^[h,j] := 1;
end;
end;
Procedure Output(x:point; name:string; n,m:integer);
var i,j:integer;
begin
WriteLn('Матрица : ',name);
WriteLn('Кол-во рядов - ', n);
WriteLn('kil-st stovbciv - ', m);
WriteLn;
for i:=1 to n do
begin
for j:=1 to m do
Write(x^[i,j]:6:2,' ');
WriteLn;
end;
end;
Begin
new(a);
Input(a,'a',n,m);
WritelN('laboratorna robota TP-9');
WriteLn('z discipliny OPAM');
WriteLn('studenta grupy');
WriteLn('Oberemka Volodymira');
WriteLn(#10#13, 'Vhidni danni');
Output(a,'a',n,m);
FindReplace(a,n,m);
Writeln(#10#13,'vyhidni danni');
output(a,'a',n,m);
dispose(a);
end.

Имя *:
Email *:
Код *: