Lab6 (Лабораторные работы (В PAS-файлах))
Описание файла
Файл "Lab6" внутри архива находится в следующих папках: Лабы в PAS-файлах, Лабы. Документ из архива "Лабораторные работы (В PAS-файлах)", который расположен в категории "". Всё это находится в предмете "информационные технологии" из 2 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информационные технологии" в общих файлах.
Онлайн просмотр документа "Lab6"
Текст из документа "Lab6"
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И
АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Кафедра РПУ
Лабораторная работа №6
Тема: “Многомерные массивы”
Вариант №4
Цель работы: изучить основные приемы обработки многомерных массивов.
работу выполнил
группа ВР-1-08
проверил: Давлетчин Д.И.
Москва 2009
Постановка задачи. Дана целочисленная матрица из N строк и M столбцов (1<N<=100, 1<M<=50).
Условие. Сортировка элементов в каждой строке по неубыванию.
.
Программа
program p6;
uses crt;
var n,m,i,p:integer;
t1:array [1..100,1..50] of integer;
begin
clrscr; randomize;
for n:=1 to 100 do for m:=1 to 50 do t1[n,m]:=random(100);
for m:=1 to 50 do
begin
for n:=1 to 100 do
begin
p:=t1[n,m];
for i:=n to 100 do
begin
if p>t1[i,m] then
begin
p:=t1[i,m];
t1[i,m]:=t1[n,m];
t1[n,m]:=p;
end;end;end;end;
end.