Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Как сделать цикличность https://www.cyberforum.ru/ turbo-pascal/ thread413542.html
Мне нужна программа на MidletPascal которая будет рандомом выводить на экран число,это я сделал,но у меня не получается сделать чтоб при нажатии кнопки RESTART появлялось новое число... вот код...
Turbo Pascal цикл и перменные? я негодуе...
1) найти положение свободно падающего в глубокий колодец камня через t секунд после начала падения. сопротивление воздуха не учитывать. величина т изменяется от А до В с шагом Н. формула пути при...
Дан линейный массив целых чисел ввести с клавиатуры не менее 10 элементов и посчитать сколько в нем различных чисел . Turbo Pascal
Дан линейный массив целых чисел ввести с клавиатуры не менее 10 элементов и посчитать сколько в нем различных чисел . Добавлено через 32 секунды помогите решить срочно пожалуйста
Turbo Pascal Задан линейный массив. Осуществить в нем сдвиги по следующим правилам: Расположить элементы в обратном порядке. Задан линейный массив. Осуществить в нем сдвиги по следующим правилам: Расположить элементы в обратном порядке. Прошу помощи, заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread413487.html
Turbo Pascal Что делают операторы inc в данной задаче? https://www.cyberforum.ru/ turbo-pascal/ thread413479.html
4. Дан одномерный массив из n целых чисел. Составить программу вычисления а) суммы элементов, стоящих на четных местах; б) суммы четных элементов; в) среднего арифметического четных элементов ...
Круговая диаграмма. Turbo Pascal
Здравствуйте. Необходимо нарисовать диаграмму,состоящую из 10 заполненных секторов,используя различные орнаменты и цвета заполнения. Помогите,пожалуйста. Добавлено через 57 минут Кто-нибудь...
Turbo Pascal Вывести день недели, по введенной дате (type, record)
Дано: type number = 1..31; month = 1..12; year = 1..2050; data = record n: number; m: month; y: year; end;
Turbo Pascal Составление циклических алгоритмо Определить y = {e}^{sin x} в пяти точках, если x = 0, 2, 4, ... Напечатать значение y при всех значениях x. https://www.cyberforum.ru/ turbo-pascal/ thread413465.html
Turbo Pascal строки. текстовые файлы. https://www.cyberforum.ru/ turbo-pascal/ thread413459.html
Первым элементом каждой строки текстового файла является число. Создать копию этого файла и найти сумму первых элементов всех строк.
Turbo Pascal Графика в турбо паскале Построение статического рисунка Многоэтажный дом https://www.cyberforum.ru/ turbo-pascal/ thread413446.html
1 / 1 / 1
Регистрация: 21.12.2011
Сообщений: 10
21.12.2011, 15:44 0

Определить максимальный и минимальный элемент матрицы

21.12.2011, 15:44. Просмотров 2947. Ответов 4
Метки (Все метки)

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

Решение


Вторая программа.
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
program pas;
const
n=4;
type
matrix = array[1..n, 1..n] of integer; 
 procedure vvodmatr(var A:matrix);
 var i,j: integer;
 begin
  for i:=1 to n do begin
   For j:=1 to n do begin
    write('A[',i,j,']= ');
    readln(A[i,j]);
   end;
  end;
 end;
 procedure oper(var A:matrix);
 var i,j:integer;
 begin
 for i:=1 to n do begin
  for j:=1 to n do begin
   if (A[i,j] mod 2)=0 then A[i,j]:=A[i,j]+16 else A[i,j]:=A[i,j]*3;
  end;
 end;
 end;
 procedure vivodmatr(var A:matrix);
 var i,j,f:integer;
 begin;
 f:=0;
 for i:=1 to n do begin;
  for j:=1 to n do begin;
   f:=f+1;
   if (f mod 4)<>0 then write(A[i,j],' ') else writeln(A[i,j],' ');
    end;
  end;
 end;
var
a:matrix;
begin
writeln('Ввод матрицы');
vvodmatr (a);
oper (a);
writeln;
writeln('Содержимое обработанной матрицы:');
vivodmatr (a);
readln;
end.
только выравнивания обработанной матрицы по сетке не сделал...

Вернуться к обсуждению:
Определить максимальный и минимальный элемент матрицы
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2011, 15:44
Готовые ответы и решения:

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 10х8, элементами которой являются целые случайные числа из интервала ....

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 5х3, элементами которой являются целые случайные числа из интервала...

Определить, что больше: максимальный элемент левой половины или минимальный элемент правой половины матрицы
Определить что больше максимальный элемент левой половины или минимальный элемент правой половины...

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

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