Форум программистов, компьютерный форум CyberForum.ru

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Лёк-лёка
3 / 3 / 0
Регистрация: 05.04.2011
Сообщений: 30
#1

Заменить максимальный элемент каждой строки на противоположный - Pascal ABC

24.04.2011, 18:46. Просмотров 643. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить задачу в Pascal (массив).
Дан двумерный массив размером 5*6,заполненный случайным образом:
a)заменить максимальный элемент каждой строки на противоположный
б)вставить после столбцов с максимальными элементами столбец из нулей
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2011, 18:46     Заменить максимальный элемент каждой строки на противоположный
Посмотрите здесь:
Дан массив Заменить максимальный элемент каждой строки на противоположный. Pascal ABC
Pascal ABC Дан двумерный массив А(4,5). Заменить максимальный элемент каждой строки на противоположный
Pascal ABC Умножить элементы каждой строки матрицы на максимальный элемент строки
Найти максимальный элемент каждой строки матрицы Pascal ABC
Найти максимальный элемент каждой строки матрицы Pascal ABC
Найти максимальный элемент каждой строки матрицы Pascal ABC
Найти максимальный элемент каждой строки матрицы Pascal ABC
Pascal ABC Заменить наименьший элемент каждой строки, начиная со второй, наибольшим элементом предыдущей строки
Pascal ABC В каждой строке матрицы заменить знак максимального по модулю элемента на противоположный.
Pascal ABC Поменять местами максимальный элемент каждой строки массива с диагональным элементом в этой строчке
Pascal ABC В матрице заменить все элементы каждой строки на минимальный элемент в этой строке
Заменить наибольший элемент каждой строки матрицы суммой элементов, расположенных до него Pascal ABC

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Рашель
5 / 5 / 2
Регистрация: 24.04.2011
Сообщений: 6
25.04.2011, 00:54     Заменить максимальный элемент каждой строки на противоположный #2
Противоположный элемент это что прости?
MAZUR777
605 / 130 / 65
Регистрация: 15.04.2010
Сообщений: 554
25.04.2011, 08:15     Заменить максимальный элемент каждой строки на противоположный #3
a)

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
Uses
 CRT;
Const
 n=5;
 m=6;
Type
  mas=array[1..n,1..m] of integer;
var
 a:mas;
 i,j:integer;
 
procedure zap(Var m:mas;k,l:integer);
begin
randomize;
 for i:= 1 to k do
 begin
  for j:= 1 to l do
   begin
    m[i,j]:=random(10)-6;
    write(m[i,j]:3);
   end;
  writeln;
 end;
end;
 
procedure zamena(Var m:mas;k,l:integer);
Var
 jmax:integer;
begin
 for i:= 1 to k do
 begin
 jmax:=1;
  for j:= 1 to l do
    if a[i,j]>a[i,jmax] then
     jmax:=j;
   a[i,jmax]:=-a[i,jmax];
 end;
end;
 
procedure print(Var m:mas;k,l:integer);
begin
 for i:= 1 to k do
 begin
  for j:= 1 to l do
    write(m[i,j]:3);
  writeln;
 end;
end;
 
Begin
 zap(a,n,m);
 writeln;
 zamena(a,n,m);
 print(a,n,m);
 Readln
End.
Добавлено через 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
uses crt;
var x:array[1..5,1..12]of integer;
    n,m,i,j,mx,kmx,l,t:integer;
begin
clrscr;
randomize;
n:=5;
m:=6;
mx:=-maxint-1;
Writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x[i,j]:=random(10);
    write(x[i,j]:3);
    if x[i,j]>mx then mx:=x[i,j];
   end;
  writeln;
 end;
writeln('Максимальный элемент=',mx);
writeln;
writeln('Вставка столбцов из нолей после столбцов с максимальным:');
j:=1;
while j<=m do
 begin
  kmx:=0;
  for i:=1 to n do
  if x[i,j]=mx then kmx:=1;
  if kmx=1 then
   begin
    m:=m+1;
    for l:=1 to n do
     begin
      for t:=m downto j+2 do
      x[l,t]:=x[l,t-1];
      x[l,j+1]:=1;
     end;
    j:=j+2;
   end
  else j:=j+1;
 end;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(x[i,j]:3);
  writeln;
 end;
readln
end.
Yandex
Объявления
25.04.2011, 08:15     Заменить максимальный элемент каждой строки на противоположный
Ответ Создать тему
Опции темы

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