Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите перевести код из C++ в Pascal, очень нужно, прошу помогите. 
:(
    Опции темы
Alex228
Дата 18.4.2014, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.4.2014

Репутация: нет
Всего: нет



   #include <iostream>
        #include <locale>
        #include <conio.h>
        #include <time.h>
        using namespace std;
        
            
        void createMassivB( bool* Arr, int j, bool flag)
        {
            Arr[j] = flag;
        }
        
            
        int main()
        {
            setlocale(LC_ALL,"Russian");
            int n(0),m(0);
            cout<<"Введите размеррность матрицы: ";cin>> n >> m;
            cout<<endl;
        
            
            int** Mass = new int* [n]; // Объявление динамического массива
            for(int i=0; i<n; i++)
                Mass[i] = new int [m];
        
            
            srand((int)time(0));
            for(int i=0; i<n; i++)
                for(int j=0; j<m; j++)
                    Mass[i][j] = rand()%5; //Присваивание значений элементам матрицы
        
            
            cout << "Исходная матрица: " << endl << endl;
            for(int i(0); i<n; i++)//Вывод исходной матрицы
            {
                for(int j=0; j<m; j++)
                    if(j==m-1)
                        cout << Mass[i][j] << ' ' << endl;
                    else 
                        cout << Mass[i][j] << ' ';
            }
        
            
            bool* MassB = new bool [n]; // Объявление динамического массива в виде булевой маске
            for(int j=0; j<m; j++)// Истинные значения по всем массиве
                    MassB[j] = false; 
        
            
            int k;
            int flagNechet = m%2; 
            for(int i=0; i<n; i++)
            {
                k=true;
        
            
                for(int j=0; j<m/2; j++)
                {
                    if (Mass[i][j]==Mass[i][m-j-1])
                         k = true;
                    else
                    {
                        k = false;
                        break;
                    }
                }
                MassB[i]=k;
            }
        
            
            cout<<endl;
            for(int j=0; j<n; j++)
            {
                if(j==n-1)
                    cout << MassB[j] << ' ' << endl;
                else 
                    cout << MassB[j] << ' ';
            }
        
            
            _getch();
            return 0;
        }
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.1086 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.