вот условие:
Используя очередь и стек из входного текстового файла F проанализировать текст
сбалансированный по скобкам
<Текст>::=<пусто> |
<элемент><текст>
<элемент>::=<буква> |
(<текст>)
Напечатать упорядоченные пары номеров открывающих скобок.
в общем вот пример входного файла a(b©)
объясните или сделайте пожалуйста мне эту задачу,очень срочно надо
Полная версия: БНФ
вот правильный пример входного файла a(b (с) ),выше был неправильный
у меня есть решение на Делфях,а как эту задачу сделать на Турбо Паскале?
файл читается без очереди. А из Мемо. но нужно чтобы обязательно была очередь
Есть входной файл :
123456789(1234(6789(123456789)sdfs)df)
Результатом будет :
10-15
файл читается без очереди. А из Мемо. но нужно чтобы обязательно была очередь
Есть входной файл :
123456789(1234(6789(123456789)sdfs)df)
Код
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
OpenDialog1: TOpenDialog;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
i,y:integer;
stek:Integer; //Для стека достаточно одного символа
str:string;
begin
IF openDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
stek:=-1;
For i:= 0 to MEmo1.Lines.Count-1 do
For y:= 1 to Length(Memo1.Lines[i]) do
Begin
str:=Memo1.Lines[i];
If ( str[y]='(' ) then
if ( stek<0 ) then
Begin
Stek:=y;
end
else
Begin
Label1.Caption:=Label1.Caption+IntToStr(stek)+'-'+IntToStr(y)+' ';
Stek:=-1;
end;
End;
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
OpenDialog1: TOpenDialog;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
i,y:integer;
stek:Integer; //Для стека достаточно одного символа
str:string;
begin
IF openDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
stek:=-1;
For i:= 0 to MEmo1.Lines.Count-1 do
For y:= 1 to Length(Memo1.Lines[i]) do
Begin
str:=Memo1.Lines[i];
If ( str[y]='(' ) then
if ( stek<0 ) then
Begin
Stek:=y;
end
else
Begin
Label1.Caption:=Label1.Caption+IntToStr(stek)+'-'+IntToStr(y)+' ';
Stek:=-1;
end;
End;
end;
end.
Результатом будет :
10-15
в общем я уже голову себе сломал с этими Дельфями,помогите пожалуйста...пост выше мой
вот ещё есть на Паскале решение,но мне надо на Турбовом решить
Код
procedure TForm1.Button1Click(Sender: TObject);
var
i,y:integer;
stek:Integer; //Для стека достаточно одного символа
str:string;
begin
IF openDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
stek:=-1;
For i:= 0 to MEmo1.Lines.Count-1 do
For y:= 1 to Length(Memo1.Lines[i]) do
Begin
str:=Memo1.Lines[i];
If ( str[y]='(' ) then
if ( stek<0 ) then
Begin
Stek:=y;
end
else
Begin
Label1.Caption:=Label1.Caption+IntToStr(stek)+'-'+IntToStr(y)+' ';
Stek:=-1;
end;
End;
end;
end.
var
i,y:integer;
stek:Integer; //Для стека достаточно одного символа
str:string;
begin
IF openDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
stek:=-1;
For i:= 0 to MEmo1.Lines.Count-1 do
For y:= 1 to Length(Memo1.Lines[i]) do
Begin
str:=Memo1.Lines[i];
If ( str[y]='(' ) then
if ( stek<0 ) then
Begin
Stek:=y;
end
else
Begin
Label1.Caption:=Label1.Caption+IntToStr(stek)+'-'+IntToStr(y)+' ';
Stek:=-1;
end;
End;
end;
end.
Ну, так в чем дело? Есть ведь алгоритм, ну и реализуй его на Турбо-Паскале:
Вместо того, чтобы работать напрямую со строкой, можешь загнать ее в очередь, и работать с очередью символов, если это тебе нужно... Алгоритмы и исходники работы с очередями - в FAQ (или поиск)... В общем, смотри мою подпись
function intToStr(x: integer): string;
var s: string;
begin
str(x, s);
intToStr := s;
end;
var
y:integer;
stek:Integer;
caption, str:string;
f: text;
begin
assign(f, '_t_.txt');
reset(f);
stek := -1;
while not eof(f) do begin
readln(f, str);
for y := 1 to length(str) do begin
if str[y] = '(' then
if stek < 0 then begin
stek := y;
end
else begin
Caption := Caption + IntToStr(stek)+'-'+IntToStr(y)+' ';
writeln(caption);
Stek := -1;
end;
end;
end;
close(f);
end.
Вместо того, чтобы работать напрямую со строкой, можешь загнать ее в очередь, и работать с очередью символов, если это тебе нужно... Алгоритмы и исходники работы с очередями - в FAQ (или поиск)... В общем, смотри мою подпись
спасибо за совет,но кто-нибудь может мне здесь помочь с реализацией на Турбо Паскаль этого алгоритма?
Ты по-русски не понимаешь? Сказано, все это есть в FAQ-е...
FAQ: Стеки
FAQ: Очереди
В Поиске посмотри... Ты думаешь, только тебе это нужно сделать? Или тебе самому думать "в лом", хочется получить все готовое? Тогда ты ошибся...
FAQ: Стеки
FAQ: Очереди
В Поиске посмотри... Ты думаешь, только тебе это нужно сделать? Или тебе самому думать "в лом", хочется получить все готовое? Тогда ты ошибся...
да ладно постараюсь сам
Продолжай изобретать колесо (даже НЕ велосипед, именно колесо !!!) и лезть в окно, когда дверь - то открыта. Я же тебе и адреса дал, что, ВСЁ надо сделать и выложить на блюдечке? Этого не будет...
Закрыто
Продолжай изобретать колесо (даже НЕ велосипед, именно колесо !!!) и лезть в окно, когда дверь - то открыта. Я же тебе и адреса дал, что, ВСЁ надо сделать и выложить на блюдечке? Этого не будет...
Закрыто
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.