Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Лёк-лёка
Новичок
3 / 3 / 0
Регистрация: 05.04.2011
Сообщений: 30
24.04.2011, 19:46     Заменить максимальный элемент каждой строки на противоположный   #1
Помогите пожалуйста решить задачу в Pascal (массив).
Дан двумерный массив размером 5*6,заполненный случайным образом:
a)заменить максимальный элемент каждой строки на противоположный
б)вставить после столбцов с максимальными элементами столбец из нулей
AdAgent
Объявления
24.04.2011, 19:46     Заменить максимальный элемент каждой строки на противоположный
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2011, 19:46     Заменить максимальный элемент каждой строки на противоположный
Посмотрите здесь:

Pascal ABC найти максимальный элемент каждой строки матрицы
Pascal ABC Дан массив Заменить максимальный элемент каждой строки на противоположный.
Pascal ABC Дан двумерный массив целых чисел. 1. Первый нечетный элемент каждой строки удвоить 2. Последний нулевой элемент каждого столбца заменить на число 10
Pascal ABC В каждой строке матрицы заменить знак максимального по модулю элемента на противоположный.
Pascal ABC Поменять местами максимальный элемент каждой строки массива с диагональным элементом в этой строчке
Pascal ABC Заменить наименьший элемент каждой строки, начиная со второй, наибольшим элементом предыдущей строки
Pascal ABC Найти максимальный элемент каждой строки
Pascal ABC Дан двумерный массив А(4,5). Заменить максимальный элемент каждой строки на противоположный
Рашель
Новичок
5 / 5 / 1
Регистрация: 25.04.2011
Сообщений: 6
25.04.2011, 01:54     Заменить максимальный элемент каждой строки на противоположный   #2
Противоположный элемент это что прости?
MAZUR777
Форумчанин
603 / 129 / 6
Регистрация: 15.04.2010
Сообщений: 555
25.04.2011, 09: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, 09:15     Заменить максимальный элемент каждой строки на противоположный
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

Текущее время: 10:04. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
Яндекс.Метрика