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

Переделать - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Напечатать все числа интервала [100,200], цифровой корень которых кратный (3,6,9) http://www.cyberforum.ru/cpp-beginners/thread900081.html
Сделайте пожалуйста задачу Напечатать все числа интервала , цифровой корень которых кратный (3,6,9);
C++ Перевод на С++ Имеется примерно такой код : switch (type) { case 0: return new object { br.ReadInt32() }; case 1: return new object { br.ReadInt32(), br.ReadInt32() }; http://www.cyberforum.ru/cpp-beginners/thread900080.html
C++ Не работает функция
Здравствуйте! Сразу к делу. Вот в таком виде - работает: #include <iostream> #include <conio.h> using namespace std; void fun1(int *a, int i, int na) { for (int i=0; i<na; i++) { a=rand()%100-25; cout<<a<<' ';
C++ Заполнение вектора пользоватьельского типа данных
скажите пожалуйста, как добавлять элементы вектора функцией push_back(), если вектор состоит из пользовательского типа данных. int main() { SetConsoleCP(1251); SetConsoleOutputCP(1251); vector<S> vs; for(int i=0; i<500; i++) {
C++ Ленивая инициализация! http://www.cyberforum.ru/cpp-beginners/thread900058.html
Объясните пожалуйста реальный пример применения ленивой инициализации.Можно с листингом простой программы.
C++ Программа закрывается после первой команды Например, вводим -h, программа выдает справку и завершает свою работу. Как нужно сделать, чтобы она закрывалась только после введения -q? Спасибо за помощь! #include <iostream> #include <string.h> #include <conio.h> using namespace std; подробнее

Показать сообщение отдельно
demigod324
4 / 2 / 0
Регистрация: 17.03.2013
Сообщений: 102
12.06.2013, 23:01     Переделать
Помогите переделать из delphi в c++

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  MasBuf: array [0..6] of string; // буфер для обмена
  changed: boolean; // TRUE, если в массиве были "обмены"
begin
  with StringGrid1 do
    // цикл повторяется, пока таблица не будет отсортирована
    repeat
      changed:=false;
      // перебираем все значения лет по строкам до предпоследней
      for i := 1 to RowCount-2 do
        // если год текущей строки больше года следующей строки, то строки меняем местами
        if StrToInt(cells[6,i]) > StrToInt(cells[6,i+1]) then
          // пробегаем по всем столбцам текущей и следующей строки
          for j := 0 to ColCount-1 do
          begin
            MasBuf[j]:=cells[j,i]; // промежуточное хранение строки в массиве
            cells[j,i]:=cells[j,i+1];
            cells[j,i+1]:=MasBuf[j];
            changed:=True;  // сигнализируем, что "обмен строк" был, меняем false на true
          end;
    // сигналом окончания цикла будет отсутствие "обменов" строк
    until changed=false;
end;
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 15:54. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru