C/C++ - Перевод С++ в Pascal

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

C/C++ - Перевод С++ в Pascal

CJ F.A.N.

Ветеран

Сообщения: 565
Благодарности: 30

Конфигурация

Профиль | Сайт | Отправить PM | Цитировать

Всем привет! В С++ не силен, можете помочь? Перевести код

Код:

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <math.h>
#include <string.h>

#define HUGE 10000

char st[200];
int dyn[200][200];

int min(int a, int b) {
  return a > b ? b : a;
}

bool check(char c1, char c2) {
  if (c1 == '{' && c2 == '}') return true;
  if (c1 == '[' && c2 == ']') return true;
  if (c1 == '(' && c2 == ')') return true;
  return false;
}

int calc(int x, int y) {
  if (dyn[x][y] != HUGE) return dyn[x][y];
  if (x > y) return 0;
  dyn[x][y] = min(calc(x+1,y), calc(x,y-1)) + 1;
  int i;
  for (i = x; i < y; i++) {
    dyn[x][y] = min(dyn[x][y],calc(x,i)+calc(i+1,y));
  }
  if (check(st[x],st[y])) {
    dyn[x][y] = min(dyn[x][y],calc(x+1,y-1));
  }
  return dyn[x][y];
}

int main() {
  freopen("e.in","r",stdin);
  freopen("e.out","w",stdout);
  scanf("%s",&st);
  int len = strlen(st);
  int i,j;
  for (i = 0; i < len; i++) {
    for (j = 0; j < len; j++) {
      dyn[i][j] = HUGE;
    }
  }
  printf("%d\n",calc(0,len-1));
  return 0;
}

в паскаль.
Заранее спасибо!

-------
Опыт растет прямо пропорционально выведенному из строя оборудованию

Отправлено: 23:15, 09-04-2012