Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        программа для матрицы
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: paradise, KMA
  

marina11



Новичок

помогите с программой
Дана матрица А(5,3)
1. Найти строку, содержащую минимальный элемент матрицы
2. Найденную строку  поменять местами с 4-ой строкой.

Всего сообщений: 2 | Присоединился: декабрь 2010 | Отправлено: 1 дек. 2010 20:14 | IP
Sarben



Новичок

Вот попробуй...
ПРОВЕРЬ, вдруг есть ошибки, т.к. в программировании я ещё слаб

var i,j,k:Integer; s:Real; a:array[0..5,1..3] of Real;
begin
Randomize; for i:=1 to 5 do for j:=1 to 3 do a[i,j]:=Random(100);
WriteLn(' Ishodnaja matriza:');
for i:=1 to 5 do begin for j:=1 to 3 do Write(a[i,j]:8:2); WriteLn end;
s:=a[1,1]; for i:=1 to 5 do for j:=1 to 3 do if s>=a[i,j] then
       begin s:=a[i,j]; k:=i end;
a[0]:=a[4]; a[4]:=a[k]; a[k]:=a[0];
WriteLn;
ReadLn
end.

Всего сообщений: 7 | Присоединился: декабрь 2010 | Отправлено: 1 дек. 2010 20:38 | IP
Sarben



Новичок

Обязательно проверь

Всего сообщений: 7 | Присоединился: декабрь 2010 | Отправлено: 1 дек. 2010 20:40 | IP
paradise


Долгожитель

2 Sarben
>>> a[0]:=a[4]; a[4]:=a[k]; a[k]:=a[0];
это что такое? Как минимум, пахнет разными размерностями.

Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 3 дек. 2010 16:17 | IP

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Одна страница

Форум работает на скрипте © Ikonboard.com