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

Перевести с Borland Pascal на язык С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Прокомментируйте код http://www.cyberforum.ru/cpp-beginners/thread184536.html
if(m == 'a') karp++; if(m == ' ') rev=1; if (rev!=1) cout<<m<<"\n"; Можете каждую строчку прокоментировать....
C++ Строки матрицы расположить по неубыванию их поэлементных сумм Здравствуйте. Помогите, пожалуйста с задачей. Дана матрица из N строк и М столбцов (1<N<=100,1<M<=50). Выполнить заданную операцию над матрицей: переоформить матрицу таким образом, чтобы ее строки располагались по неубыванию их поэлиментных сумм. Программу надо писать в Microsoft Visual C++ 6.0 http://www.cyberforum.ru/cpp-beginners/thread184535.html
Отсортировать нечетные столбцы массива по возрастанию суммы элементов этих столбцов C++
:(Отсортировать нечетные столбцы массива по возрастанию суммы элементов этих столбцов
C++ Четность чисел
Господа, можете помочь со следующей задачей по С++: Вводятся числа a и b. Найти количество таких чисел в диапазоне , которые имеют одинаковую четность с b. ? Я попросту не понимаю как написать код и с чего начать( Не могли бы помочь, буду очень признательна:-[
C++ Builder Деление с остатком http://www.cyberforum.ru/cpp-beginners/thread184498.html
Используя StringGrid заполненный от руки любыми числами, вычислить количество чисел делящихся на семь с остатком 1, 2 и 5. Количество таких чисел вывести в Label.
C++ НОК чтобы определить НОК двух чисел нужно их произведение поделить на НОД int NOD(int a, int b) { if(a%b == 0) return b; return NOD(b, a%b); } // int NOK = a*b / NOD(a, b); подробнее

Показать сообщение отдельно
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
31.10.2010, 20:28     Перевести с Borland Pascal на язык С++
Помогите пожалуйста ))))
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
uses Crt;
const
  n=16; 
  x=0.5;
  p:array [1..n] of real=(0,0.016,0.025,0.083,0.125,0.16,0.25,0.35,0.416,0.625,0.758,0.866,0.93,0.983,1,1);
var
  a1,a2,a3,a4,m0,m1,m2,m3,t:real;
  i:integer;
  z:array[0..25] of real;
BEGIN
  ClrScr;
  m0:=0; m1:=0; m2:=0; m3:=0;
  for i:=1 to n do
    begin
      z[i]:=(1-p[i])*x;
      m0:=m0+z[i];
      t:=(i-1)*x;
      m1:=m1+z[i]*t;
      m2:=m2+z[i]*t*t;
      m3:=m3+z[i]*t*t*t;
    end;
  a1:=m0-z[1]/2;
  a2:=a1*a1-m1;
  a3:=a2*m0-a1*m1+m2/2;
  a4:=a3*m0-a2*m1+a1*m2/2-m3/6;
  writeln('    a1         a2         a3         a4');
  writeln(a1:8:7,'  ',a2:8:7,'  ',a3:8:7,'  ',a4:8:7);
  readln;
END.
 Комментарий модератора 
Используйте теги форматирования кода. И хотябы намекните, что эта чудо-программа делать должна...
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 06:53. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru