0 / 0 / 0
Регистрация: 03.10.2020
Сообщений: 8
1

Переделать Паскаль в С++

08.11.2020, 18:57. Показов 303. Ответов 1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const
n = 5;
var Y:array[1..n,1..n] of integer;
i, j: integer;
begin
writeln('искомая матрица:');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        Y[i,j]:=j;
        write(Y[i,j]:3);
        end;
    writeln;
    end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2020, 18:57
Ответы с готовыми решениями:

С++ переделать в паскаль
Найти сумму элементов всех нечетных строк и четных столбцов матрицы NxM. #include <iostream>...

Переделать Паскаль в С++
Помогите переделать паскаль в С++ Var k,i,o,t: Byte; BEGIN For k:=1 to 9 do For i:=1 to 9 do...

Переделать паскаль в с++
uses crt; Var n,k,i: integer; a: array of integer; begin write('Введите N: '); ...

Помогоите переделать программу из Паскаль на СИ вот сама программа
Дано натуральне число n. Получить все простые делители этого числа: program p1; var...

1
Модератор
Эксперт С++
12104 / 9775 / 5910
Регистрация: 18.12.2011
Сообщений: 26,246
08.11.2020, 19:07 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
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
#include <iostream>
#include <clocale>
#include <cstdlib>
#include <ctime>
//
// Создание матрицы
//
int ** Create( size_t n, size_t m ) {
    int ** M = new int * [n];
    for ( size_t i = 0; i < n; ++i ) {
        M[i] = new int [m];
    }
    return M;
}
//
// Удаление матрицы
//
void Free( int ** M, size_t n ) {
    for ( size_t i = 0; i < n; ++i ) {
        delete [] M[i];
    }
    delete [] M;
}
//
//---- ввод матрицы--------------------------------------
//
void Input( int ** M, size_t n, size_t m ) {
    for ( size_t i = 0; i < n; ++i ) {
        for ( size_t j = 0; j < m; ++j ) {
            std::cout << "M[" << i << "][" << j << "] = ";
            std::cin >> M[i][j];
        }
    }
}
//
// заполнение матрицы случайными числами из диапазона [0, 99] -----------
//
void FillRandomNumbers(int **matrix, const size_t rows, const size_t columns)
{
    srand((unsigned int)time(0)); // инициализируем ПГСЧ
 
    for (size_t row=0; row < rows; row++)
        for (size_t column=0; column < columns; column++)
 //           matrix[row][column] = rand() % 100; // присваиваем СЧ
              matrix[row][column] = j;  //                        !!!!!!!!!!!!!!!!!!!  заменили rand() % 100 на j   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
}
//
//-------- Печать матрицы ------------------------------------------------
//
void Print( int ** M, size_t n, size_t m ) {
    for ( size_t i = 0; i < n; ++i ) {
        for ( size_t j = 0; j < m; ++j ) {
            std::cout<<M[i][j]<<' ';
        }
        std::cout<<std::endl;
    }
}
//
// пример обработки матрицы - подсчет сумм в каждой строке
//
void Process( int ** M,int *Sum, size_t n, size_t m ) {
    for ( size_t i = 0; i < n; ++i ) {
        Sum[i] = 0;
        for ( size_t j = 0; j < m; ++j ) {
            Sum[i] += M[i][j];
        }
    }
}
 
// ...
// сюда вставить все дополнительные функции которые напишете
// ...
 
int main()
{
    //setlocale( LC_ALL, "Rus" ); // установление русской локали (windows)
 
    size_t n=5, m=5;                          //!!!!!!!!!!!!!!!!!  n и m заранее известны   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
    // вводим размерность матрицы
    //std::cout << "Введите количество строк матрицы: ";
    //std::cin >> n;
    std::cout << "Введите количество столбцов матрицы: ";
    //std::cin >> m;
 
    // выделяем память под матрицу
    int ** A = Create( n, m );
 
    // ввод матрицы
    //Input( A, n, m );
 
    // заполнение 
    FillRandomNumbers(A,n,m);
 
    // обработки матрицы   нет !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    //int* S=new int[n]; // Вектор результата
    //Process( A, S, n, m );
 
    // вывод результата
    //for(size_t i=0;i<n;i++) 
    //    std::cout<< S[i] <<' ';
   //std::cout<<std::endl;
 
    // Вывод матрицы
    Print(A,n,m);
 
    // освобождаем память, выделенную под матрицу и вектор
   // delete[] S;
    Free( A, n );
 
    // ждём нажатия клавиши перед выходом из приложения (windows)
    //system( "pause" );
 
    return 0;
}
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2020, 19:07
Помогаю со студенческими работами здесь

Как переделать вот это код паскаль под Builder с++?
for j:=1 to n do for i:=1 to m do begin read(matr); if matr&lt;&gt;0 then nol:=false; if matr&lt;0 then...

с С++ переделать на Паскаль
Помогите с С++ переделать на Паскаль???? #include&lt;iostream&gt; #include &quot;time.h&quot; using namespace...

Переделать код из С++ в паскаль
В с++ вообще не разбираюсь, переделайте, пожалуйста...

переделать прогу с с++ на паскаль
Завтра сдавать проги на практику, нужно переделать прогу с С++ на паскаль(любой) помогите паскаль...

нужно переделать с С++ на паскаль
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &quot;windows.h&quot; #include &lt;iomanip&gt; #include...

Переделать с делфи в паскаль
сможет ли кто нибудь изменить задачу из делфи в паскаль оч нужна а я не знаю как... условие...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru