Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Перевод числа из десятичной системы счисления в двоичную Здравствуйте! Пытаюсь написать программу для перевода чисел из десятичной системы счисления в двоичную. Вот, что пока написал Program Nolimit; var M:array of integer; n, Ch, Ost : integer; https://www.cyberforum.ru/ pascal/ thread94604.html Алгоритмизация Pascal
Помогите плз написать программы к следующим заданиям: 1. С клавиатуры вводится последовательность вещественных чисел, оканчивающаяся нулем. Найти среднее арифметическое положительных чисел и среднее арифметическое отрицательных чисел, введенных с клавиатуры. 2. В одномерном массиве целых чиселзаменить все, числа, которые делятся на 5, на 3; а остальные числа просуммировать. 3. Проверить,...
Pascal Максимальный элемент столбца матрицы https://www.cyberforum.ru/ pascal/ thread94595.html
Дана прямоугольная матрица целых чисел. Выписать максимальный элемент в каждом столбце, указав номер его строки. uses crt; const n=7; m=5; var A: array of integer; i, k, j: byte; max, l: integer; begin clrscr; randomize; for i:=1 to n do
Pascal Максимальный элемент строки матрицы Дана прямоугольная матрица целых чисел. Выписать максимальный элемент в каждой строке, указав его номер столбца. uses crt; const n=7; m=5; var A: array of integer; i, k, j: byte; max, l: integer; begin clrscr; randomize; for i:=1 to n do https://www.cyberforum.ru/ pascal/ thread94584.html
Pascal Вывод матрицы
Как вывести матрицу? ]:-> uses crt; const n=7; m=5; var A: array of integer; i, j: byte; max, l: integer; begin clrscr; randomize; for i:=1 to n do
Pascal Рекурсивная функция возведения вещественного числа в целую степень Решите задачку, плиз ((( Описать рекурсивную функцию pow(x, n) от вещественного x (x <> 0) и целого n, которая вычисляет величину x^n (x в степени n) согласно формуле: (система) x^n=1 при n=0; x^n=1/x^-n при n<0; x^n=x*x^n-1 при n>0. https://www.cyberforum.ru/ pascal/ thread94576.html
Pascal Найти два соседних элемента массива, сумма которых наиболее близка к числу R https://www.cyberforum.ru/ pascal/ thread94563.html
дано число R и массив размера N. найти два соседних элемента массива, сумма которых наиболее близка к числу R, и вывести эти элементы в порядке возрастания их индексов. R=3.75 N=9. помогите решить пожалуйста.
Pascal Написание таблицы
Даны массивы: P(1)...P(11) - наименование предприятий; TK(1)...TK(11) - объем выполненных перевозок, ткм; R(1)...R(11) - расход дизельного топлива, л; Напечатать список предприятий, у которых отношение R(i)/TK(i) больше среднего по всей группе предприятий. Указать предприятие с минимальный коэффициентом R(i)/TK(i). Таблицу загружать из внешнего файла. В Паскале вывести таблицу с помощью...
Pascal Найти в массиве номер столбца сумма элементов которого наименьшая помогите пожалуйста. 1. найти в массиве номер столбца сумма элементов которого наименьшая? ( в паскале) 2.дан массив из 20 элементов. какое число записано наибольшее количество раз подряд? (в паскале) спс) https://www.cyberforum.ru/ pascal/ thread94552.html Pascal модуль CRT https://www.cyberforum.ru/ pascal/ thread94551.html
не удивляйтесь вопросу, но мне очень нужно узнать ,что-то дополнительно (интересное) о модуле CRT. может ссылочку дадите.Программу создавала, окна втавляла, мерцание делала, знаю про звук . Что ещё?
Реализация программного меню методами ООП Pascal
Рационально ли использовать ООП для разработки программного меню или лучше использовать линейное программирование? жду Ваших отзывов, только объясняйте почему тот или другой метод лучше.
Pascal Составить блок-схему и программу для нахождения,используя операторы цикла for. 1. Составить блок-схему и программу для нахождения 10 П(xi * cos(i+p/4)) i=5 https://www.cyberforum.ru/ pascal/ thread94536.html
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
11.02.2010, 19:17 0

В прямоугольной целочисленной матрице, переставляя местами строки и столбцы, добиться того, чтобы максимальный элемент был в левом верхнем углу - Pascal - Ответ 537851

11.02.2010, 19:17. Показов 1353. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено melkorgod как решение

Решение

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
uses crt;
const n=7;
      m=4;
var a:array[1..n,1..m]of integer;
    i,j,imax,jmax:integer;
    max,x:integer;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(50)+10;
        write(a[i,j]:4);
      end;
    writeln;
  end;
max:=a[1,1]; imax:=1; jmax:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
   begin
     max:=a[i,j];  {максимум}
     imax:=i;     {номер строки}
     jmax:=j;      {номер столбца}
   end;
writeln('Max=',max,'  imax=',imax,'  jmax=',jmax);
{перестановка строк}
for j:=1 to m do
  begin
    x:=a[1,j];
    a[1,j]:=a[imax,j]; {меняем местами элементы строки 1 со строкой, где макс}
    a[imax,j]:=x;
  end;
{перестановка столбцов}
for i:=1 to n do
  begin
    x:=a[i,1];
    a[i,1]:=a[i,jmax];{меняем местами элементы столбца 1 со столбцом, где макс}
    a[i,jmax]:=x;
  end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.


Вернуться к обсуждению:
В прямоугольной целочисленной матрице, переставляя местами строки и столбцы, добиться того, чтобы максимальный элемент был в левом верхнем углу Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.02.2010, 19:17
Готовые ответы и решения:

Переставляя строки и столбцы, добиться того чтобы наибольший элемент оказался в верхнем левом углу
Дана вещественная матрица размером 7x4. Переставляя её строки и столбцы , добиться того чтобы...

Матрица. Переставляя ее строки и столбцы, добиться того, чтобы наибольший элемент оказался в верхнем левом углу
Дана матрица размером n х m. Переставляя ее строки и столбцы, добиться того, чтобы наибольший...

Переставляя строки и столбцы матрицы, добиться того, чтобы наибольший элемент оказался в верхнем левом углу
{Программа. Дана (построчно) вещественная матрица размером 7x4. Переставляя ее строки и столбцы,...

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

1
11.02.2010, 19:17
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.02.2010, 19:17
Помогаю со студенческими работами здесь

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

Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении k-й строки и k-го столбца.
задана матрица размером M x N. Найти максимальный по модулю элемент матрицы.Переставить строки и...

Переставляя строки и столбцы, добиться того, чтобы наибольший элемент (один из них) оказался в левом верхнем углу
ребята!!!! помогите пожалуйсто!!!! очень нужно!!! процедуры и функции: Задача №28 Дана...

Переставляя строки и столбцы матрицы, добиться того, чтобы ее наибольший элемент оказался в нижнем правом углу
Помогите Пожалуйста!!!

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru