Разборка

@Nehemian · Регистрация: 27.12.2009

Студворк — интернет-сервис помощи студентам

Люди, покажите как это делается: У нас есть edit в который мы вводим какое-то выражение типа 1 and 0, 0 or 0(можно без пробелов). Нужно что бы он выдавал то что получиться. Помогите...

@Vas-e-na · 29.06.2010, 20:07

Nehemian, тут нужно писать лексический (+ синтаксический) анализатор, а это довольно трудоёмкая задача. Так просто текст в действие не преобразовать...

@Хохол · 29.06.2010, 20:15

Ну, если выражение всегда вида
a <operator> b, то особой сложности нет.

@Nehemian · 29.06.2010, 21:12 **[ТС]**

Ды я понял что работы много

И я как бы не против, я рублю во всяких таблицах матрицах и других действиях с переменными, но вот что бы вот это самому сделать - я это не могу, но хочу разобраться, поэтому и написал, может кто что подскажет

@Хохол · 29.06.2010, 21:14

Вы поконкретнее-то скажите что хотите, два операнда у вас, или сколько угодно, возможны ли скобки всякие итп, тогда поможем.

@Nehemian · 29.06.2010, 21:19 **[ТС]**

Ну для начало просто
типа: 0 and 1
1 or 0
сначала так покажите

@Хохол · 29.06.2010, 21:30

Delphi

{$apptype console}
 
uses sysutils;
 
function compute(s:string):boolean; // ïðåäïîëàãàåòñÿ, ÷òî ñòðîêà êîððåêòíà
var a,b:boolean;                    // è âîçìîæíû ëèøü îïåðàöèè and è or
begin
s := trim(s);
a := s[1] = '1';
b := s[length(s)] = '1';
s := trim(copy(s,2,length(s)-2));
if s = 'and' then
  result := a and b
else
  result := a or b;
 
end;
 
var
s:string;
 
begin
readln(s);
writeln(compute(s));
readln;
end.

@Nehemian · 30.06.2010, 14:03 **[ТС]**

Таааааак, ничего не понял. Начнем с начала. Не понятны 8,9,10 строчки.
Или ты начинаешь сразу считывать со второго знака ???

@Vas-e-na · 30.06.2010, 15:14

Delphi

1	s[1] = '1'

это логическое выражение возвращает либо true либо false
(примерно как в if: if s[1] = '1' then... но такую конструкция можно здесь не использовать)

Delphi

a :=

операция присвоения

Delphi

1	var a,b:boolean;

а и b то булевские переменные!

т.е. в итоге выражение:

Delphi

1	a := s[1] = '1';

равноценно:

Delphi

1	if s[1] = '1' then a:=true else a:=false;

@Nehemian 15 / 15 / 4 Регистрация: 27.12.2009 Сообщений: 93
		1
	Разборка 29.06.2010, 18:10. Показов 1517. Ответов 8 Метки нет (Все метки) Люди, покажите как это делается: У нас есть edit в который мы вводим какое-то выражение типа 1 and 0, 0 or 0(можно без пробелов). Нужно что бы он выдавал то что получиться. Помогите... 0

@Vas-e-na 420 / 417 / 79 Регистрация: 21.06.2010 Сообщений: 1,362
	29.06.2010, 20:07	2
	Nehemian, тут нужно писать лексический (+ синтаксический) анализатор, а это довольно трудоёмкая задача. Так просто текст в действие не преобразовать... 0

@Хохол 476 / 444 / 34 Регистрация: 20.11.2009 Сообщений: 1,293
	29.06.2010, 20:15	3
	Ну, если выражение всегда вида a <operator> b, то особой сложности нет. 0

@Nehemian 15 / 15 / 4 Регистрация: 27.12.2009 Сообщений: 93
	29.06.2010, 21:12 [ТС]	4
	Ды я понял что работы много И я как бы не против, я рублю во всяких таблицах матрицах и других действиях с переменными, но вот что бы вот это самому сделать - я это не могу, но хочу разобраться, поэтому и написал, может кто что подскажет 0

@Хохол 476 / 444 / 34 Регистрация: 20.11.2009 Сообщений: 1,293
	29.06.2010, 21:14	5
	Вы поконкретнее-то скажите что хотите, два операнда у вас, или сколько угодно, возможны ли скобки всякие итп, тогда поможем. 0

@Nehemian 15 / 15 / 4 Регистрация: 27.12.2009 Сообщений: 93
	29.06.2010, 21:19 [ТС]	6
	Ну для начало просто типа: 0 and 1 1 or 0 сначала так покажите 0

@Nehemian 15 / 15 / 4 Регистрация: 27.12.2009 Сообщений: 93
	30.06.2010, 14:03 [ТС]	8
	Таааааак, ничего не понял. Начнем с начала. Не понятны 8,9,10 строчки. Или ты начинаешь сразу считывать со второго знака ??? 0

Опции темы