Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Перевод С++ в Pascal

Ответить
Настройки темы
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

 

Аватара для ferget

Разный


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

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

под какой компилятор надо перевести?

Отправлено: 02:03, 10-04-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для CJ F.A.N.

Ветеран


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

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

ferget, на turbo pascal

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

Отправлено: 05:53, 12-04-2012 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Перевод С++ в Pascal

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - Перевод с Pascal на C++ Snake750 Программирование и базы данных 14 14-09-2015 04:48
C/C++ - Перевод с Pascal на C++ Ru1nN Программирование и базы данных 0 21-12-2011 22:45
C/C++ - Перевод кода PASCAL в C++. Jooker666 Программирование и базы данных 0 06-05-2011 14:02
C/C++ - Перевод кода с Pascal -> C++ 2008kedr2008 Программирование и базы данных 7 26-11-2010 19:10
C/C++ - Перевод с Pascal на C++ DimaZone88 Программирование и базы данных 0 13-05-2010 13:52


« Предыдущая тема | Следующая тема »


 
Переход