IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Удаление недостижимых и бесплодных символов!
сообщение
Сообщение #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>..

М
Просьба не нарушать Правила Форума

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: Егор

Репутация: -  0  +


не актуально уже. сделал сам. Спасибо всем за помощь!! =)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 8.08.2022 14:36
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name