Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 23.12.2009
Сообщений: 93
1

Pascal ->> C++

29.04.2010, 16:48. Просмотров 400. Ответов 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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2010, 16:48
Ответы с готовыми решениями:

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.NET Program...

Есть ли аналог модуля tpdate.tpu (Turbo Pascal) для Free Pascal
Внимание! Нужно срочно узнать название юнита для freepascal, который выполняет функции tpdate.tpu...

1
Эксперт С++
5037 / 3097 / 271
Регистрация: 11.11.2009
Сообщений: 7,047
29.04.2010, 20:06 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;
}
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2010, 20:06

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

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг...

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record ...

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net?
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode:...


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

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

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