Пятница, 29.03.2024, 09:22
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста!!!Turbo Pascal [Массив] (упорядочивание по возрастанию строки)
Помогите пожалуйста!!!Turbo Pascal [Массив]
tutisДата: Воскресенье, 21.11.2010, 15:46 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Упорядочить по возрастанию элементы каждой строки матрицы размером n*m
 
ВахаДата: Воскресенье, 21.11.2010, 18:38 | Сообщение # 2
Подполковник
Группа: Новичок
Сообщений: 28
[ 6 ]
Статус: Offline
Смысл программы в сортировке каждой строки матрицы по очереди от 1-й к m-ной.

uses CRT;

{Объявляем исходные данные}
var
matr: array [1..100, 1..100] of integer;
m, n, buf, i, j, l: integer;

BEGIN

{очищаем экран}
clrscr;

{ввод исходных данных}
WriteLn ('Введите размер матрицы');
ReadLn (m, n);
WriteLn ('Введите элементы матрицы');
for i:=1 to m do
for j:=1 to n do
read (matr [i, j]);

{перебираем строки матрицы от 1 до m}
for j:=1 to m do
begin

{сортируем числа в j-й строке методом обмена}
for i:=2 to n do
for l:=1 to i-1 do

{сравниваем соседние числа в j-й строке, если очередное число меньше предидущего, меняем их местами}
if matr [j, l]>matr[j, i] then
begin
buf:=matr[j, l];
matr[j, l]:=matr[j, i];
matr[j, i]:=buf;
end;
end;

{вывод отсортированной матрицы на экран}
WriteLn ('Отсортированная матрица');
for i:=1 to m do
begin
for j:=1 to n do
Write (matr[i, j], ' ');
writeln;
end;
readkey;
END.


Гвардия умирает но не сдается

Сообщение отредактировал Ваха - Воскресенье, 21.11.2010, 21:21
 
tutisДата: Воскресенье, 21.11.2010, 18:43 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Большое спасибо!!! respect

Сообщение отредактировал tutis - Понедельник, 22.11.2010, 17:03
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста!!!Turbo Pascal [Массив] (упорядочивание по возрастанию строки)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024