Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Лёк-лёка
Новичок
3 / 3 / 0
Регистрация: 05.04.2011
Сообщений: 30
24.04.2011, 18:46     Заменить максимальный элемент каждой строки на противоположный
  #1
Помогите пожалуйста решить задачу в Pascal (массив).
Дан двумерный массив размером 5*6,заполненный случайным образом:
a)заменить максимальный элемент каждой строки на противоположный
б)вставить после столбцов с максимальными элементами столбец из нулей
AdAgent
Объявления
24.04.2011, 18:46
Рашель
Новичок
5 / 5 / 1
Регистрация: 24.04.2011
Сообщений: 6
25.04.2011, 00:54
  #2
Противоположный элемент это что прости?
MAZUR777
Форумчанин
603 / 129 / 6
Регистрация: 15.04.2010
Сообщений: 555
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal ABC Дан двумерный массив А(4,5). Заменить максимальный элемент каждой строки на противоположный
Дан двумерный массив А(4,5), заполненный с помощью ГСЧ. Заменить максимальный элемент каждой строки на противоположный.
Pascal ABC Kastiil 23.05.2014 20:31
Visual Basic Заменить максимальный элемент каждой строки на противоположный по знаку
Приветствую всех. Помогите, пожалуйста, решить следующие задания на двумерные массивы: Дан двумерный массив n * m. 1. Заменить максимальный элемент каждой строки на противоположный по знаку 2....
Visual Basic erniegurt 08.12.2013 12:47
Pascal ABC Найти максимальный элемент каждой строки
Дана матрица С размером М на N. Найти максимальный элемент каждой строки.
Pascal ABC Улья 28.05.2013 14:26
Pascal ABC Двумерные массивы. Найти максимальный элемент в каждой строке и заменить все элементы строки правее максимального
В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы производится с клавиатуры). Найти максимальный элемент в каждой строке и заменить все элементы строки правее максимального . Выведите...
Pascal ABC LegoBglas 07.06.2012 00:53
Pascal ABC Матрица. Найти максимальный элемент в каждой строке и заменить все элементы строки правее максимального
В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы производится с клавиатуры). Найти максимальный элемент в каждой строке и заменить все элементы строки правее максимального. Выведите...
Pascal ABC Машенькаа 05.06.2012 17:48
Visual Basic Заменить максимальный элемент каждой строки на противоположный по знаку
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный элемент каждой строки на противоположный по знаку 2. Вставить после всех столбцов,...
Visual Basic delyxe 13.01.2012 18:25
Turbo Pascal Заменить максимальный элемент каждой строки на противоположный.
1) Дан двумерный массив размерностью 5х6, заполненный целыми случайными числами. Заменить максимальный элемент каждой строки на противоположный. 2) Дан двумерный массив размерностью 8х7, заполненный...
Turbo Pascal NiNashRep 22.03.2011 15:27
Pascal ABC Дан массив Заменить максимальный элемент каждой строки на противоположный.
Дан двумерный массив размерностью 6*7, заполненный случайными числами.Заменить максимальный элемент каждой строки на противоположный. program fg1; const n=6; m=7; dd=51; type dmyarray=array of...
Pascal ABC СуперкотЭ 21.03.2011 16:15
Опции темы

Текущее время: 01:14. Часовой пояс GMT +4.

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