|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2010, 18:57 | #1 |
Регистрация: 30.05.2010
Сообщений: 6
|
Как объяснить прогу
Народ помогите мне) У меня есть прога в которой я не очень разбераюсь. Мне нужно что бы объясняя преподу программу он удостоверился что писал её я) Помогите мне подобрать объяснения к ней. Что и к чему там делается?.. Буду благодарен за объяснения
program Skobka; Var s:array[1..100000] of byte; i,top,ci:integer; st:string; b:boolean; Function trans(c:char):byte; begin case c of '(' : trans:=0; '[' : trans:=1; '{' : trans:=2; ')' : trans:=3; ']' : trans:=4; '}' : trans:=5; else trans:=6; end; end; Function StackEmpty:boolean; begin if(top=0) then stackempty:=true else stackempty:=false; end; Function Pop:integer; begin dec(top); pop:=s[top+1]; end; Procedure Push(x:integer); begin inc(top); S[top]:=x; end; begin writeln('Введите предложение'); readln(st); b:=true; for i:=1 to length(st) do begin ci:=trans(st[i]); if (ci<>6) then begin if(ci<3) then push(ci) else if(ci-3<>pop) then begin b:=false; writeln ('НЕ верная скобочная последовательность'); break; end; end; end; if b then if(not StackEmpty) then writeln('НЕ верная скобочная последовательность') else writeln('Верная скобочная последовательность'); readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Объяснить как установить Indy 10.5.5 | zver777 | Фриланс | 4 | 15.01.2010 19:10 |
Помогите, не могу понять, как объяснить программе, что именно я от нее хочу | Dead Romantic | Общие вопросы C/C++ | 4 | 03.12.2009 21:51 |
Delphi. Объяснить прогу. | Bomber | Помощь студентам | 0 | 02.06.2008 19:59 |
помогите объяснить прогу... | faster | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 12.05.2008 19:37 |
Как мне объяснить эти задачи препадователю? | trunx | Microsoft Office Excel | 10 | 30.11.2007 00:54 |