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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ оформить в виде функции http://www.cyberforum.ru/cpp-beginners/thread1009290.html
в прямоугольный треугольник вписана окружность. Точка касания делит гепотинузой треугольник в отношении 2 к 3 . Найти стороны , если центр вписаной окружности удален от вершины прямого угла на корень...
C++ Сумма всех элементов В общем я сделал программу которая считывает двумерный массив (4*4) из файла и выводит на экран. Помогите найти сумму элементов главной диагонали и вывести на экран. Заранее спасибо #include... http://www.cyberforum.ru/cpp-beginners/thread1009278.html
C++ [Error] expected primary-expression before '=' token
Напишите функцию, принимающую три аргумента: указатель на первый элемент диапазона в массиве, указатель на элемент, следующий за концом этого диапазона, и значение int. Функция должна присвоить...
C++ Задача с 2 массивом!С++
Исходный массив считать из файла *.txt. Результаты вычислений и манипуляций над массивом вывести на экран и в файлы *.txt и *.xls. Для записи результатов в файл создать пользовательскую функцию.....
C++ Числа Фибоначчи http://www.cyberforum.ru/cpp-beginners/thread1009249.html
Доброе утро, уважаемые форумчане. Прошу у вас помощи с программой по вычислению чисел Фибоначчи. На форуме есть много кодов, но они у меня не хотят работать. Прошу у вас помощи. Нужно сделать в цикле...
C++ Понятие нейронная сеть У меня возникли некоторые недопонимания в процессе изучения нейронной сети. 1) Как я понял нейронная сеть - это универсальный инструмент для решения задач ??? 2) Если писать нейросеть, то ... подробнее

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

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

16.11.2013, 12:48. Просмотров 179. Ответов 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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program ShennonFano;
uses crt;
const
  a :array[1..6] of char = ('a','b','c','d','e','f'); { символы }
  af:array[1..6] of integer = (10, 8, 6, 5, 4, 3);    { частота символов }
 
{ Процедура для поиска кода каждой буквы }
procedure SearchTree(branch:char; full_branch:string; start_pos:integer; end_pos:integer);
var
  dS:real; { Среднее значение массива }
  i, m, S:integer; { m - номер средней буквы в последовательности, S - сумма чисел, левой ветки }
  c_branch:string; { текущая история поворотов по веткам }
begin
  { проверка если это вход нулевой то очистить историю }
  if (a<>' ') then c_branch := full_branch + branch
  else c_branch := '';
 
  { Критерий выхода: если позиции символов совпали, то это конец }
  if (start_pos = end_pos) then
  begin
    WriteLn(a[start_pos], ' = ', c_branch);
    exit;
  end;
 
  { Подсчет среднего значения частоты в последовательности }
  dS := 0;
  for i:=start_pos to end_pos do dS:= dS + af[i];
  dS := dS/2;
 
  { Тут какой угодно можно цикл for, while, repeat поиск середины }
  S := 0;
  i := start_pos;
  m := i;
  while ((S+af[i]<dS) and (i<end_pos)) do
  begin
    S := S + af[i];
    inc(i); inc(m);
  end;
 
  { Рекурсия левая ветка дерева }
  SearchTree('1', c_branch, start_pos, m);
  { Правая ветка дерева }
  SearchTree('0', c_branch, m+1, end_pos);
 
end;
 
begin
  WriteLn('Press <enter> to show');
  ReadLn;
  ClrScr;
  { Поиск кода Фано, входные параметры начало и конец последовательности }
  SearchTree(' ',' ', 1, 6);
  ReadLn;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru