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

как выглядит в си++ - C++

Восстановить пароль Регистрация
 
sektor2009
3 / 3 / 0
Регистрация: 15.03.2009
Сообщений: 339
22.03.2011, 09:47     как выглядит в си++ #1
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
Program kursak;
 Const
  Nmax = 5; {Максимальный размер массива}
 Type
  Matrix = array [1..Nmax, 1..Nmax] of integer;[
 Var
  A, B, C, N, K, M, H: matrix;
  i, j, z: integer;
 {Процедура перестановки столбцов K и L}
 {Параметры: k, l - столбцы, m - матрица}
 Procedure obmen (var m:matrica; k, l: byte);
  Var
   i:byte;
   s:integer;
    begin
      for i:=1 to n do
       begin
        S:=m[i,k];
         m[i,k]:=m[i,l];
         m[i,l]:=s;
        end;
     end
 
 {Процедура вывода элементов матриц}
 {Параметры: А, В - матрицы, z - размер}
 Procedure Echo (z: integer; A: matrix);
  Var
   i, j:byte;
  Begin {Echo}
   For i: = 1 to z do
    Begin
     For j: = 1 to z do
      Write (A [i,j]:5);
     Writeln;
    End;
  End; {Echo}
 {Процедура умножения матриц}
 {Переменные: A, B - начальные массивы}
 {C - массив результат, z - размер}
 Procedure Umn (A, B: matrix; z: integer; Var C: matrix);
  Var
   i, j, k, s: integer;
  Begin {Umn}
   For i: = 1 to z do
    For j: = 1 to z do
     Begin
      s: = 0;
      For k: = 1 to z do
       s: = s + A [i, k] * B [k, j];
      C [i, j]: =s;
     End;
  End; {Umn}
 {Процедура транспонирования массивов}
 {Переменные: А - начальный массив, В - массив результат}
 Procedure Transpon (A: matrica; z: integer; Var B: matrica);
  Var
   i, j: integer;
  Begin {Transpon}
   For i: = 1 to z do
    For j: = 1 to z do
     B [i, j]: = A [j, i];
  End; {transpon}
 
 {*** процедура суммирования матриц ***}
 procedure summa (A,B:matrica; n:integer; var S:matrica);
 begin
   for i:=1 to n do
   for j:=1 to n do
   S[i,j]:=a[i,j]+b[i,j];
 end;
 
Begin {kursak}
    Randomize;
      For i:=1 to n do
      For j:=1 to n do
      A[I,j]:=round(random(10));
       For I:=1 to n do
       begin
       For j:=1 to n do
        Write (A[I,j]:5);
         Writeln;
         End;
          Obmen (A,2,4);
          Writeln;
            For i:=1 to n do
           Begin
             For j:=1 to n do
              Write(A[I,j]:5);
              Writeln;
             End;
               Readln;                          
begin
 read(n,m);
 i:=1;  {счетчик строк}
 j:=1;  {счетчик столбцов}
 while (i<=n) and (j<=m) do
  begin
   B[i,j]:=i/j;
   inc(j);  {увеличиваем счетчик столбцов}
   if (j=m+1) then {если текущий столбец вышел за пределы массива, то}
    begin
     j:=1;  {делаем текущим первый столбец}
     inc(i); {увеличиваем счетчик строки}
    end;
  end;
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(b[i,j]:5); {выводим массив уже по-обычному}
  writeln;
 end;
 readln
end;
   Umn (A,A,n,U1);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (U2[I,j]:5);
             Writeln;
           End;
      End;
       Transpon (U2,n,T);
             Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (T[I,j]:5);
             Writeln;
           End;
      End;
        Umn (T,B,n,C);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (C[I,j]:5);
             Writeln;
           End;
      End;
                    SUmma (U2,C,n,D);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (D[I,j]:5);
             Writeln;
           End;
      End;
          
             Obmen (A,2,4);
               Writeln;
               For i:=1 to n do
                 Begin
                   For j:=1 to n do
                    Write(A[I,j]:5);
                    Writeln;
             End;
               Readln;  
  End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.03.2011, 09:47     как выглядит в си++
Посмотрите здесь:

как выглядит в си++ C++
Как выглядит в си++ C++
Как выглядит нулевой байт? C++
Как выглядит исходный код функции sqrt стандартной библиотеки math.h? C++
Как выглядит изнутри динамическое выделение объекта через new? C++
C++ Как выглядит конструктор и деструктор для vector ?
C++ Как выглядит string в памяти?
C++ Как выглядит восьмибитная маска в шестнадцатеричной форме?

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
afiskon
 Аватар для afiskon
65 / 53 / 3
Регистрация: 06.09.2010
Сообщений: 254
22.03.2011, 16:32     как выглядит в си++ #2
Из серии "перепишите за меня"? Заменяете {комментарии} на /* комментарии */, procedure на void, begin - на {, end; - на }, := на =, begin ... end. на void main() { ... } - ну вот так примерно и будет выглядеть. Вообще-то странный код, больно много бегин-ендов...
Yandex
Объявления
22.03.2011, 16:32     как выглядит в си++
Ответ Создать тему
Опции темы

Текущее время: 18:35. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru