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

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

08.06.2021, 21:36. Показов 203. Ответов 0
Метки нет (Все метки)

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 in [2,n-1])and(j in [1,n]))or((i=n div 2+1)and(j=n div 2+1))then a[i,j]:=0
    else a[i,j]:=1;
    write(a[i,j]:2);
   end;
  writeln;
 end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2021, 21:36
Ответы с готовыми решениями:

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

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

Перевод из Паскаля на С++
var CarDoor: integer; SelectedDoor: integer; RevealedDoor: integer; i: integer;...

Перевод с Паскаля на С++
буду сильно благодарен uses Crt; var a,b: array of integer; i,j: integer; begin Randomize;...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2021, 21:36
Помогаю со студенческими работами здесь

перевод с паскаля на С++
Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую...

Перевод с паскаля на С++
Даны два массива A и B одинакового размера N. Сформировать новый массив C того же размера, каждый...

Перевод из паскаля в с++
Помогите перевести type matrix = array of integer; var a:matrix; i,j,k:integer; ...

Перевод с Паскаля на c++
Помогите перевести вот такой код на с++ uses crt; const nmax=20; var a:array of integer; ...

перевод с паскаля на си
нужно переделать в нормальный вид)в си) Текст программы Program NonLine; {Заголовок программы...

Перевод с Паскаля в С++
uses crt; function rec(n:integer):real; var z:integer; begin z:=1; if n=0 then begin ...


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

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

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