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

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

Войти
Регистрация
Восстановить пароль
 
sektor2009
3 / 3 / 0
Регистрация: 15.03.2009
Сообщений: 339
#1

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

22.03.2011, 09:47. Просмотров 555. Ответов 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++
var i,n:integer; a,b,h,x,xb,s:real; function f(x:real):real; begin f:=(1/x)*sin(3.14*x/2);

Как выглядит в си++ - C++
Program pravii; uses crt; var i,n:integer; a,b,h,x,xb,s:real; function...

Как выглядит адрес переменной - C++
Например: в массиве m={4,6,2} адрес второго элемента. Это будет 16-ричное число 0x06 ?

Как выглядит нулевой байт? - C++
Масивы заканчиваются нулевым байтом &quot;/0&quot;, это ясно - надо иметь признак конца, но (&quot;/&quot;)= 0x2F и (&quot;0&quot;)=0x30 , а это уже два байта. ...

Как выглядит string в памяти? - C++
Задался вопросом как вы глядит стринг в памяти? С чаром все понятно, а стринг? Где-то должен валятся указатель, а что еще? Я так понимаю...

Как выглядит код грамматики Хомского? - C++
Как выглядит код грамматики Хомского?

Как в блок-схеме выглядит структура? - C++
Как в блок-схеме выглядит структура?

Как выглядит конструктор и деструктор для vector ? - C++
Есть класс: class table_m { public: vector &lt;Item&gt; table; table_m(); }; Как будет выглядеть для него конструктор и...

Как выглядит восьмибитная маска в шестнадцатеричной форме? - C++
прохожу тест дабы найти белые пятная в знании(коих пугающих много). Может есть кто понимает о чем этот вопрос вообще? как выглядит...

Как символ конца файла выглядит в двоичном представлении? - C++
Пытаюсь реализовать Хаффмана и столкнулась с такой проблемой: когда я записываю сформированный код в файл у меня в некоторых байтах...

Как выглядит изнутри динамическое выделение объекта через new? - C++
То есть на Си будет выглядеть так : struct T { int x, y; }; /* Эта процедура является отображением конструктора...

Как выглядит исходный код функции sqrt стандартной библиотеки math.h? - C++
Здраствуйте. Мне надо исходный код функции sqrt стандартной библиотеки math.h . В интернете не могу найти понятный пример, а библиотеки...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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     как выглядит в си++
Ответ Создать тему
Опции темы

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