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

Pascal ->> C++ - C++

Восстановить пароль Регистрация
 
TP7
1 / 1 / 0
Регистрация: 23.12.2009
Сообщений: 93
29.04.2010, 16:48     Pascal ->> C++ #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
Program Matrica_2;
uses crt;
type matr = array [1..8, 1..8] of real;
procedure UmnMatr(x,y:integer;m1,m2:matr;var m3:matr);
var k,i,j:integer;
begin
for k:=1 to x do
for j:=1 to x do
  begin
    m3[k,j]:=0;
    for i:=1 to y do
    m3[k,j]:=m3[k,j]+m1[k,i]*m2[i,j];
  end;
end;
var A,B,C:Matr;
    n,m,l : integer;
    i,j,k : integer;
begin
clrscr;
write ('Введите количество строк первой  n=');
readln (n);
write ('Введите количество столбцов первой матрицы и строк второй матрицы m=');
readln (m);
write ('Введите количество столбцов второй матрицы l=');
readln (l);
writeln ('Введите элементы матрицы А: ');
for i:=1 to n do
for j:=1 to m do
begin
write ('A[',i,',',j,']=');
readln(A[i,j]);
end;
writeln ('Введите элементы матрицы B : ');
for i:=1 to m do
for j:=1 to l do
begin
write ('B[',i,',',j,']=');
readln(B[i,j]);
end;
clrscr;
writeln('Матрица A:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:6:2);
    writeln;
  end;
writeln('Матрица B:');
for i:=1 to m do
  begin
    for j:=1 to l do
    write(b[i,j]:6:2);
    writeln;
  end;
writeln ('Матрица С=A*B:');
UmnMatr(n,m,a,b,c);
for i:=1 to n do
   begin
     for j:=1 to l do
     write (C[i,j]:8:2);
     writeln;
   end;
readln
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2010, 16:48     Pascal ->> C++
Посмотрите здесь:

C Pascal на C++ C++
C++ Pascal to C++
C++ С Pascal на C++
C++ Pascal to c++
Pascal C++
из Pascal в C++ C++
C++ Из Pascal в C++
Из Pascal в C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
silent_1991
Эксперт C++
4938 / 3014 / 149
Регистрация: 11.11.2009
Сообщений: 7,024
Завершенные тесты: 1
29.04.2010, 20:06     Pascal ->> C++ #2
C
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
#include <stdio.h>
 
void UmnMatr(int x, int y, double m1[8][8], double m2[8][8], double **m3)
{
    int i, j, k;
    
    for (k = 0; k < x; k++)
        for (j = 0; j < x; j++)
        {
            m3[k][j] = 0;
            
            for (i = 0; i < y; i++)
                m3[k][j] = m3[k][j] + m1[k][i] * m2[i][j];
        }
}
 
int main()
{
    double A[8][8], B[8][8], **C;
    int n, m, l;
    int i, j, k;
    
    C = (double **)malloc(8 * sizeof(double *));
    
    for (i = 0; i < 8; i++)
        C[i] = (double *)malloc(8 * sizeof(double));
    
    printf("Vvedite kolichestvo strok pervoy matrici: n = ");
    scanf("%d", &n);
    printf("Vvedite kolichestvo stolbcov pervoy matrici i strok vtoroy matrici: m = ");
    scanf("%d", &m);
    printf("Vvedite kolichestvo stolbcov ctoroy matrici: l = ");
    scanf("%d", &l);
    
    printf("Vvedite elementi matrici A:\n");
    
    for (i = 0; i < n; i++)
        for (j = 0; j < m; j++)
        {
            printf("A[%d][%d] = ", i, j);
            scanf("%lf", &A[i][j]);
        }
    
    printf("Vvedite elementi matrici B:\n");
    
    for (i = 0; i < m; i++)
        for (j = 0; j < l; j++)
        {
            printf("B[%d][%d] = ", i, j);
            scanf("%lf", &B[i][j]);
        }
    
    printf("Matrica A:\n");
    
    for (i = 0; i < n; i++)
    {
        for (j = 0; j < m; j++)
            printf("%6.2f ", A[i][j]);
        
        printf("\n");
    }
    
    printf("Matrica B:\n");
    
    for (i = 0; i < m; i++)
    {
        for (j = 0; j < l; j++)
            printf("%6.2f ", B[i][j]);
        
        printf("\n");
    }
    
    printf("Matrica C = A * B:\n");
    UmnMatr(n, m, A, B, C);
    
    for (i = 0; i < n; i++)
    {
        for (j = 0; j < l; j++)
            printf("%8.2f ", C[i][j]);
        
        printf("\n");
    }
    
    getch();
    return 0;
}
Yandex
Объявления
29.04.2010, 20:06     Pascal ->> C++
Ответ Создать тему
Опции темы

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