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

Перевод с Паскаля на С++

08.06.2021, 21:28. Показов 257. Ответов 1
Метки нет (Все метки)

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

Перевод кода с Паскаля в Си. (Перевод цепной дроби в обыкновенную)
Помогите переписать на Си, пожалуйста. procedure AntiExp; var s: array of integer; a,b,...

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр ...

Перевод с Паскаля на C#
Я не могу разобраться с этими массивами. Что не так в моей первой части? program from; const...

Перевод из паскаля в C#
Переведите пожалуйста эту строчку for i:=a downto 2 do

1
427 / 310 / 129
Регистрация: 09.02.2021
Сообщений: 1,094
Записей в блоге: 1
08.06.2021, 23:26 2
Как по мне , в строках
Цитата Сообщение от DaQuaz Посмотреть сообщение
var a:array[1..n,1..n] of integer;
и
Цитата Сообщение от DaQuaz Посмотреть сообщение
for i:=1 to n do begin
ошибка,потому чо в массиве b 24 елемента,а ви создаете и виводите матрицу на 36 елементов,значит после 24 елемента идет мусор,ну вроде так
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
#include <iostream>
#include <iomanip>
 
using namespace std;
 
int main()
{
    system("chcp 1251>nul");
    const int n = 6, n1 = 4;
    int a[n1][n];
    int b[24] = { 0, 1, 3, 6, 10, 14, 2, 4, 7, 11, 15, 18, 5, 8, 12, 16, 19, 21, 9, 13, 17, 20, 22, 23 };
    int i,j,k;
    cout << "полученный массив" << endl;
    k = 0;
    for (i = 0; i < n1; i++) {
        for (int j = 0; j < n; j++) {
            a[i][j] = b[k];
            k++;
            cout << setw(5) << a[i][j];
        }
        cout << endl;
    }
    system("pause>nul");
    return 0;
}
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2021, 23:26
Помогаю со студенческими работами здесь

Перевод с паскаля на С++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin...

Перевод с Паскаля в С++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; ...

Перевод из паскаля в C++
writeln('Объединение множеств'); for i:=0 to 255 do if i in m then write(i,' '); writeln;...

Перевод из Паскаля на С++
Привет всем. Нужна помощь. У меня есть алгоритм на Паскале, а нужен на С++, поскольку Паскаль знаю...

Перевод с паскаля на C#
Program zaza; uses crt; const n=10; const m=10; var * i,j,max,min:integer; * a:array of...

Перевод с паскаля на си++
переведите с паскаля на си++ 1 program telega ; var M1,M2,V1,V2: real; begin write('M1=');...


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

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

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