Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal 25) Вычеркнуть х строку и k столбец из матрицы A[1.N,1.M], содержащие минимальное значение этой матрицы Вычеркнуть х строку и k столбец из матрицы A, содержащие минимальное значение этой матрицы https://www.cyberforum.ru/ turbo-pascal/ thread718120.html Turbo Pascal Описать запись с названием PRICE
Описать запись с именем PRICE, который имеет следующее поля: 1) название товара; 2) название магазина в котором продается товар; 3) цена товаров в рублях; Написать программу которая выполняет...
Turbo Pascal Дан одномерный массив. Вместо первого элемента массива записать наибольший Всем привет,помогите решить две задачи. 1)Дан одномерный массив. Вместо первого эл.массива записать наибольший. program p1; uses crt; const n=10; var i,m:integer a:array of integer; begin... https://www.cyberforum.ru/ turbo-pascal/ thread718104.html Turbo Pascal Задано двухзначное число. Чему равна последняя цифра числа? 1.Задано двухзначное число.Чему равна последняя цифра числа? 2. Задано двухзначное число.Чему равна первая цифра числа? 3. В двухзначное число вписать ноль в середину и получить трехзначное число? https://www.cyberforum.ru/ turbo-pascal/ thread718102.html
Turbo Pascal Вычислить значение выражения
Помогите, пожалуйста, написать программку к задаче, что на скрине ниже! Очень нужно:help:
Turbo Pascal Вычислить сумму элементов матрицы (выделены символом X) Вычислить сумму элементов матрицы (выделены символом X) https://www.cyberforum.ru/ turbo-pascal/ thread718058.html
Turbo Pascal По матрице A размером 10x10 построить матрицу B По матрице A = || a || размером 10x10 построить матрицу B = || b || того же размера, элемент b которой равен минимальному элементу треугольника в А, определяемого элементом a: 1 0 0 0 0 0 0 0 0 0 1... https://www.cyberforum.ru/ turbo-pascal/ thread718050.html Turbo Pascal Вычислить сумму чисел, порядковые номера которых являются числами фиббоначчи
Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются числами фиббоначчи.
Turbo Pascal Найти максимум и минимум НЕ используя оператор IF https://www.cyberforum.ru/ turbo-pascal/ thread718017.html
Нужно ввести 2 вещественных числа и определить, какое из них максимальное, а какое минимальное, не используя оператор IF/ Не догоняю как сделать, а лабораторную нужно сдавать завтра.
Turbo Pascal Последний элемент кратный заданному числу и количество отрицательных элементов после него https://www.cyberforum.ru/ turbo-pascal/ thread718007.html
Условие задачи:Последний элемент кратный заданному числу и количество отрицательных элементов после него. Пытался разобраться по частям. Нашел оператор MOD. Вроде написал что то подобное, что...
Turbo Pascal Не используя стандартные функции вычислить сумму
не используя стандартные функции (за исключением a,b,s) выч сумму след элем. заданной точностью E>0 (E,x,a вводятся с клавиатуры)
Turbo Pascal Дан массив, определить сумму эллементов Очень нужна помощь..Понятнее на фото: https://www.cyberforum.ru/ turbo-pascal/ thread717996.html
38 / 38 / 22
Регистрация: 29.10.2011
Сообщений: 95
03.12.2012, 23:42 0

Поменять местами столбец с наибольшим значением со столбцом с наименьшим значением - Turbo Pascal - Ответ 3798079

03.12.2012, 23:42. Показов 1226. Ответов 1
Метки (Все метки)

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

Решение

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
53
54
55
56
57
58
59
60
var
  A: array [0..2, 0..2] of integer;
  i, j, V, maxj, minj, max, min: integer;
 
begin
  for i := 0 to 2 do 
    for j := 0 to 2 do
    begin
      write('A[', i, ',', j, ']= ');
      readln(A[i, j]);
    end;
  
  max := A[0, 0];
  min := A[0, 0];
  minj := 0;
  maxj := 0;
  
  for i := 0 to 2 do 
    for j := 0 to 2 do
    begin
      if (A[i, j] > max) then begin
        max := A[i, j];
        maxj := j;
      end;
      if (A[i, j] < min) then begin
        min := A[i, j];
        minj := j;
      end;
    end;
    
  for i := 0 to 2 do 
  begin
    for j := 0 to 2 do
      write(A[i, j]:4);
    writeln
  end;
  
  for i := 0 to 2 do
    for j := 0 to 2 do
    begin
      if maxj = minj then break;
      V := A[i, maxj];
      A[i, maxj] := A[i, minj];
      A[i, minj] := V;
    end;
  
  writeln;  
  
  for i := 0 to 2 do 
  begin
    if maxj = minj then begin
      Writeln('Максимальный и минимальный элементы находятся в одном столбце.');
      break;
    end;
    for j := 0 to 2 do
      write(A[i, j]:4);
    writeln
  end;
  
end.


Вернуться к обсуждению:
Поменять местами столбец с наибольшим значением со столбцом с наименьшим значением Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.12.2012, 23:42
Готовые ответы и решения:

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

Обработка матриц.В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением.
В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением. Кто поможет,...

Поменять столбец с наибольшим элементом, со столбцом с наименьшим (исправьте задачу)
В действительной матрице размером n x m (n, m &lt;10) поменять местами столбец, содержащий элемент с...

Поменять столбец матрицы А с наибольшим значением со столбцом матрицы В с наименьшим значением
Даны две целочисленные матрицы A и B размером M на N, все элементы которых различны. Поменять...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2012, 23:42

Помощь в написании контрольных, курсовых и дипломных работ здесь.

В двух матрицах поменять местами строки, содержащие элемент с наибольшим и наименьшим значением
в данных действительных матрицах n*m и k*l поменять местами строку , содержащую элемент с...

Поменять местами строку с наибольшим значением со строкой с наименьшим значением
#include &lt;stdlib.h&gt; #include &lt;iostream&gt; #include &lt;time.h&gt; using namespace std; void main() ...

В матрице поменять местами строки, содержащие элемент с наибольшим значением и с наименьшим значением
Здравствуйте Нужна помощь с задачей( код с#): В данной двумерной матрице поменять местами строку,...

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

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