Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
stranik222
0 / 0 / 0
Регистрация: 12.07.2013
Сообщений: 17
#1

перевести программу из паскаля в с++ (для среды Borland C++). Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов - C++

13.07.2013, 15:28. Просмотров 480. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++)
Условие:дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов,
содержащих только отрицательные элементы. Если требуемых столбцов нет, то вывести матрицу без
изменений.
прога:
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
const
  maxSize=10;
type 
  Tmatrix=array[1..maxSize,1..maxSize] of integer;
var
  a:Tmatrix;
  i,j,m,n,z,tmp:integer;
  f:boolean;
begin
  repeat
    write('Введите количество строк матрицы, не более ',maxSize,'=');
    readln(n);
  until (n>=1) and (n<=maxSize);
  repeat
    write('Введите количество столбцов матрицы, не более ',maxSize,'=');
    readln(m);
  until (m>=1) and (m<=maxSize);
  randomize;
  writeln('Исходная матрица');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=-16+random(21);{-16;4}
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  f:=false;
  j:=1;
  while (j<=m) and not f do
    begin
      i:=1;
      while (i<=n) and (a[i,j]<0) do
        inc(i);
      if i>n then
        begin
          f:=true;
          z:=j;
        end
      else
        inc(j);
    end;
  if f then
    begin
      writeln('Первый столбец, в кот. только отр. элементы=',z);
      if z=n then
        writeln('Столбец c только отр. элементами последний, нет смысла в обмене')
      else
        begin
          for i:=1 to n do
            begin
              tmp:=a[i,z];
              a[i,z]:=a[i,m];
              a[i,m]:=tmp;
            end;
          writeln('Матрица после обмена столбцов');
          for i:=1 to n do
            begin
              for j:=1 to m do
                write(a[i,j]:4);
              writeln;
            end;
          writeln;
        end;
    end
  else
    begin
      writeln('Требуемых столбцов нет');
        writeln('Матрица без изменений');
        for i:=1 to n do
          begin
            for j:=1 to m do
              write(a[i,j]:4);
            writeln;
          end;
        writeln;
    end;
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.07.2013, 15:28
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевести программу из паскаля в с++ (для среды Borland C++). Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов (C++):

Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов, содержащих только отрицательные элементы. - C++
Помогите, пожалуйста, решить программы на си++, если не решу мне хана, заранее спасибо: Дана матрица размера MxN. Поменять местами...

перевести программу из паскаля в с++(для среды Borland C++) - C++
Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++) Условие: дан символ С, изображающий цифру или...

В матрице размера mxn заполненной с клавиатуры поменять местами первый и последний столбцы - C++
кто знает как на с++ написать данную программу, помогите пожалуйста. заранее спасибо! в матрице размера mxn заполненной с клавиатуры...

В заданной целочисленной матрице поменять местами столбец с номером 1 и последний из столбцов - C++
Помогите пожалуйста написать программу!!!!!!!! В заданной целочисленной матрице поменять местами столбец с номером 1 и последний...

В заданной целочисленной матрице поменять местами столбец с номером 1 и последний из столбцов - C++
Помогите пожалуйста написать программу!!!!!!!! В заданной целочисленной матрице поменять местами столбец с номером 1 и последний...

Поменять местами столбец с номером 1 и последний из столбцов, содержащих только положительные элементы - C++
Matrix53. Дана матрица размера M × N. Поменять местами столбец с номером 1 и последний из столбцов, содержащих только положительные...

1
karaulov6
-42 / 23 / 2
Регистрация: 23.03.2013
Сообщений: 241
Завершенные тесты: 2
13.07.2013, 21:48 #2
вам это Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов, содержащих только отрицательные элементы. не подойдет ? (для Visual Studio , я borland c++ не видел даже )
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.07.2013, 21:48
Привет! Вот еще темы с ответами:

Поменять местами столбец с номером 1 и последний из столбцов, содержащих только положительные элементы - C++
помогите дорешать Matrix53. Дана матрица размера M × N. Поменять местами столбец с номером 1 и последний из столбцов, содержащих только...

Поменять местами столбец матрицы с номером 1 и последний из столбцов, содержащий только положительніе элементы - C++
1)Дан целочисленный масив (N&gt;2).Удалить из масива все элементы с нечетными номерами.Условный оператор не использовать (по 1 мерному масиву...

Поменять местами столбец матрицы с номером 1 и последний из столбцов, содержащий только положительные элементы - C++
Дана матрица размера MxN.Поменять местами столбец с номером 1 и последний из столбцов,содержащий только положительніе елементы.Если...

Дана матрица: поэлементно вычесть первый столбец из всех столбцов, кроме первого - C++
Дана прямоугольная матрица В размером N × M. Составить программу, которая превратит матрицу следующим образом: поэлементно вычитает первый...


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

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

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