Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
 Аватар для degrat
0 / 0 / 2
Регистрация: 23.06.2011
Сообщений: 29

Сделать в этой программе, чтобы вместо constructor где он есть была procedure

04.12.2011, 17:32. Показов 916. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста сделать в этой программе, чтобы вместо constructor где он есть была procedure

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
143
144
145
146
147
148
149
150
program qqgg;
const l=5;  {длина строки}
nmax=100; {максимальный размер массива строк}
 
type hhh=string[l]; {строка фиксированной длины l}
     mass=array[1..nmax] of hhh;
          list=class
                 a:mass; {сам массив}
                 len:integer; {текущий размер}
                 error:boolean; {флаг ошибки при последнем запуске}
 
                 constructor new;
                 function resultat(i:integer):boolean;
                 procedure dobavl(s:hhh);
                 constructor sceplenue(l1,l2:List);
                 function poly4enue(i:integer):hhh;
                 procedure vkl(l:List);
                 procedure print(i:integer);
                 procedure printlist;
            end;
 
{создание пустого массива}
constructor list.new;
var i:integer;
begin
     len:=0;
     for i:=1 to nmax do
         a[i]:='';
     error:=false;
end;
 
{контроль выхода за пределы индексоврезультат подаётся и в выход функции
 и в переменную}
function list.resultat(i:integer):boolean;
begin
     if (i<=len) and (i<=nmax)
     then begin
          result:=true;
          error:=false;
     end
     else begin
          result:=false;
          error:=true;
     end;
end;
 
{добавление нового элемента}
procedure list.dobavl(s:hhh);
begin
     inc(len); {размер len увеличивается и проверяется}
     if resultat(len)
     then a[len]:=s
     else dec(len); {если нельзя уменьшается обратно}
end;
 
{Второй конструктор: создание нового массива поэлементным
 сцеплением двух существующих массива}
constructor list.sceplenue(l1,l2:List);
var i:integer;
begin
     i:=1;
     while l1.resultat(i) or l2.resultat(i) do {проверяется i в обоих массивах}
     begin
          {из того массива, где не получено ошибки, берётся элемент}
          if not l1.error then dobavl(l1.poly4enue(i));
          if not l2.error then dobavl(l2.poly4enue(i));
          inc(i)
     end;
end;
 
{Получение элемента}
function list.poly4enue(i:integer):hhh;
begin
     if resultat(i)
     then poly4enue:=a[i]
     else poly4enue:='';
end;
 
{Включение другого массива с проверкой повторяющихся элементов}
procedure list.vkl(l:List);
var i,j:integer;
    s:hhh;
begin
     i:=1;
     while l.resultat(i) do {проверяется очередной индекс другого массива}
     begin
          s:=l.poly4enue(i); {берётся элемент из другого массива}
          {поиск взятого элемента в своём массиве}
          j:=1;
          while resultat(j) and (s<>poly4enue(j)) do
                inc(j);
          {если выход из цикла произошёл по превышению индекса в другом
           массиве, значит совпадения не найдено и элемент s можно добавлять}
          if error then dobavl(s);
          inc(i);
     end;
end;
 
{вывод элемента}
procedure list.print(i:integer);
var s:hhh;
begin
     s:=poly4enue(i);
     if error
     then write('Ошибка: неправельный индекс')
     else write(s);
end;
 
{вывод всего массива}
procedure list.printlist;
var i:integer;
begin
     for i:=1 to len do
     begin
          print(i);
          writeln;
     end;
end;
 
var list1,list2,list3,list4:List;
 
begin
     list1:=list.new;
     list1.dobavl('11111');
     list1.dobavl('22222');
     writeln('Список 1: ');
     list1.printlist;
 
     list2:=list.new;
     list2.dobavl('33333');
     list2.dobavl('44444');
     writeln('Список 2: ');
     list2.printlist;
 
     writeln('Список 3 = Список 1 + Список 2: ');
     list3:=list.sceplenue(list1,list2);
     list3.printlist;
 
     list4:=list.new;
     list4.dobavl('55555');
     list4.dobavl('66666');
     writeln('Список 4: ');
     list4.printlist;
 
     list3.vkl(list4);
     writeln('Включение Списка 4 в Список 3: ');
     list3.printlist;
 
     read;
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.12.2011, 17:32
Ответы с готовыми решениями:

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

как сделать чтобы в этой программе выводился один столбец?
uses GraphABC; type TextStamp = class x,y,pt: integer; Text: string; constructor (xx,yy,ppt: integer; t:...

Сделать так, чтобы атомы в этой программе перемешивались в определённом процентном соотношении?
Доброе утро! Как сделать так, чтобы атомы в этой программе перемешивались в определённом процентном соотношении? import re,...

3
 Аватар для degrat
0 / 0 / 2
Регистрация: 23.06.2011
Сообщений: 29
13.12.2011, 17:02  [ТС]
помогите!
0
 Аватар для degrat
0 / 0 / 2
Регистрация: 23.06.2011
Сообщений: 29
21.12.2011, 01:57  [ТС]
Можете сделать ее в TurboPascal, чтобы она там работала хорошо.
Если надо могу заплатить небольшую сумму.

Вот само задание:
Составить описание класса для определения одномерного массива строк фиксированной длины. Предусмотреть возможность обращения к отдельным строкам массива по индексам, контроль выхода за пределы индексов выполнение операции поэлементно сцепления двух массивов с образованием нового массива.
0
 Аватар для degrat
0 / 0 / 2
Регистрация: 23.06.2011
Сообщений: 29
28.12.2011, 16:44  [ТС]
Перенесите тему в TurboPascal
Пожалуйста помогите сделать, а то после нового года сдавать надо, если не сдам отчислят..
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
28.12.2011, 16:44
Помогаю со студенческими работами здесь

подскажите уменя есть доска обьявлений хочу сделать чтобы была на подобии сланды
подскажите уменя есть доска обьявлений http://allo.co.ua/ хочу сделать чтобы была на подобии сланды посветуйте какой движок подойдет...

Как сделать так, чтобы вместо my_mail@mail.ru была подпись например просто MY_MAIL?
При отправке письма mail (&quot;you_mail@mail.ru&quot;,&quot;tema&quot;,&quot;body&quot;) Письмо приходит на ящик в следущем виде: my_mail@mail.ru tema ...

Есть ли способ сделать так, чтобы таблица была статической на форме, а содержание было динамическим?
Привет всем. Можно ли сделать так, чтобы таблица была статической на форме делфи, а содержание было динамическим? Например: Есть кнопка...

Как сделать чтобы, заполненное поле Memo1, HTML тегами, отображалось в компоненте CppWebBrowser1 в этой же программе?
Как сделать чтобы, заполненное поле Memo1, HTML тегами, отображалось в компоненте CppWebBrowser1 в этой же программе?

ЦветаУ меня есть массив ,как сделать чтобы например Вишенка была красным цветом, Виноград синим, Яблоко зелёным
У меня есть массив A: array of string = ('Вишенка', 'Виноград', 'Яблоко', 'BAR', 'Арбуз'); как сделать чтобы например Вишенка была...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru