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

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

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

Перевести программу с Pascal на С++ - C++

25.11.2016, 20:07. Просмотров 91. Ответов 0
Метки нет (Все метки)

Здравствуйте.

Может кто помочь перевести программу с Паскаля на С++?

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
uses crt;
const nmax=20;
var a,c:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матриц до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n do
if j<i then c[i,j]:=a[i,j]
else if j=i then c[i,j]:=0
else c[i,j]:=-a[j,i];
writeln('Кососимметричная матрица C:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(c[i,j]:4);
  writeln;
 end;
readln
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2016, 20:07     Перевести программу с Pascal на С++
Посмотрите здесь:

Из Pascal в C++ программу перевести - C++
Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var a,s:integer; begin clrscr; write('vvedite chislo: '); readln(s); repeat a:=s; ...

Перевести программу с Pascal на С++ - C++
uses crt; var f:text; {переменная для текстового файла} s:string; i:byte; begin clrscr; ...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var first, second: string; chars: set of char; i: integer; begin ...

Как программу на Turbo Pascal перевести на C++?Выручите) - C++
const N=3; var X,Y:array of real;Z:array of real;max,min:real;m,p,i,j,k:integer; Begin for i:=1 to N do Begin Read(X,Y);Readln;end;...

Перевести из Pascal в C++ - C++
procedure RectPS(x1,x2,y1,y2: real); var p,s: real; begin begin P := (abs(x2-x1) + abs(y2-y1)) * 2; S := abs(x2-x1) *...

Перевести с Pascal на C++ - C++
Здравствуйте! Переведите пожалуйста данный код с Pascal на C++: var n, i, j, cnt, p, found, best, first, ind : longint; s :...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 1) Поменять местами в каждом слове первую половину слова со второй. Есть решение этих задач, но нужно мне...

перевести с pascal на С++ - C++
Помогите пожалуйста перевести на c++ Само задание : Пусть дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого...

Перевести с pascal на С++ - C++
const n=30; var c,a:array of integer; i,k,max:integer; begin {ввод массива c} for i:=1 to n do read(c); ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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