Форум программистов, компьютерный форум, киберфорум
C для начинающих
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 16.10.2009
Сообщений: 4
1

Перевести код с Дельфи на Си

11.01.2010, 21:06. Показов 459. Ответов 0
Метки нет (Все метки)

Я довольно неплохо знаю Делфи, вот с Си к сожалению еще не успел((
Есть Задание которое нужно очень сделать..но написанное на паскале..
Если кто может - перевести этот код в код С.
Написати програму, яка виводить на екран всі можливі
перестановки N введених символів.
Ниже код:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program perestanovka ;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
     nMax = 10;
type
    Tmas = array[1..nMax] of char;
    Tbool = array[1..nMax] of boolean;
Var A,mas:Tmas;
    j,n:byte;
    bmas:Tbool;
Procedure F(ind:byte; mas:Tmas; bmas:Tbool);
Var i:byte;
Begin
  if ind<=n then
    begin
      for i:=1 to n do
        begin
          if not bmas[ і ] then
            begin
              mas[ind]:=A[i];
              bmas[i]:=true;
              F(ind+1,mas,bmas);
              bmas[i]:=false;
            end;
        end;
    end
  else
    begin
      for i:=1 to n do
        write (mas[i],' ');
      readln;
    end;
End;
 
 
 
BEGIN
      readln(n);
       for j:=1 to n do
      readln(A[j]);
      F(1,mas,bmas);
      Writeln('Done!');
       Readln;
END.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2010, 21:06
Ответы с готовыми решениями:

Перевести код на Дельфи
Кто может перенести это в Delphi??? type // конфета TCandy = record Name: string; //...

Перевести код из С++ в Дельфи
помогите перевести код плиз!из с++ в код делфи! using namespace std; int main() { const...

Перевести текстовый код на Дельфи
помогите перекинуть код из паскаля в делфи uses crt; const nmax=20; mar:array of...

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

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2010, 21:06

Перевести код с Паскаля на Дельфи
ПОМОГИТЕ ПОЖАЛУЙСТА ПЕРЕВЕСТИ НА ДЕЛФИ var A,B,n:word; begin write('A= '); readln (A); B:=A;...

Перевести код из Паскаля в Дельфи
помогите перекинуть код из паскаля в делфи uses crt; const nmax=20; mar:array of...

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

Перевести из паскаля в Дельфи
преведите дайте код на кнопку и тд var n,i,a,sp,so:integer; begin write('n='); readln(n);...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.