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

@саша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 как это сделать? + исправте ошибки плиз

@Nutserus · 06.09.2012, 21:05

Попробуй фигурные, они симпатичнее.

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

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

Не по теме:

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

я проверил цыкл:

Delphi
1
2
3
4
5
6
7
8
9
10
11
var
i, c, a: integer;
begin
a:=1;
c:=1;
for i:=c TO 50 DO 
begin
a:=a+6; 
Label1.Caption:=inttostr(a); 
c:=c+4; 
end;

И всё прошло удачно. Что я это продумать не мог, сам не пойму. Взял цыкл как для примера и проверки.

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

Добавлено через 1 минуту
минуту.. А если берутся все семь символов в строке значит надо снова применять length(a), да?

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

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

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

Не по теме:

Delphi
1
2
Ev1l.Free;
Application.Terminate;

Не по теме:

типо я тебя обошел

Добавлено через 42 секунды

@Arcor · 06.09.2012, 21:22

Не по теме:

санек.... дам совет... если ты пишешь такую программу которая запутанная.... раздели ее на части, если нужно циклически что-то найти еще в паре циклов... напиши это нахождение в отдельной функции.... и вот таким образом ты избавишь себя и других от страданий.... потом другую часть в функцию взять, и вот так по кусочкам... и потом получится программа работающая... а вот как я прочел эти 5 страниц... вникать трудно в написанное.......... что ты там сравниваешь с текстом.... этот текст вынеси вообще в файл.. чтобы он не загромождал тебе место .. чтобы ты видел весь код от начала и до конца.. я знаю что если мышкой скролить вниз по коду... от того что он не влазит в моник, код одной функции имею ввиду, теряется обзор... нужно снова скролить вверх и смотреть что там написано сверху..... после этого теряется не только обзор, но и логика.. что потом сидишь и не знаешь как снова начать

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

я всё уже понял:

Delphi
1
2
3
4
5
6
i:=1;
while i<=length(a) div 7 DO //будет делать пока i меньше или равно длине по деленой на 7(кол-во символов в зашифровке). 
begin
if a[i, i+1, i+2, i+3, i+4, i+5, i+6]=... then ...; //условие
... //остальной код
end;

Добавлено через 1 минуту
но то же проблема со строками, ведь i увеличивается на 1 а нам надо на 7, как это имитировать?

@Arcor · 06.09.2012, 21:42

Delphi
1
if a[i, i+1, i+2, i+3, i+4, i+5, i+6]=... then ...; //условие

а как у тебя массив объявлен? и как он заполнен, если ты при таком коде его проверяешь?

уже писалось сверху что это 7ми мерный массив.... т.е.

Delphi
1
var Massiv: Array of Array of Array of Array of Array of Array of Array of String;

заполнять его примерно так.. я бы не желал этого делать......

Delphi
1
Mаssiv[0][0][0][0][0][0][0] := 'Тра-ля-ля';

Не по теме:

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

@Nutserus · 06.09.2012, 21:48

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

но то же проблема со строками, ведь i увеличивается на 1 а нам надо на 7, как это имитировать?

Может дробью?

@Arcor · 06.09.2012, 21:58

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

но то же проблема со строками, ведь i увеличивается на 1 а нам надо на 7, как это имитировать?

циклы
while do
repeat until
да даже и fo'ом можно.... если вложить туда переменную и инкрементировать ее не на 1 а на 7..

@Ev1l · 06.09.2012, 22:14

Саша, налей себе кофе, сядь спокойно и прочитай.

Твои идеи обращения к нескольким символам строки не могут быть воплощены в связи с тем что ты пытаешься сделать примерно следующее:
a[i]{1 символ}='ххххххх'{7 символов}
a[i][i+1][i+2].... вызывает конфликт в обозначениях потому как так обозначается элемент k-мерного массива, и компилятор не может это обработать потому как он пытается найти ячейку к-мерного массива но переменная в программе записана как строка(одномерный массив символов)

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

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
procedure TForm1.Button1Click(Sender: TObject);//процедура декодирования текста
var//список переменных далее
s,a,b:string;//переменные типа строка, строка это масив символов
sa,i: integer;//целые числа
begin//начинаем работу
a:=memo1.text;//считываем в строковую переменную текст из мемо
b:='';//обнуляем строку в которую будем записывать расшифрованую информацию
sa:=1;//это счетчик который будет указывать на начало расшифровываемого кусочка [B]строки[/B]
for i := 1 to length(a)div 7 do//тут мы уже сократили наш цикл в 7 раз, как и просилось в первоначальной задаче
   begin//цикл начинается
   s:=copy(a,sa,sa+7);{копируем кусочек строки из 7 символов который мы будем расшифровывать в строковую переменную, где a - наш текст, sa - позиция в строке с которой мы начинаем копирование текста, sa+7 конечная позиция копируемого кусочка, при первом заходе в цикл мы получим примерно следующее s:=copy(НАШ Текст,1,7), и s будет выглядеть примерно так 'ХХХХХХХ')}
   if s='0000001' then b:=b+'а';//тут мы выполняем расшифровк, дальше ты вписываешь свои условия для каждого символа
   sa:=7*i+1;//сдвигаем указатель начала нового кусочка текста на 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;

@Nutserus · 06.09.2012, 22:33

Ev1l, Уже хорошо, осталось прочитать как пользоваться функцией copy.
А вообще мне кажется Саша тролит нас, потому что таким тупым быть невозможно.

@Ev1l · 06.09.2012, 22:38

да, конечно же не последний символ а кол-во символов, пойду ка я спать а то еще чего напишу

12 строка должна быть такая
s:=copy(a,sa,7);{копируем кусочек строки из 7 символов который мы будем расшифровывать в строковую переменную, где a - наш текст, sa - позиция в строке с которой мы начинаем копирование текста, 7 количество символов копируемого кусочка, при первом заходе в цикл мы получим примерно следующее s:=copy(НАШ Текст,1,7), и s будет выглядеть примерно так 'ХХХХХХХ')}

@Arcor · 06.09.2012, 22:51

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

А вообще мне кажется Саша тролит нас, потому что таким тупым быть невозможно.

Не по теме:

возможно.. ты посмотри годов ему сколько... хотя если бы мне показали в 14 лет комп.. я бы в нем не быстро, но разобрался бы :)))) я комп в первый раз увидел в глаза в 17 лет :( в 20 уже начал программировать.. хотя даже раньше.. но программированием это назвать трудно :D

@саша40 · 07.09.2012, 12:32 **[ТС]**

Пока мы болтали у меня была уже ночь и я сидел тут перед сном и мне пришла в голову такая идея:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
a, b: string;
i, c: integer;
begin
a:=memo2.Text; 
if a='' then
ShowMessage('Введите текст шифрования') 
else  
begin
memo2.Text:=''; 
b:=''; 
c:=1; 
for i:=1 TO length(a) div 7 DO
begin
if a[c][c+1][c+2][c+3][c+4][c+5][c+6]='нолики и единички' then b:=b+'буква или цыфра'; //условие
//если это не правильно тогда у a будут одни квадратные скопки
...//условия шифрования
c:=c+7; //увеличиваем переменую для того, чтобы оно пирикидывалось на первый символ другой буквы
end;
memo1.Text:=b; //выводим переменую
end;
end;

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

murderer · 07.09.2012, 13:02

Используй CompareMem

c:=c+7;

Наконец-то дошло. Теперь замени for на while или repeat - переменная i не нужна.

@саша40 · 07.09.2012, 13:44 **[ТС]**

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

Используй CompareMem

Наконец-то дошло. Теперь замени for на while или repeat - переменная i не нужна.

цыкл менять бесполезно, мне нужно написать как-то этот массив

Добавлено через 1 минуту

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

уже писалось сверху что это 7ми мерный массив.... т.е.Код Delphi
1 var Massiv: Array of Array of Array of Array of Array of Array of Array of String;
заполнять его примерно так.. я бы не желал этого делать......
Код Delphi
1 Mаssiv[0][0][0][0][0][0][0] := 'Тра-ля-ля';

а это подойдет для нового кода?

murderer · 07.09.2012, 14:24

Delphi
1
2
if CompareMem(@a[c],PChar('нолики и единички'),7) then
  b:=b+'буква или цыфра';

@саша40 · 07.09.2012, 14:25 **[ТС]**

здесь зависит от того как посмотреть. Вроде осталось одно-надо, чтобы все 7 цыфр брались при расшифровке и превращались в зависимости от раскадировки в буквы или цыфры, но тут ещё не всё. Надо чтобы уже брались следующие 7 цыфр( от восьмого до 14) как это ваще реализовать?

Добавлено через 35 секунд

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

Delphi
1
2
if CompareMem(@a[c],PChar('нолики и единички'),7) then
  b:=b+'буква или цыфра';

и где это примненять?

@саша40 · 07.09.2012, 21:06 **[ТС]**

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

Delphi
1
2
if CompareMem(@a[c],PChar('нолики и единички'),7) then
  b:=b+'буква или цыфра';

это чтоли функция, которая приобразует одну строку в другую?

Добавлено через 6 часов 37 минут

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

Код Delphi
1
2 if CompareMem(@a[c],PChar('нолики и единички'),7) then
b:=b+'буква или цыфра';

ладно попробую её в цыкле

@Arcor · 07.09.2012, 23:21

Не по теме:

цЫфра пишется через букву И !!!!!!!!как читаю, аж на стуле подпрыгиваю, от таких ошибок.......

@hacker_007 · 08.09.2012, 12:10

Решили вопрос то? Что он сделать хочет вообще....

Не по теме:

Всё-таки я дочитал до конца эту тему XD

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	06.09.2012, 21:05
	Попробуй фигурные, они симпатичнее. 0

@Arcor
	06.09.2012, 21:22
	Не по теме: санек.... дам совет... если ты пишешь такую программу которая запутанная.... раздели ее на части, если нужно циклически что-то найти еще в паре циклов... напиши это нахождение в отдельной функции.... и вот таким образом ты избавишь себя и других от страданий.... потом другую часть в функцию взять, и вот так по кусочкам... и потом получится программа работающая... а вот как я прочел эти 5 страниц... вникать трудно в написанное.......... что ты там сравниваешь с текстом.... этот текст вынеси вообще в файл.. чтобы он не загромождал тебе место .. чтобы ты видел весь код от начала и до конца.. я знаю что если мышкой скролить вниз по коду... от того что он не влазит в моник, код одной функции имею ввиду, теряется обзор... нужно снова скролить вверх и смотреть что там написано сверху..... после этого теряется не только обзор, но и логика.. что потом сидишь и не знаешь как снова начать 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	06.09.2012, 22:33
	Ev1l, Уже хорошо, осталось прочитать как пользоваться функцией copy. А вообще мне кажется Саша тролит нас, потому что таким тупым быть невозможно. 1

@Ev1l 134 / 133 / 22 Регистрация: 29.08.2012 Сообщений: 353
	06.09.2012, 22:38
	да, конечно же не последний символ а кол-во символов, пойду ка я спать а то еще чего напишу 12 строка должна быть такая s:=copy(a,sa,7);{копируем кусочек строки из 7 символов который мы будем расшифровывать в строковую переменную, где a - наш текст, sa - позиция в строке с которой мы начинаем копирование текста, 7 количество символов копируемого кусочка, при первом заходе в цикл мы получим примерно следующее s:=copy(НАШ Текст,1,7), и s будет выглядеть примерно так 'ХХХХХХХ')} 0

@Arcor
	07.09.2012, 23:21
	Не по теме: цЫфра пишется через букву И !!!!!!!!как читаю, аж на стуле подпрыгиваю, от таких ошибок....... 0

@hacker_007 191 / 29 / 8 Регистрация: 15.09.2011 Сообщений: 430
	08.09.2012, 12:10
	Решили вопрос то? Что он сделать хочет вообще.... Не по теме: Всё-таки я дочитал до конца эту тему XD 0