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

Перевести с Паскаля на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Построение графика функции http://www.cyberforum.ru/cpp-beginners/thread1310159.html
Как визуально построить график функции? sin x +x-3=0 На интервале от a до b. (a,b - любые числа) С точностью e=0.001
C++ Использование кода символа внутри строки? Как должна выглядеть стока, содержащая символ с определённым кодом? Можно как то вместо L"начало"+(wchar_t)0xAB+L"конец" набрать всё значение целиком за одни кавычки? Ну типа как... http://www.cyberforum.ru/cpp-beginners/thread1310155.html
Графическое отображение графа C++
Всем привет. В одной из лабораторных требуется реализовать алгоритм Дейкстры. С самим алгоритмом что-то более менее понятно, но по проблеме с отображением дерева ничего найти не могу. Графическое...
Скажите пожалуйста используется ли в этой программе полиморфизм? C++
Скажите пожалуйста используется ли в этой программе полиморфизм? Так и ладом не понял что такое полиморфизм #include <stdio.h> #include <conio.h> class chlenistonogie // класс, реализующий...
C++ Не выводится решение функций http://www.cyberforum.ru/cpp-beginners/thread1310128.html
Не выводится значение функций rec ,iter ,std, eps Код для этой функции F(x) = Pi/2-(x+(x^3/2*3)+(1*3*x^5/2*4*5)+(1*3*5*x^7/2*4*6*7)+K) Функция приближается к arccos x и модуль x < 1 #include...
C++ Вывести простые числа от 1 до 100 Программа должная выводить все простые числа от 1 до 100. Вот, вроде написал, но не могу понять, почему не выводит 1, 3, 7. #include <iostream> #include <cmath> #define MAX 100 using... подробнее

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

Перевести с Паскаля на С++ - C++

25.11.2014, 08:35. Просмотров 274. Ответов 1
Метки (Все метки)

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
const
  n=10;
var
  a,b: array[1..n,1..n] of integer;
  i,j,k,km: byte;
begin
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  k:=0;
  for j:=1 to n do
    if a[1,j]>0 then inc(k);
  km:=k;
  
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
      if a[i,j]>0 then 
      begin
        inc(k);
        b[i,k]:=a[i,j];
      end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru