Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 03.07.2011
Сообщений: 56
1

Небольшая программа

03.07.2011, 20:41. Просмотров 572. Ответов 2
Метки нет (Все метки)

Здравствуйте,помогите пожалуйста решить следующею задачу:Подпрограмма в указанном столбце 2х мерного массива переставляет максимальный элемент в конец столбца
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program abc;
var
a:array [1..4,1..4] of integer;
i,j,x,max:integer;
begin
for i:=1 to 4 do
 for j:=1 to 4 do readln (a[i,j]);
  for i:=1 to 4 do
begin
 writeln;
  for j:=1 to 4 do write (a[i,j]:4);
   end;
max:=0;
 writeln('введите номер столбца');
  readln (x);
   for i:=1 to 4 do
    if max<a[i,x] then max:=a[i,x];
     writeln (max);
Немного решил,а дальше не пойму как...Спасибо всем кто поможет
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2011, 20:41
Ответы с готовыми решениями:

Небольшая програмка
Написал программу, но не полностью. Дано уравнение x:=VO*sin(A)-VO*sin(A)/g (нужно ввести VO - и...

Нужна небольшая помощь с нажатием клавиши
Здравствуйте,на лабе сказали напечатать программу: Вводишь 10ть чисел,программа ищет 3...

Небольшая программа на функцию
Вот само задание: В действительной квадратной матрице NXN найти самый большой элемент среди тех,...

Небольшая задача
Водим 4 числа из первых двух находим разность чисел из большего вычитаем меньшее, во втором случае...

2
Модератор
61652 / 46154 / 31849
Регистрация: 18.05.2008
Сообщений: 111,297
03.07.2011, 21:04 2
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
program abc;
uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
procedure Obmen(var a:matr;m,n,k:integer);
var i,j,x,imx:integer;
begin
imx:=1;
for i:=1 to m do
if a[i,k]>a[imx,k] then imx:=i;
if imx<m then
 begin
  x:=a[imx,k];
  for j:=imx to m-1 do
  a[j,k]:=a[j+1,k];
  a[m,k]:=x;
 end;
writeln('Измененная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end;
var a:matr;
    m,n,i,j,k:integer;
begin
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите элементы матрицы:');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  read (a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to 4 do
 begin
  for j:=1 to 4 do
  write (a[i,j]:4);
  writeln;
 end;
repeat
write('Введите номер столбца от 1 до ',n,' k=');
read(k);
until k in [1..nmax];
Obmen(a,m,n,k);
end.
0
0 / 0 / 0
Регистрация: 03.07.2011
Сообщений: 56
03.07.2011, 23:21  [ТС] 3
Спасибо огромное,а блок схему не поможете еще сделать?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2011, 23:21

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

Небольшая проблема с модулем
Компилятор обнаружил ошибку в конце кода (скриншот) Unit cmplx; Interface const kol1 = 9; ...

Небольшая проблема с концом отрезка - прошу помочь
Задание такое: дана система уравнений F(x)= = e^-x; -2 &lt;= x &lt;= 0; = 0.5x+1; 0 &lt; x &lt; 2;...

Небольшая программа на матрицу
Небольшую прогу задали на практике яеё никак невдуплю! вот условие В представленной матрицы 3 на...

небольшая программа (геометрия)
Добрый вечер, пожалуйста помогите написать новичку (студент 1го курса) код, и разобраться в нем с...


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

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

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