Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2013, 17:40   #1
MagAragorn
Пользователь
 
Регистрация: 22.04.2013
Сообщений: 25
По умолчанию Перевести код С++ на паскаль

Код:
/*
ID: lmy0525
PROG: nocows
LANG: C++
*/
#include <iostream>
#include <fstream>
#include <string>
#include <algorithm>
#include <cmath>
#include <vector>
 
using namespace std;
 
ofstream fout;
ifstream fin;
 
int dp[201][101];
int small[201][101];
 
int main() {
    fout.open("nocows.out");
    fin.open("nocows.in");
    int N, K;
    fin >> N >> K;
 
    for (int i = 1; i <= K; i++) small[1][i] = 1;
    for (int k = 2; k <= K; k++)
    {
        for (int n = 3; n <= N; n++)
        {
            for (int i = 1; i <= n-2; i += 2)
            {
                small[n][k] += small[i][k-1]*small[n-1-i][k-1];
                small[n][k] %= 9901;
            }
        }
    }
 
    dp[1][1] = 1;
    for (int k = 2; k <= K; k++)
    {
        for (int n = 3; n <= N; n += 2)
        {
            for (int i = 1; i <= n-2; i += 2)
            {
                dp[n][k] += small[i][k-1]*dp[n-1-i][k-1]
                    + dp[i][k-1]*small[n-1-i][k-1]
                    - dp[i][k-1]*dp[n-1-i][k-1];
                dp[n][k] %= 9901;
            }
 
        }
    }
    fout << dp[N][K] << endl;
    return 0;
}
Помогите пожалуйста. очень нужно. Могу оригинал задачи скинуть.
MagAragorn вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перевести код паскаль в C# andresan Помощь студентам 6 20.10.2013 21:51
Перевести код С++ на паскаль MagAragorn Паскаль, Turbo Pascal, PascalABC.NET 1 26.05.2013 19:50
Карты Карно - перевести код Паскаль на Делфи Кристинка89 Помощь студентам 3 01.04.2013 17:27