Удаление недостижимых и бесплодных символов! |
Начальные контакты ТОЛЬКО через личку!!
Удаление недостижимых и бесплодных символов! |
Egor Vladimirovich |
13.11.2008 21:31
Сообщение
#1
|
|||
Новичок Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Егор Репутация: 0 |
Требуется написать программу Удаление недостижимых и бесплодных символов в алфавите!!
Алгоритмы и примеры алфавита данны. Хотел сам сделать,но увы не понимаю... Код program Project1; {$APPTYPE CONSOLE} uses SysUtils; Type Trule= record Left:char; Right:string; end; Trules=array of Trule; Talphavet=array of char; Tgramatica=Record Vt,Vn:Talphavet; P:Trules; S:char; end; var i,k:integer; myling:Tgramatica; myling2:Tgramatica; v:array of char; begin with myling do begin vt[1]:='a'; vt[2]:='b'; vt[3]:='c'; vt[4]:='d'; vt[5]:='e'; vt[6]:='f'; vn[1]:='A'; vn[2]:='B'; vn[3]:='C'; vn[4]:='D'; vn[5]:='E'; vn[6]:='F'; vn[7]:='S'; p[1].left:='S'; p[1].Right:='b'; p[2].left:='S'; p[2].Right:='C'; p[3].left:='S'; p[3].Right:='cCB'; p[4].left:='A'; p[4].Right:='e'; p[5].left:='A'; p[5].Right:='Ab'; p[6].left:='B'; p[6].Right:='Bb'; p[7].left:='B'; p[7].Right:='cB'; p[8].left:='C'; p[8].Right:='Ca'; p[9].left:='C'; p[9].Right:='Bf'; p[10].left:='C'; p[10].Right:='d'; end; with myling2 do begin vt[1]:='a'; vt[2]:='b'; vt[3]:='c'; vt[4]:='d'; vt[5]:='e'; vt[6]:='f'; vn[1]:='A'; vn[2]:='B'; vn[3]:='C'; vn[4]:='D'; vn[5]:='E'; vn[6]:='F'; vn[7]:='S'; p[1].left:='S'; p[1].Right:='aABC'; p[2].left:='S'; p[2].Right:='aE'; p[3].left:='A'; p[3].Right:='SCD'; p[4].left:='A'; p[4].Right:='c'; p[5].left:='B'; p[5].Right:='bFD'; p[6].left:='C'; p[6].Right:='aE'; p[7].left:='D'; p[7].Right:='aD'; end; readln; end. Добавлено через 2 мин. Пишите мне в асю <Номер вырезан. Основание: Правила, п.1.12>..
|
|||
Egor Vladimirovich |
25.11.2008 11:44
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Егор Репутация: 0 |
не актуально уже. сделал сам. Спасибо всем за помощь!! =)
|
Текстовая версия | 28.03.2024 17:10 |