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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Найти количество чисел в отрезке [Q;S] с неповторяющимися цифрами http://www.cyberforum.ru/cpp-beginners/thread1860049.html
Даны целые числа Q и S; 1<=Q<=S<=100,000,000 Нужно найти в диапазоне все числа, у которых цифры не повторяются. Например, между 11 и 99 повторяются 11,22,33,44,55,66,77,88,99, в общем - 9 чисел. Значит ответ будет 89-9 = 80 Но это лишь для случая с S = 99 / 999 / 9999 и т.д. Перебор не сработает, ибо ограничение по времени 1 секунд Помогите :)
C++ Оценка псевдослучайной последовательности Задали семестровую. Не совсем понял суть задачи. Может кто-нибудь подсказать с чего начать? http://www.cyberforum.ru/cpp-beginners/thread1860048.html
C++ Перед всеми нечетными элементами заданного массива вставить X
Перед всеми нечетными элементами вставить X помогите плиз!!!
Нарисовать цифру из символов (через двумерный массив) C++
Как сделать это (картинка)через двумерный массив, дайте начало или подскажите.
C++ Ошибка при чтении символа строки http://www.cyberforum.ru/cpp-beginners/thread1860008.html
Здравствуйте! Не могу понять почем эта ошибка мне выбивается при исполнении следующего кода: #define _CRT_SECURE_NO_WARNINGS #include<iostream> #include<stdio.h> using namespace std; void Function(char*str, int n) { char * st1 = strtok(str, " "); while (st1 != NULL) {
C++ Ввод и хранение больших чисел В строку (string) вводится десятичное большое число, как правильно разбить эту строку на разряды для хранения в массиве в системе счисления 2^32? С десятичной системой или степенями 10 все ясно - можно просто разбить строку по разрядам и сформировать массив, но мне нужно конкретно в системе 2^32. подробнее

Показать сообщение отдельно
Klin4
0 / 0 / 0
Регистрация: 25.11.2016
Сообщений: 10

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

25.11.2016, 20:07. Просмотров 88. Ответов 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru