Работы над ошибками

@саша40 · Регистрация: 14.08.2012

Студворк — интернет-сервис помощи студентам

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
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
a, b: string;
i: integer;
begin
a:=memo1.Text;
if a='' then
ShowMessage('Введите данные шифрования')
else
begin
memo1.Text:='';
b:='';
for i:=1 TO length(a) Do
begin
if a[i]='а' then b:=b + '0001011';
if a[i]='б' then b:=b + '0001111';
if a[i]='в' then b:=b + '0001100';
if a[i]='г' then b:=b + '0001110';
if a[i]='д' then b:=b + '0011111';
if a[i]='е' then b:=b + '0010111';
if a[i]='ё' then b:=b + '0010011';
if a[i]='ж' then b:=b + '0010111';
if a[i]='з' then b:=b + '0010001';
if a[i]='и' then b:=b + '0010100';
if a[i]='й' then b:=b + '0011000';
if a[i]='к' then b:=b + '0011010';
if a[i]='л' then b:=b + '0011011';
if a[i]='м' then b:=b + '0011101';
if a[i]='н' then b:=b + '0011100';
if a[i]='о' then b:=b + '1010101';
if a[i]='п' then b:=b + '1000000';
if a[i]='р' then b:=b + '1100000';
if a[i]='с' then b:=b + '1110000';
if a[i]='т' then b:=b + '1111000';
if a[i]='у' then b:=b + '1111100';
if a[i]='ф' then b:=b + '1111110';
if a[i]='х' then b:=b + '1001111';
if a[i]='ц' then b:=b + '1000111';
if a[i]='ч' then b:=b + '1000011';
if a[i]='ш' then b:=b + '1000001';
if a[i]='щ' then b:=b + '1001011';
if a[i]='ъ' then b:=b + '1001101';
if a[i]='ы' then b:=b + '1000100';
if a[i]='ь' then b:=b + '1000110';
if a[i]='э' then b:=b + '1000101';
if a[i]='ю' then b:=b + '0100000';
if a[i]='я' then b:=b + '0010111';
if a[i]='1' then b:=b + '1111111';
if a[i]='2' then b:=b + '0000001';
if a[i]='3' then b:=b + '0000011';
if a[i]='4' then b:=b + '0100000';
if a[i]='5' then b:=b + '0000111';
if a[i]='6' then b:=b + '0100001';
if a[i]='7' then b:=b + '0100011';
if a[i]='8' then b:=b + '0010000';
if a[i]='9' then b:=b + '0011010';
if a[i]='0' then b:=b + '0000000';
end;
memo2.Text:=b;
end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
a, b: string;
i: integer;
begin
a:=memo2.Text;
if a='' then
ShowMessage('Введите данные шифрования')
else
begin
memo2.Text:='';
b:='';
for i:=1 TO length(a) DO
begin
if a[i]='0001011' then b:=b + 'а';
if a[i]='0001111' then b:=b + 'б';
if a[i]='0001100' then b:=b + 'в';
if a[i]='0001110' then b:=b + 'г';
if a[i]='0011111' then b:=b + 'д';
if a[i]='0010111' then b:=b + 'е';
if a[i]='0010011' then b:=b + 'ё';
if a[i]='0010111' then b:=b + 'ж';
if a[i]='0010001' then b:=b + 'з';
if a[i]='0010100' then b:=b + 'и';
if a[i]='0011000' then b:=b + 'й';
if a[i]='0011010' then b:=b + 'к';
if a[i]='0011011' then b:=b + 'л';
if a[i]='0011101' then b:=b + 'м';
if a[i]='0011100' then b:=b + 'н';
if a[i]='1010101' then b:=b + 'о';
if a[i]='1000000' then b:=b + 'п';
if a[i]='1100000' then b:=b + 'р';
if a[i]='1110000' then b:=b + 'с';
if a[i]='1111000' then b:=b + 'т';
if a[i]='1111100' then b:=b + 'у';
if a[i]='1111110' then b:=b + 'ф';
if a[i]='1001111' then b:=b + 'х';
if a[i]='1000111' then b:=b + 'ц';
if a[i]='1000011' then b:=b + 'ч';
if a[i]='1000001' then b:=b + 'ш;
if a[i]='1001011' then b:=b + 'щ';
if a[i]='1001101' then b:=b + 'ъ';
if a[i]='1000100' then b:=b + 'ы';
if a[i]='1000110' then b:=b + 'ь';
if a[i]='1000101' then b:=b + 'э';
if a[i]='0100000' then b:=b + 'ю';
if a[i]='0010111' then b:=b + 'я';
if a[i]='1111111' then b:=b + '1';
if a[i]='0000001' then b:=b + '2';
if a[i]='0000011' then b:=b + '3';
if a[i]='0100000' then b:=b + '4';
if a[i]='0000111' then b:=b + '5';
if a[i]='0100001' then b:=b + '6';
if a[i]='0100011' then b:=b + '7';
if a[i]='0010000' then b:=b + '8';
if a[i]='0011010' then b:=b + '9';
if a[i]='0000000' then b:=b + '0';
end;
memo2.Text:=b;
end;
end;
 
end.

Код такой. Но есть проблема! Задача уменьшить кол-во повторений цикла до length(a)/7 как это сделать? + исправте ошибки плиз

@саша40 · 06.09.2012, 18:23 **[ТС]**

Сообщение от Ev1l

ух как все жестоко

а я и незнал что есть функция setLength.. Попробую применить...

@Ev1l · 06.09.2012, 18:31

я кстати забыл там определить начальный текст, тоесть задать переменную а, поэтому аккуратнее

и с декодом перемудрил, надо примерно так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure decode;
var
s,a,b:string;
sa,i: integer;
begin
a:=edit1.text;
sa:=1;
setlength(b, length(a)/7);
for i := 1 to length(a)/7 do
   begin
   s:=copy(a,sa,sa+7);
   if s='0000001' then b:=b+'а';
   ...;
   sa:=7*i+1; 
   end;
end;

murderer · 06.09.2012, 18:52

как всё таки мне изменить установить число выполнений в цыкле равной длине строки/7

Ответ

Нужно использовать while или repeat, чтоб увеличивать на 7

Посмотри вложение - там через repeat сделано.

@саша40 · 06.09.2012, 19:17 **[ТС]**

ещё не всё. Надо проверить робит ли

Добавлено через 7 минут
Ещё не всё. Проверил что-то нето вот код(под меня):

Delphi
1
2
3
4
5
SetLength(b, length(a)/7); //ошибку пишет Incompatible tupes 
for i:=1 TO length(a)/7 DO //в length(a)/7 ошибка Icomplatible tupes: Integer and Extended
begin
... //код
end;

@Nutserus · 06.09.2012, 19:22

Этот код для параллельной вселенной, как впрочем и ты, и в этой вселенной он не работает.

Во первых length(a)/7 - это дробное число, если и делить, то брать целую часть length(a) div 7
Во вторых SetLength это бред сивой кобылы в данном случае.

Не по теме:

А сколько тебе лет?

@саша40 · 06.09.2012, 19:36 **[ТС]**

попробую length(a) div 7

Добавлено через 4 минуты
снова провал:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button2Click(Sender: TObject);
var
a, b: string;
i: integer;
begin
a:= memo2.Text; 
if a='' then 
ShowMessage('Введите текст шифрования')
else
begin
memo2.Text:='';
b:='';
for i:=1 TO length(a) div 7 DO
begin
... //условия шифривания
end;
memo2.Text:=b;
end;

Что тут нето. Ошибок нет. Но текст не расшифровывается.

@Ev1l · 06.09.2012, 20:06

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
procedure TForm1.Button1Click(Sender: TObject);
var
s,a,b:string;
sa,i: integer;
begin
a:=memo1.text;
b:='';
sa:=1;
setlength(b, length(a)div 7);
for i := 1 to length(a)div 7 do
   begin
   s:=copy(a,sa,sa+7);
   if s='0000001' then b:=b+'а';
   sa:=7*i+1;
   end;
Memo1.Text:=b;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
a,b:string;
i: integer;
begin
b:='';
a:=Memo1.Text;
for i := 1 to length(a) do
   begin
   case a[i] of
   'а': b:=b+'0000001'//лень искать какой там у тебя шифр, но надеюсь суть ясна.
   end;
   end;
Memo1.Text:=b;
end;

этот работает

простите что про див забыл да и за сумбурность кода

исправлюсь

Не по теме:

Сообщение от саша40

Код такой. Но есть проблема! Задача уменьшить кол-во повторений цикла до length(a)/7 как это сделать? + исправте ошибки плиз

что вы прикопались, хочет человек 100500 if...then... пусть делает :) поймет что нужно что-то лучше возьмет ваш код, потом свой протокол шифрования напишет :)

з.ы. саша40, не забудь что длина String = 256 символов

@Nutserus · 06.09.2012, 20:42

Сообщение от Ev1l

з.ы. саша40, не забудь что длина String = 256 символов

Это в параллельной вселенной, в нашей любое число символов, ограниченное только памятью. )))

Работать будет так.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var
s,a,b:string;
i: integer;
begin
a:=memo1.text;
b:='';
for i := 0 to (length(a)-1) div 7 do
   begin
     s:=copy(a,i*7+1,7);
     if s='0000001' then b:=b+'а';
//.......
   end;
Memo1.Text:=b;
end;

@Ev1l · 06.09.2012, 20:47

сори сфэйлился, в мозгах паскаль остался, не обновил

Не по теме:

да чтоже за денек такой, фэйл на фэйле :(

@саша40 · 06.09.2012, 20:49 **[ТС]**

нет я кажись ощибся так. Текст расшифровки не выходит потому что берется 1 символ,а не все 7 может попробывать так в цыкле:

Delphi
1
2
3
4
5
6
for i:=1 TO lehgth(a) div 7 DO 
begin
if a[i, i+1, i+2, i+3, i+4, i+5, i+6]= ... then ....;
... //остальные действия
i:=i+6;  //прибавляем к переменой
end;

Может так? Но я думаю будет ошибка, а как вы?

@Ev1l · 06.09.2012, 20:51

Delphi
1
2
3
   s:=copy(a,sa,sa+7);
.....
   sa:=7*i+1;

угадай, что это???

Не по теме:

криптограф из тебя может когда нибудь и выйдет, боюсь что нескоро, а вот тролль хоть сейчас:)

@саша40 · 06.09.2012, 20:52 **[ТС]**

или так:

Delphi
1
2
3
4
5
6
7
c:=1;
for i:=c TO length(a) div 7 DO 
begin 
if a[i, i+1, i+2, i+3, i+4, i+5, i+6]=... then ... ; //выполняем условие
...// остальные условия 
c:=c+6;
end;

Какой код лучше?

@Ev1l · 06.09.2012, 20:56

Сообщение от саша40

c:=1;
for i:=c TO length(a) div 7 DO c:=c+6;

этапять!

@саша40 · 06.09.2012, 20:57 **[ТС]**

я кстати проверил с переменой c и она робит.

@Arcor · 06.09.2012, 20:58

Не по теме:

саша40, у тебя в адресе ошибка, 2 буквы города местами поменяны :scratch:

@саша40 · 06.09.2012, 20:59 **[ТС]**

проверил всё. Походу надо проверить с i и с.. Можете кто проверить?

Добавлено через 1 минуту
поидее она должна i перевести на 6 цыфр вперед и цыкл проверит это.

@Ev1l · 06.09.2012, 21:00

Не по теме:

Сообщение от саша40

Походу надо проверить с i и с.. Можете кто проверить?

проверил, компилятор ругается матом, кричит что разумнее поделить на 0:)

@саша40 · 06.09.2012, 21:03 **[ТС]**

кто знает будет правильно всё это:

Delphi
1
if a[i, i+1, i+2, I+3, I+4, I+5, I+6]=...then ...;

Меня интересует только в квадратных скопках...

Добавлено через 2 минуты
я кажись так и решу проблему? Надо попробовать, но у меня уже 00:03

@Ev1l · 06.09.2012, 21:03

да это правильно, если а у тебя 7ми мерный массив строк

Не по теме:

Delphi
1
2
Ev1l.Free;
Application.Terminate;

@саша40 · 06.09.2012, 21:04 **[ТС]**

Сообщение от Ev1l

да это правильно, если а у тебя 7ми мерный массив строк

подробнее пожалуйста...

Новые блоги и статьи Все статьи Все блоги /
Альцгеймер и колоссальный объем вычислений Programma_Boinc 08.08.2026 Альцгеймер и колоссальный объем вычислений Сейчас по направлению болезни Альцгеймера идет колоссальный объем вычислений. Это один из главных приоритетов проекта. Такой массовый наплыв задач. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	06.09.2012, 19:22
	Этот код для параллельной вселенной, как впрочем и ты, и в этой вселенной он не работает. Во первых length(a)/7 - это дробное число, если и делить, то брать целую часть length(a) div 7 Во вторых SetLength это бред сивой кобылы в данном случае. Не по теме: А сколько тебе лет? 0

@Ev1l 134 / 133 / 22 Регистрация: 29.08.2012 Сообщений: 353
	06.09.2012, 20:47
	сори сфэйлился, в мозгах паскаль остался, не обновил Не по теме: да чтоже за денек такой, фэйл на фэйле :( 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	06.09.2012, 20:57 [ТС]
	я кстати проверил с переменой c и она робит. 0

@Arcor
	06.09.2012, 20:58
	Не по теме: саша40, у тебя в адресе ошибка, 2 буквы города местами поменяны :scratch: 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	06.09.2012, 20:59 [ТС]
	проверил всё. Походу надо проверить с i и с.. Можете кто проверить? Добавлено через 1 минуту поидее она должна i перевести на 6 цыфр вперед и цыкл проверит это. 0