Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

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

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

25.11.2016, 20:07. Просмотров 101. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2016, 20:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести программу с Pascal на С++ (C++):

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

Перевести программу с Pascal на С++ - C++
Program SumCuba; var x, {пробное число} n, {последняя цифра} p, {число без последней цыфры} s:integer; {сумма кубов цифр} ...

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

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

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

Нужно Перевести программу с Turbo pascal на C++ - C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот код: uses crt; const nmax=10; var a:array of...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2016, 20:07
Привет! Вот еще темы с ответами:

Как программу на 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++
Помогите кто знает, вот код program pop; uses crt; label 10; var y,xn,xk,dx:real; begin clrscr; xn:=6;

перевести с pascal в С++ - C++
Помогите пожалуйста написать аналогичную функцию, но на языке C++. (В паскале нифига не шарю) Const MAX_X=80; MAX_Y=24; Type...

Перевести с Pascal на C++ - C++
var n:longint;max:integer; begin writeln('n='); readln(n); max:=0 ; while n&gt;0 do begin if max&lt;n mod 10...


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

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

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