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

Перевод кода из Паскаля в С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Криво работает удаление пробелов из строки http://www.cyberforum.ru/cpp-beginners/thread860328.html
Нашел в нете код #include <iostream> #include <string> #include <algorithm> int main() { std::string s(" Test Test "); remove(s.begin(), s.end(), ' ');
C++ Подсчитать количество цифр в массиве строк Очень нужна помощь в написании простых программ в С++ Изучал паскаль,на последнем курсе перешли на С++, а времени изучать нет... Задачи следующие: 3)Подсчитать количество цифр в массиве строк. Заранее благодарен! http://www.cyberforum.ru/cpp-beginners/thread860323.html
C++ Вычислить сумму заштрихованных элементов массива
Очень нужна помощь в написании простых программ в С++ Изучал паскаль,на последнем курсе перешли на С++, а времени изучать нет... Задачи следующие: 2) Вычислить сумму заштрихованных элементов массива http://i018.***********/1305/a3/33a35d424916.jpg Размер массива любое число от 3 до 15. Заранее благодарен!
Приведение типов разных классов с одинаковыми базовыми родителями C++
Доброго. Вопрос к вам, форумчане. Есть два стула два базовых класса. Есть два класса, унаследованные от обоих базовых классов. Можно ли эти два класса приводить друг другу? Или в этом нет никакой логики? class Alpha { public: Alpha(){} };
C++ дана строка-предложение. зашифровать ее http://www.cyberforum.ru/cpp-beginners/thread860307.html
Доброго времени суток! Помогите, пожалуйста. Дана строка-предложение. зашифровать ее, поместив вначале все символы, расположенные на четных местах, а затем, в обратном порядке, все символы, расположенные на нечетных местах. (например, строка "Программа" превратится в "ргамамроП")
C++ Консольная команда и С++ Добрый вечер. Что использовать в С++ чтобы запустить Java приложение таким кодом( какую функцию ): Код: #!/bin/bash cd "$(dirname "$0")" exec java *arg* -jar *Name program* ? Заранее благодарю, просто появилось желание сделать лаунчер для некоторых Java программ. ( Да, я в курсе того, что не все программы можно запустить этим кодом ) подробнее

Показать сообщение отдельно
NMayron
0 / 0 / 0
Регистрация: 09.05.2013
Сообщений: 6
09.05.2013, 22:12     Перевод кода из Паскаля в С++
помогите перевисти код на С++ , желательно без цикла while ...кампилятор роли не играет ...програма шифр бєкона
вот код на паскале :
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
program strug_production;
var s_out, s_in, str,itogstroka,tekbukva: string;
fa: text;
ik, len, n: integer;
begin
  assign(fa, 'c:\text.txt');
  reset (fa);
 
  itogstroka:='';
  {раскладываем строчку из файла}
  while not Eof(fa) do begin
    readln (fa, str);
    len:=length(str);
    n:=1;
    While n<len+1 do begin
        tekbukva:= Copy(str, n, 1);
        If (tekbukva='A')or(tekbukva='B')or(tekbukva='C')or(tekbukva='D')or(tekbukva='E')or(tekbukva='F')or(tekbukva='G')or(tekbukva='H')or(tekbukva='I')or
        (tekbukva='J')or(tekbukva='K')or(tekbukva='L')or(tekbukva='M')or(tekbukva='N')or(tekbukva='O')or(tekbukva='P')or(tekbukva='R')or(tekbukva='S')or
        (tekbukva='T')or(tekbukva='U')or(tekbukva='V')or(tekbukva='W')or(tekbukva='X')or(tekbukva='Y')or(tekbukva='Z')or(tekbukva='А')or(tekbukva='Б')or
        (tekbukva='В')or(tekbukva='Г')or(tekbukva='Д')or(tekbukva='Е')or(tekbukva='Ё')or(tekbukva='Ж')or(tekbukva='З')or(tekbukva='И')or(tekbukva='Й')or 
        (tekbukva='К')or(tekbukva='Л')or(tekbukva='М')or(tekbukva='Н')or(tekbukva='О')or(tekbukva='П')or(tekbukva='Р')or(tekbukva='С')or(tekbukva='Т')or(tekbukva='У')or
        (tekbukva='Ф')or(tekbukva='Х')or(tekbukva='Ц')or(tekbukva='Ч')or(tekbukva='Ш')or(tekbukva='Щ')or(tekbukva='Ъ')or(tekbukva='Ы')or(tekbukva='Ь')or(tekbukva='Э')or
        (tekbukva='Ю')or(tekbukva='Я') Then
         Begin
          itogstroka:=itogstroka+'B';         
         end
        Else itogstroka:=itogstroka+'A';
        n:=n+1;
    end;
    writeln(itogstroka);    
  end;
 
  {расшифровка}
  len:=length(itogstroka);
  n:=1;
  While n<len+1 do begin
      tekbukva:= Copy(itogstroka, n, 5);
      If (tekbukva='AAAAA')Then Write('a') Else 
      If (tekbukva='AAAAB')Then Write('b') Else
      If (tekbukva='AAABA')Then Write('c') Else
      If (tekbukva='AAABB')Then Write('d') Else
      If (tekbukva='AABAA')Then Write('e') Else
      If (tekbukva='AABAB')Then Write('f') Else
      If (tekbukva='AABBA')Then Write('g') Else
      If (tekbukva='AABBB')Then Write('h') Else
      If (tekbukva='ABAAA')Then Write('i') Else
      If (tekbukva='BBBAA')Then Write('j') Else
      If (tekbukva='ABAAB')Then Write('k') Else
      If (tekbukva='ABABA')Then Write('l') Else
      If (tekbukva='ABABB')Then Write('m') Else
      If (tekbukva='ABBAA')Then Write('n') Else
      If (tekbukva='ABBAB')Then Write('o') Else
      If (tekbukva='ABBBA')Then Write('p') Else
      If (tekbukva='ABBBB')Then Write('q') Else
      If (tekbukva='BAAAA')Then Write('r') Else
      If (tekbukva='BAAAB')Then Write('s') Else
      If (tekbukva='BAABA')Then Write('t') Else
      If (tekbukva='BAABB')Then Write('u') Else
      If (tekbukva='BBBAB')Then Write('v') Else
      If (tekbukva='BABAA')Then Write('w') Else
      If (tekbukva='BABAB')Then Write('x') Else
      If (tekbukva='BABBA')Then Write('y') Else
      If (tekbukva='BABBB')Then Write('z') Else
      Write('');
      n:=n+5;
  end;
 
  close(fa);
  {readln;}
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 19:19. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru