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

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

08.06.2021, 21:37. Показов 379. Ответов 2
Метки нет (Все метки)

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

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

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

Перевод из Паскаля в Си++
uses crt; var kr:array of real; br:array of string; n,i:integer; begin clrscr;...

Перевод из Паскаля в С++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию...

2
427 / 310 / 129
Регистрация: 09.02.2021
Сообщений: 1,094
Записей в блоге: 1
08.06.2021, 23:10 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
#include <iostream>
#include <iomanip>
 
using namespace std;
 
int main()
{
    const int n = 5;
    int a[n][n] = {};
    int i, j;
    for (i = 0; i < n; i++) {
        for (j = 0; j < n; j++) {
            if ((i == n / 2 ) || (j == n / 2 )) {
                a[i][j] = 1;
            }
            else { a[i][j] = 0; }
            cout << setw(2) << a[i][j];
        }
        cout << endl;
    }
    system("pause>nul");
    return 0;
}
2
0 / 0 / 0
Регистрация: 05.12.2020
Сообщений: 132
09.06.2021, 00:51  [ТС] 3
Благодарю за помощь, если у Вас будет еще время мне помочь, буду признателен!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2021, 00:51
Помогаю со студенческими работами здесь

Перевод из Паскаля в Си
function Fact2(n: integer): real; var anva: integer; begin result := n; anva := n; ...

Перевод с паскаля на С++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. const n = 67; var matrix: array of...

Перевод с Паскаля на C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label 2,3,4; Var...

Перевод из Паскаля в СИ.
Доброго времени суток. Помогите перевести программу из паскаля в СИ. 1 программа: Program...

Перевод с Паскаля на С++
Кому не трудно. Помогите перевести пару задач несложных. 1 var a,b,c,tmp:real; begin ...

Перевод из Паскаля в Си
Доброго времени суток. Помогите перевести программу из паскаля в СИ. var a,b:string; begin...


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

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

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