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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
trum
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 53
#1

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

16.11.2013, 12:48. Просмотров 164. Ответов 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;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.11.2013, 12:48
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите кто может с паскаля на с++ (C++):

кто может перевести на С++ с Паскаля - C++
uses crt; const raz=;{/разделители слов, можно добавить} var s,sl:string; i,k:byte; begin clrscr; writeln('Строка:'); ...

Кто может перевести из паскаля в с++? - C++
uses crt; var i,j,n,k: integer; begin read(n); for i:=1 to n div 2 do for j:=1 to n div 2 do if (i*i*i)+(j*j*j)=n...

Кто может преобразовать код из Паскаля на С++? - C++
111

кто может преобразовать код из Паскаля на С++? выручайте - C++
program Nu_pogodi; //3-3 Добавляем модуль Timers uses GraphABC, Timers; //3-4 Начальная скорость игры const ...

переведите с Паскаля на си++ - C++
uses crt; const nmax=100; var a:array of integer; n,i,j,i1,i2:byte; mn:integer; begin repeat write('Размер массива до...

переведите на С++ из паскаля - C++
помогите пожалуйста program zadacha_10; uses crt; type s=record f: string ; {фамилия} fakul: string ; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2013, 12:48
Привет! Вот еще темы с ответами:

переведите с Паскаля на си++ - C++
на паскале получается...а вот на си++ не о чем(( Program MinMax17; const N=10; TheArr:array of integer = (10,20,1,4,5,-6,7,8,9,10);...

Переведите из Паскаля в С++ - C++
uses crt; var x,y,z,t,max:real; BEGIN writeln('Введите длины сторон треугольника'); write('1 -&gt; '); readln(x); ...

Переведите с Паскаля - C++
Всем привет! Нарыл в инете прогу на Паскале (прога определяет день недели по дате). Нужно перевести ее на С++ program denned; ...

Переведите с паскаля в С++ - C++
if (str='А') or (str='A') then j:=j+1; if (str='а') or (str='a') then k:=k+1;


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru