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

Из кода Pascal в код C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ C Паскаля перевести в С++ http://www.cyberforum.ru/cpp-beginners/thread1085794.html
Дана матрица размера M x N. Удалить столбец, содержащий максимальный элемент матрицы. program Matrix64; var K,maxI,maxJ,j,i,M,N,num:integer; a: array of real; temp:real; begin // Ввод данных ...
C++ В двумерном массиве найти среднее арифметическое первого столбца и количество элементов в каждом из следующих столбцов В двумерном массиве найти среднее арифметическое первого столбца и количество элементов в каждом из следующих столбцов, превышающих среднее арифметическое предыдущего столбца http://www.cyberforum.ru/cpp-beginners/thread1085792.html
Преобразование типов C++
Вот я создаю двумерный массив n=1; m=2; char **mas=new char *; mas=new char; после этого мне нужно увеличить размер строк в массиве на 1(т.е. n=2), использую функцию realloc, но она...
Вычислить сумму значений t. Вычислить значения t, соответствующие каждому значению х C++
Вычислить значения t, соответствующие каждому значению х (x_n\leq x\leq x_k) , шаг изменения x равен dx) по формуле t = (a+b)^2 \sqrt{a+x/b+x}*ln(a+x) . Вычислить сумму значений t, произведение...
C++ Задан двумерный массив N x N http://www.cyberforum.ru/cpp-beginners/thread1085757.html
Задан двумерный массив N x N. Разрешается произвольно переставлять элементы внутри любого столбца. Проверить можно ли выполнив конечное число перестановок в столбцах, расположить на побочной...
C++ Сформировать квадратную матрицу порядка n по заданному образцу Сформировать квадратную матрицу порядка n по заданному образцу n n-1 n-2 … 3 2 1 n-1 n-2 n-3 … 2 1 0 n-2 n-3 n-4 … 1 0 0 …………………………… 1 0 0 … 0 0 0 спасибо! подробнее

Показать сообщение отдельно
Revolver19931
1 / 1 / 1
Регистрация: 24.09.2013
Сообщений: 139

Из кода Pascal в код C++ - C++

30.01.2014, 22:32. Просмотров 535. Ответов 8
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var A:array[1..20,1..20] of byte;
    i,j,n:byte;
Begin
    write('N = ');readln(n);
    For i:=1 to n do
     For j:=i to n do
      A[i,j]:=j-i+1;
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
    readln;
End.
Необходим код на С++
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru