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

Перевести програму с паскаля на с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вернуть указатель на массив из функции http://www.cyberforum.ru/cpp-beginners/thread906993.html
Дан массив из 20 элементов, который заполняется в функции, причем заполнение можно прервать. Функция должна вернуть ссылку на следующий элемент массива, для дальнейшего использования его размера....
C++ Написать функцию, которая находит самую длинную ветку в дереве Здравствуйте! Помогите пожалуйста написать функцию которая находит самую длинную ветку в дереве (но ветка не от корня а от любого перекрестка). Эта ветка должна состоять из перекрестков у которых по... http://www.cyberforum.ru/cpp-beginners/thread906982.html
C++ Рунге-Кутта из 4 порядка в 3-й
Доброго времени суток. У меня есть такой кусок кода, для численного метода Рунге-Кутта 4 порядка: /////////////////////////////////////////////////////////////////////// // -...
Дерево отрезков, редактирование куска и поиск суммы C++
Добрый вечер. Пишу алгоритм нахождения суммы элементов на отрезке и редактирования элементов на отрезке. Вводится N - число элементов в массиве, K - кол - во операций. Далее на вход программе...
C++ Подключение библиотеки audiere C++ Code Blocks http://www.cyberforum.ru/cpp-beginners/thread906938.html
Скачала архив (приложила его). Распаковала. Что делать дальше? Куда и что надо распихать? Заранее спасибо.
C++ Написать программу с использованием функции cctype Программа, которая читает клавиатурный ввод до символа @ и повторяет его, за исключением десятичных цифр, преобразуя каждую букву верхнего регистра в букву нижнего регистра и наоборот. подробнее

Показать сообщение отдельно
• Oscar •
0 / 0 / 0
Регистрация: 19.06.2013
Сообщений: 3

Перевести програму с паскаля на с++ - C++

19.06.2013, 20:17. Просмотров 226. Ответов 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
matrix = array [1..8, 1..5] of integer;
var 
   a:matrix;
  i,j,k:integer;
 begin
   k:=0;
   for i :=1 to 5 do 
      for j :=1 to 10 do 
    begin
      a[i,j]:=random(100);
    end;    
    begin 
    
   for i :=1 to 5 do  
   begin
   write('Dl9 stroki #',i,'stolbcu s 0 - #: ');
      for j :=1 to 10 do 
      if a[i,j]=0 then
      begin
      write(i,' ');
        k:=k+1;
        end;
        write('koli4estvo stolbcov s 0 = ',k);
        end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru