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

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

Похожие темы
Тема Раздел Автор Дата
Visual Basic Заменить максимальный элемент каждой строки на противоположный по знаку
Приветствую всех. Помогите, пожалуйста, решить следующие задания на двумерные массивы: Дан двумерный массив n * m. 1. Заменить максимальный элемент каждой строки на противоположный по знаку 2. Вставить после всех столбцов, содержащих максимальный элемент, столбец из нулей. 3. Удалить все...
Visual Basic erniegurt 08.12.2013 12:47
Delphi Заменить максимальный элемент каждой строки на противоположный по знаку
Люди кто нибуль может помочь(( очень нужно...((( Дан двумерный массив размером n*m. 1. Заменить максимальный элемент каждой строки на противоположный по знаку 2. Вставить после всех столбцов, содержащих максимальный элемент столбец из нулей. 3. Удалить все столбцы, в которых есть отрицательный...
Delphi Танюх@ 27.06.2012 17:14
Visual Basic Заменить максимальный элемент каждой строки на противоположный по знаку
Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный элемент каждой строки на противоположный по знаку 2. Вставить после всех столбцов, содержащих максимальный элемент столбец из нулей. 3. Удалить все столбцы, в которых есть...
Visual Basic delyxe 13.01.2012 18:25
Delphi Заменить максимальный элемент каждой строки на противоположный по знаку
Ребятушки, помогите, пожалуйста, создать программу в среде Delphy Дан двумерный массив размером M*N, заполненный случайным образом. 1. Заменить максимальный элемент каждой строки на противоположный по знаку. 2. Вставить после всех столбцов, содержащих максимальный элемент столбец из нулей....
Delphi для начинающих DMart92 02.04.2011 20:47
Turbo Pascal Заменить максимальный элемент каждой строки на противоположный.
1) Дан двумерный массив размерностью 5х6, заполненный целыми случайными числами. Заменить максимальный элемент каждой строки на противоположный. 2) Дан двумерный массив размерностью 8х7, заполненный целыми случайными числами. Удалить все столбцы, в которых первый элемент больше последнего.
Turbo Pascal NiNashRep 22.03.2011 15:27
Опции темы

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

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