Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Sveta111
0 / 0 / 0
Регистрация: 10.01.2012
Сообщений: 3
1

Циклический сдвиг справа налево той строки массива

10.01.2012, 12:48. Просмотров 897. Ответов 2
Метки нет (Все метки)

Добрый день... Пожалуйста, помогите решить задачи!!! Спасибо...

1. Дан двумерный массив произвольной размерности. Написать программу, которая организует циклический сдвиг справа налево той строки массива, в которой содержатся как максимальный, так и минимальный элементы, причём сдвиг произвести на 3 элемента, если такой строки нет найти сумму элементов всего массива и получившееся число разложить на натуральные делители.

2. В исходную строку вставить подстроку в заранее заданную позицию.

Спасибо...
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2012, 12:48
Ответы с готовыми решениями:

Осуществить циклический сдвиг элементов массива налево на одну позицию
ООчень нужно((( 1. Дан массив размера N. Осуществить циклический сдвиг...

Циклический сдвиг random массива
Помогите и мне пожалуйста,очень нужно: с помощью функции random получить...

Циклический сдвиг массива вправо
выполнить циклический сдвиг двумерного массива вправо

Осуществить циклический сдвиг массива
3. Составить и выполнить программу, которая с помощью подпрограммы-функции,...

Циклический сдвиг массива
дан массив размера n и некоторое число k<n осуществить циклический сдвиг на k...

2
Ev[G]eN
iOS/Android Developer
Эксперт С++
5117 / 1555 / 950
Регистрация: 23.01.2011
Сообщений: 3,185
Завершенные тесты: 1
10.01.2012, 16:08 2
Цитата Сообщение от Sveta111 Посмотреть сообщение
2. В исходную строку вставить подстроку в заранее заданную позицию.
insert вам в помощь
Pascal
1
insert(подстрока, строка, позиция);
1
Andyc
206 / 183 / 104
Регистрация: 10.01.2011
Сообщений: 302
10.01.2012, 16:22 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Sveta111 Посмотреть сообщение
1. Дан двумерный массив произвольной размерности. Написать программу, которая организует циклический сдвиг справа налево той строки массива, в которой содержатся как максимальный, так и минимальный элементы, причём сдвиг произвести на 3 элемента, если такой строки нет найти сумму элементов всего массива и получившееся число разложить на натуральные делители.
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
58
59
60
61
62
63
64
65
uses crt;
const
  n=4;
  m=6;
var
  A: Array[1..n,1..m] of Integer;
  i, j, k, t, s, max, min, imax, imin: Integer;
begin
  ClrScr;
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      A[i,j]:=Random(21);
      Write(A[i,j]:4);
      if (i*j=1) or (A[i,j]>max) then
      begin
        max:=A[i,j];
        imax:=i;
      end;
      if (i*j=1) or (A[i,j]<min) then
      begin
        min:=A[i,j];
        imin:=i;
      end;
    end;
    Writeln;
  end;
  if imin=imax then
  begin
    for k:=1 to 3 do
    begin
      t:=A[imin,1];
      for j:=2 to m do A[imin,j-1]:=A[imin,j];
      A[imin,j]:=t;
    end;
    Writeln('Массив со сдвинутой ', imin, ' строкой');
    for i:=1 to n do
    begin
      for j:=1 to m do Write(A[i,j]:4);
      Writeln;
    end;
  end
  else begin
    s:=0;
    for i:=1 to n do
      for j:=1 to m do s:=s+A[i,j];
    Writeln('Сумма элементов матрицы = ', s);
    Write('Простые делители s: ');
    t:=s;
    k:=2;
    while Sqr(k)<=t do
      if t mod k=0 then
      begin
        Write(k, ' ');
        t:=t div k;
      end
      else Inc(k);
    if (t=s) then Writeln('нет')
    else Writeln(t);
  end;
  Readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2012, 16:22

Циклический сдвиг массива
Помогите плиз, буду очень благодарен Дан массив целых чисел а1, .... аn . ...

Циклический сдвиг массива
Осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов...

Циклический сдвиг элементов массива влево
нужно решить задание:элементы массива циклически сдвинуть на одну позицию...


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

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

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