‘орум программистов, компьютерный форум, киберфорум
Ќаши страницы

Turbo Pascal

¬ойти
–егистраци€
¬осстановить пароль
 
tenzik23
0 / 0 / 0
–егистраци€: 22.12.2013
—ообщений: 5
#1

√енератор комбинаций символов - Turbo Pascal

29.12.2013, 17:42. ѕросмотров 957. ќтветов 3
ћетки нет (¬се метки)

ƒана матрица состо€ща€ из русского алфавита, помогите пожалуйста сделать программу котора€ генерила бы различные комбинации алфавита(тобиш в разном пор€дке) и выводила их в txt файл. ”мол€ю помогите! завтра зачет :c
0
Ќадоела реклама? «арегистрируйтесь и она исчезнет полностью.
Similar
Ёксперт
41792 / 34177 / 6122
–егистраци€: 12.04.2006
—ообщений: 57,940
29.12.2013, 17:42
«дравствуйте! я подобрал дл€ вас темы с ответами на вопрос √енератор комбинаций символов (Turbo Pascal):

—колько комбинаций можно составить из разных символов, если они повтор€ютс€ - Pascal
—обственно, така€ задача: ƒаны n карточek, на которых написано ќƒЌј буква. —колько  омбинаций можно составить из этих карточек(если...

ƒана строка символов. ѕодсчитать общее число вхождений символов +, -, *, / в строку. ѕроизвести обмен символов + и -. - Turbo Pascal
помогите, пожалуйста.

 оличество комбинаций - Turbo Pascal
ƒоброго времени суток. ≈сть целочисленный массив. Ќужно найти комбинации пар элементов.  ак это сделать?

‘ормула числа комбинаций - Turbo Pascal
ѕожалуйста помогите решить с клавуатуры в цикле вводитс€ n, k < 500 высчитать — из n по k учитыва€ что результат не превосходит 2 млрд. ...

Ќайти количество возможных комбинаций числа - Turbo Pascal
есть массив типа integer. в него нужно записать все комбинации чисел(кажда€ комбинаци€ как отдельный элемент), составленных только из чисел...

ѕостроить множества, состо€щих из различных комбинаций элементов списка - Turbo Pascal
ƒанный список некоторых объектов. ѕостроить 5 множеств, состо€щих из различных комбинаций элементов этого списка. ¬ывести на экран названи€...

3
Dmitrinik
535 / 391 / 50
–егистраци€: 18.08.2012
—ообщений: 1,003
29.12.2013, 20:09 #2
Pascal
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
const abc: array[1..8,1..4] of char =(('ј','Ѕ','¬','√'),
                                      ('ƒ','≈','∆','«'),
                                      ('»','…',' ','Ћ'),
                                      ('ћ','Ќ','ќ','ѕ'),
                                      ('–','—','“','”'),
                                      ('‘','’','÷','„'),
                                      ('ШЎ','ў','Џ','џ'),
                                      ('№','Ё','ё','я'));
Var
  i, j, k, m : word;
  xch : char;
  tf : text;
Begin
  Randomize;
  for i:=1 to 8 do
    for j:=1 to 4 do
      begin
        m:=Random(8) + 1;
        k:=Random(4) + 1;
        xch:=abc[i,j];
        abc[i,j]:=abc[m,k];
        abc[m,k]:=xch;
      end;
  Assign(tf,'abc.txt');
  Rewrite(tf);
  for i:=1 to 8 do
    begin
      for j:=1 to 3 do write(tf,abc[i,j],' ');
      writeLn(tf,abc[i,4]);
    end;
  Close(tf);
End.
1
nikisha
39 / 35 / 12
–егистраци€: 10.11.2013
—ообщений: 89
29.12.2013, 20:23 #3
писал по дискретке лабу, может пригодитс€. работает дл€ 9 символов, 362880 перестановок.
Pascal
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
uses crt;
var mas5,az,mas,masz:array[0..9] of char;
    a,b,c,d,e,v,g,iy,fact:longint;
    b1,j,i,ia,ib,ic,id,ie,iv,ig,ik,k,n,n1,z:byte;
    f:text;
    ir,rt,za,zb,y:char;
 
function func(x:byte):longint;
begin
     if x=0 then func:=1
     else func:=x*func(x-1);
end;
 
procedure proc2(u1:byte;var z:byte);
label M;
begin
M:
if z=n then z:=0;
z:=z+1;
mas[u1]:=masz[z];
for ik:=0 to u1-1 do
    if mas[u1]=mas[ik] then goto M;
end;
 
procedure proc3(u:byte);
begin
k:=0;
for i:=1 to n do begin
                 b1:=0;
          for ik:=0 to u do
              if (masz[i]=mas[ik]) then b1:=b1+1;
              if b1>0 then else begin
                                k:=k+1;
                                mas[u+k]:=masz[i];
                                end;
                      end;
end;
 
begin
clrscr;
assign(f,'PER.TXT');
rewrite(f);
 
write(' оличество элементов: '); readln(n);
write('¬ведите элементы:');
 
for i:=1 to n do begin
                 mas[i]:=readkey;
                 write(mas[i]:2);
                 end;
writeln;
 
for i:=1 to n do masz[i]:=mas[i];
 
iy:=0;
a:=func(n-1); b:=func(n-2); c:=func(n-3); d:=func(n-4);
e:=func(n-5); v:=func(n-6); g:=func(n-7);
ia:=0; ib:=0; ic:=0; id:=0; ie:=0; iv:=0; ig:=0;
 
repeat
iy:=iy+1;
a:=a+1; b:=b+1; c:=c+1; d:=d+1; e:=e+1; v:=v+1; g:=g+1;
 
if n>2 then begin
            if a=func(n-1)+1 then begin
                                  proc2(1,ia);
                                  proc3(1);
                                  a:=1; ib:=0; ic:=0;id:=0; ie:=0; iv:=0; ig:=0;
                                  end;
            end;
 
if n>3 then begin
            if b=func(n-2)+1 then begin
                                  proc2(2,ib);
                                  proc3(2);
                                  b:=1; ic:=0;id:=0; ie:=0; iv:=0; ig:=0;
                                  end;
            end;
 
if n>4 then begin
            if c=func(n-3)+1 then begin
                                  proc2(3,ic);
                                  proc3(3);
                                  c:=1; id:=0; ie:=0; iv:=0; ig:=0;
                                  end;
            end;
 
if n>5 then begin
            if d=func(n-4)+1 then begin
                                  proc2(4,id);
                                  proc3(4);
                                  d:=1; ie:=0; iv:=0; ig:=0;
                                  end;
            end;
 
if n>6 then begin
            if e=func(n-5)+1 then begin
                                  proc2(5,ie);
                                  proc3(5);
                                  e:=1; iv:=0; ig:=0;
                                  end;
            end;
 
if n>7 then begin
            if v=func(n-6)+1 then begin
                                  proc2(6,iv);
                                  proc3(6);
                                  v:=1; ig:=0;
                                  end;
            end;
 
if n>8 then begin
            if g=func(n-7)+1 then begin
                                  proc2(7,ig);
                                  proc3(7);
                                  g:=1;
                                  end;
            end;
 
if (iy mod 2=0) then begin
                     za:=mas[n-1];
                     zb:=mas[n];
                     mas[n-1]:=zb;
                     mas[n]:=za;
                     end;
 
for i:=1 to n do begin
                 write(mas[i]);
                 write(f,mas[i]);
                 end;
 
writeln;
writeln(f);
 
until iy=func(n);
 
close(f);
writeln;
writeln('¬се перестановки записаны в файл PER.TXT.');
writeln('ƒл€ выхода нажмите любую клавишу.');
readkey;
end.
результат:
 оличество элементов: 3
¬ведите элементы: ∆ r 4
∆r4
∆4r
r∆4
r4∆
4∆r
4r∆

¬се перестановки записаны в файл PER.TXT.
ƒл€ выхода нажмите любую клавишу.
0
tenzik23
0 / 0 / 0
–егистраци€: 22.12.2013
—ообщений: 5
29.12.2013, 21:01  [“—] #4
—пасибо за ответы. Ќо вдруг вы€снились неожиданные обсто€тельства ѕрограмма должна генерить 2 таблицы алфавита р€дом через "|" и чтобы в файле не перезаписывалась стара€ таблица, а оставалась там.

ƒобавлено через 18 минут
и § * І * І | и § * І * І
° , е о к о | ° , е о к о
г £ м б ѓ б | г £ м б ѓ б
а л • ™ в к | а л • ™ в ™
. н Ґ ђ п ђ | й Ѓ ж д Ђ д
. н Ґ ђ п ђ | : з ® ¶ ®
: з ® ¶ ® | й Ѓ ж д Ђ д

¬от как то так
0
29.12.2013, 21:01
MoreAnswers
Ёксперт
37091 / 29110 / 5898
–егистраци€: 17.06.2006
—ообщений: 43,301
29.12.2013, 21:01
ѕривет! ¬от еще темы с ответами:

Ќесколько комбинаций случайных чисел дл€ п€ти переменных - Turbo Pascal
«дравствуйте! ≈сть п€ть переменных a b c d e. ќни могут принимать значени€ 0 или 1.  ак написать генератор случайных чисел дл€ них, но ...

«аписать в текстовый файл все возможные варианты комбинаций чисел - Pascal
Ќужно чтобы программа записывала в текстовый файл все возможные варианты комбинаций.  омбинации состо€т из п€ти чисел от 1 до 33. ѕример 1...

Ќайти врем€, которое уйдет на подбор комбинаций кодового замка - Pascal
‘ормат входного файла ¬ первой строке даны три натуральных числа: N, K, S. N <= 30 Ч количество дисков; K <= 26 Ч количество...

ѕостроить п€ть множеств, состо€щих из различных комбинаций элементов этого списка. - Turbo Pascal
ѕостроить п€ть множеств, состо€щих из различных комбинаций элементов этого списка. ¬ывести на экран названи€ объектов, которые есть во всех...


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

»ли воспользуйтесь поиском по форуму:
4
ќтвет —оздать тему
ќпции темы

 ибер‘орум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
–ейтинг@Mail.ru