Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Fruckt
0 / 0 / 0
Регистрация: 22.05.2015
Сообщений: 5
#1

Перевод с Turbo Pascal: Найти минимальный элемент матрицы, для каждой диагонали параллельно главной

23.05.2015, 11:12. Просмотров 230. Ответов 2
Метки нет (Все метки)

.Дана квадратная матрица A порядка M.Найти минимальный элемент для каждой диагонали параллельно главной начиная с одноэлементной диагонали А1,M.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program matrica;
uses crt;
var n,i,j,l,min:integer;
    a:array[1..20,1..20]of integer;
begin
clrscr;
write('n=');readln(n);
randomize;
Writeln('Ishodnaja matrica:');
for i:=1 to n do
   begin
     for j:=1 to n do
         begin
           a[i,j]:=random(10);
           write(a[i,j]:3);
         end;
      writeln;
   end;
for l:=2*n-1 downto 1 do
  begin
    min:=maxint;
    if l<=n then{esli ne nuzno glavnuyu l<n}
      begin
       for i:=n-l+1 to n do
       for j:=1 to l do
       if (j=i-n+l)and(a[i,j]<min) then min:=a[i,j];
      end
    else if l>n then
      begin
       for i:=1 to 2*n-l do
       for j:=l-n+1 to n do
       if (j=i+l-n)and(a[i,j]<min) then min:=a[i,j];
      end;
    writeln('Min na dyaginali ',2*n-l,' = ',min);
  end;
readln
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2015, 11:12
Ответы с готовыми решениями:

Найти минимальный элемент для каждой диагонали матрицы, параллельной главной
Дана квадратная матрица A порядка M. Найти минимальный элемент для каждой ее...

Найти минимальный элемент для каждой диагонали матрицы, параллельной главной
Дана квадратная матрица A порядка M. Найти минимальный элемент для каждой ее...

Найти минимальный элемент в каждой диагонали, параллельной побочной диагонали матрицы,
Добрый вечер. Нужно решить следующую задачу: Задана квадратная вещественная...

Найти максимальный элемент для каждой диагонали квадратной матрицы, параллельной главной
Дана квадратная матрица A порядка M. Найти максимальный элемент для каждой ее...

Найти минимальный элемент на главной диагонали матрицы
дан двумерный массив размером n m найти минимальный элемент на главной диагонали

2
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,517
23.05.2015, 13:05 #2
А чего переводить, это и в АВС будет работать.
0
Fruckt
0 / 0 / 0
Регистрация: 22.05.2015
Сообщений: 5
23.05.2015, 19:53  [ТС] #3
Что серьезно, а я не знал спасибо я думал они отличаются.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2015, 19:53

Найти минимальный элемент, расположенный на главной диагонали матрицы
Найти минимальный элемент, расположенный на главной диагонали матрицы A, а из...

Найти минимальный элемент, находящийся на главной диагонали матрицы
Помогите пожалуйста я в паскале ноль Задача №1 Дана квадратная матрица...

Найти минимальный внедиагональный элемент матрицы и добавить его к максимальному элементу главной диагонали матрицы
Найти минимальный внедиагональный элемент матрицы и добавить его к...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru