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

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

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

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

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

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

Спасибо...
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2012, 12:48
Ответы с готовыми решениями:

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

Поиск элемента строки справа налево
Доброго времени суток, уважаемые форумчане! Возникла задача, в решении которой необходима ваша...

Вывод бегущей справа налево строки
Написать функцию, изображающую бегущую строку (справа налево) с каким-нибудь текстом.

Заполнение массива справа налево со сдвигом влево
Доброго времени суток! Подскажите, как решить такую задачу: Дан массив temparray: array of...

2
iOS/Android Developer
Эксперт С++
5132 / 1569 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
10.01.2012, 16:08 2
Цитата Сообщение от Sveta111 Посмотреть сообщение
2. В исходную строку вставить подстроку в заранее заданную позицию.
insert вам в помощь
Pascal
1
insert(подстрока, строка, позиция);
1
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2012, 16:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Запись строки, в которой есть цифры справа налево в другой файл
Дан текстовый файл. Определить количество цифр в нём. Записать строки, в которых содержаться цифры...

Переписать строки текстового файла в обратном порядке (справа налево) в другой файл
Имеется текстовый файл. Переписать его строки в обратном порядке (справа налево) в другой файл....

hex для заданной строки переписать попарно справа налево и копирование в буфер обмена
Всем привет! Прошу помочь решить задачу: есть команда для получения cid с SDcard на андроид...

Определить количество цифр в файле и записать строки с цирфами справа налево в другой файл
Помогите написать программу. Задача.Дан текстовый файл.Определить количество цифр в нем. Записать...

Вывести элементы массива, которые читаются слева направо и справа налево одинаково
15.5 Дан массив натуральных чисел A. Все элементы трехзначные. Вывести те элементы, которые...

Вывести на экран слова из этой строки, которые одинаково читаются слева направо и справа налево (палиндромы)
Составить программу, которая вводит с клавиатуры строку, содержащую до 80 символов, и выводит на...


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

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

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