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

Перевод кода программы с Паскаль на С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Сортировка массива http://www.cyberforum.ru/cpp-beginners/thread631512.html
Здравствуйте. Посмотрите пожалуйста, в чем ошибка!! В С++ Билдере у меня работала такая функция для сортировки: int* Insert (int* a,int N) { int x,j; for (int i=1; i<N; i++) { x=a; j=i-1; while ((x<a) && (j>=0))
C++ Дано действительное а Найти такое наименьшее n, что 1+ 1/2+...1/n a http://www.cyberforum.ru/cpp-beginners/thread631501.html
C++ АнтиЕвклид!
Добрый день, из спортивного интереса пытаюсь найти число для которого алгоритм Евклида, выполниться хотя бы 6 раз! На работе включил перебором, но думаю это на долго. Может кто то элегантное решение подскажет?
C++ Сложение двоичных чисел, представленных в bitset
Здравствуйте! Мне необходимо узнать, как можно реализовать сложение двоичных чисел, представленных в виде bitset (хотя бы инкремент). Помогите, пожалуйста.
C++ Выход за предел массива http://www.cyberforum.ru/cpp-beginners/thread631479.html
Здравствуйте, меня заинтересовала одна особенность массивов, а именно то что они не проверяются на количество элементов, из этого исходит то что с их помошью мы можем изменить/инициализировать совершенно не относящуюся к этому массиву переменную. Я бы хотел узнать возможно ли это ?
C++ Union с явными указателями или void*- что выбрать? В программе предполагается использование огромного количества указателей типа void*, по которым будут хранится объекты типов А и Х. Т.о. при обращении будет использоваться явное приведение типа указателя. Но как вариант рассматриваю вместо void* использовать union { A* pA; X* pX; }; Мне кажется, что и тот, и другой вариант должны быть одинаковы по части занимаемого объёма... подробнее

Показать сообщение отдельно
AndreiMolot
0 / 0 / 0
Регистрация: 23.04.2014
Сообщений: 2
01.05.2014, 13:45     Перевод кода программы с Паскаль на С++
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
uses crt;
var s:string;
    i,j,k,l,f:integer;
    c:char;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
writeln('Simvoly > 3 raz:');
writeln;
f:=0;
for i:=1 to length(s) do
 begin
  k:=0;
  for j:=1 to length(s) do
  if s[i]=s[j] then k:=k+1;
  if k>3 then
    begin
     f:=1;
     c:=s[i];
     writeln('Simvol ',c,' vstrechaetsa ',k,' rz.');
    end;
  for l:=length(s) downto 1 do
  if s[l]=c then delete(s,l,1);
 end;
if f=0 then write('Simvoly > 3 raz ne najdeny!');
readln
end.
 
Текущее время: 10:44. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru