2015-02-27
549
| Список пуст? | ||
| Список атом? | ||
| VAL=p^.атом | x=VAL(Голова(p)) | |
| оп=Голова(p)^.атом | ||
| y=VAL(Голова(p)) | ||
| если оп=+ VAL=x+y | ||
| если оп=- VAL=x-y | ||
| если оп=* VAL=x*y | ||
| если оп=/ VAL=x/y |
Разъяснения:
Вот «правильный» линейный список
x=VAL(Голова(p)). Вот результат применения функции Голова:
оп=Голова(p)^.атом. Вот результат второго применения функции Голова:
y=VAL(Голова(p)). Вот результат третьего применения функции Голова:
Задача
Имеется правильное выражение в виде строки. Построить линейный список для этого выражения.
pElem=^Elem;
Elem=record
след:pElem;
case R:0..1 of
0: (уров:pElem);
1: (атом:T)
end;
Выражение вводится с клавиатуры.
procedure LS (var p:pElem);
var c:char;
begin
if not eoln
begin
read(c);
case c of
‘(‘: begin
new(p); p^.R:=0; LS(p^.уров); LS(p^.след);
end;
‘a’..’z’,’+’,’-‘,’*’,’/’: begin
new(p); p^.R:=1; p^.атом:=с; LS(p^.след);
end;
‘)’: p:=nil;
end;
end
else p:=nil;
end;
Задачи
1) Написать алгоритм вычисления значения арифметического выражения, используя операцию "расчленение".
2) Имеется линейный список для "правильного" арифметического выражения. Построить линейный список для обратной польской записи этого выражения.
|
|
|
3) Построить алгоритм обхода элементов линейного списка (восстановить строку символов с учетом вложенности).
