Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 05.05.2014, 19:37   #1 (permalink)
Amir1995
Новичок
 
Регистрация: 05.05.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, пожалуйста, написать программу в Delphi

Дана матрица размера 4x7. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце.
Amir1995 вне форума   Ответить с цитированием

Старый 05.05.2014, 19:37
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Посмотрите в этих темах, возможно там есть нужный ответ

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

Старый 05.05.2014, 20:30   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
По умолчанию

На Pascal:

const n= 4;
m= 7;
type Tmatr= array[1..n,1..m] of byte;
var
A: Tmatr;
t,i,j: byte;
mini,maxi: byte;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
A[i,j]:= Random(100);
for i:=1 to n do begin
for j:=1 to m do
Write(A[i,j]:4);
Writeln;
end;
Writeln;
j:=1;
repeat
maxi:=1;
for i:=2 to n do
if A[i,j]> A[maxi,j] then maxi:= i;
mini:=1;
for i:=2 to n do
if A[i,j]< A[mini,j] then mini:= i;
t:= A[mini,j];
A[mini,j]:= A[maxi,j];
A[maxi,j]:= t;
Inc(j);
until j>m;
for i:=1 to n do begin
for j:=1 to m do
Write(A[i,j]:4);
Writeln;
end;
Readln;
end.
Евгений вне форума   Ответить с цитированием
Старый 05.05.2014, 23:22   #3 (permalink)
Amir1995
Новичок
 
Регистрация: 05.05.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

И за это спасибо большое!!!
Amir1995 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 18:47.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.