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

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

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

Pascal ->> C++ - C++

29.04.2010, 16:48. Просмотров 323. Ответов 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++
Посмотрите здесь:

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

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

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

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

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

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

Перевод программы с Turbo Pascal на Pascal ABC.NET - PascalABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома стоит эта версия /перестала работать что...

Переделайте, пожалуйста, программу из Turbo pascal в ABC pascal - Pascal ABC
Помогите, пожалуйста, перевести из PASCAL TURBO в PASCAL ABC Program ProgInt; Uses Crt, Graph; Var Punkt : Byte; Knopka :...

Нужен Turbo pascal или Free pascal на русском - Pascal
Нужен Turbo pascal или Free pascal на русском языке, есть такой или нет? По книге обучаюсь по Turbo pascal, а установлен pascalABC, в книге...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
silent_1991
Эксперт С++
4960 / 3036 / 149
Регистрация: 11.11.2009
Сообщений: 7,027
Завершенные тесты: 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;
}
Ответ Создать тему
Опции темы

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