Ускова О.Ф., Горбенко О.Д. Олимпиадные задачи по программированию. Лучшие решения. Часть 5
Подождите немного. Документ загружается.
З А Д А Н И Я 1 Т У Р А
Секция программирования и информационного моделирования
З а д а ч а
( общая для всех номинаций)
Пассажир пришел на автобусную остановку в 8:00 и , находясь на ней до
8:59, записывал время прибытия каждого автобуса . На каждом маршруте
автобусы движутся с равномерным интервалом (то есть прибывают на
остановку через одинаковые промежутки времени ). Известно также , что в
указанный отрезок времени к остановке подъезжали по крайней мере два
автобуса каждого маршрута .
Требуется по записям , сделанным пассажиром на остановке , определить
наименьшее количество автобусных маршрутов, проходящих через эту
остановку , и график движения автобусов по этим маршрутам .
Технические требования
Количество маршрутов <= 17.
Входные данные располагаются в текстовом файле Input.txt, который
содержит в первой строке число n<=300 (количество прибывших автобусов),
во второй строке содержится последовательность целых чисел - время
прибытия автобусов на остановку , задаваемое в минутах целыми числами от
0 до 59.
Выходные данные помещаются в текстовый файл Output.txt, каждая строка
которого должна содержать данные для одного маршрута : время прибытия
первого автобуса и интервал движения, заданный в минутах. Порядок
расположения маршрутов не важен. Если возможно несколько решений,
достаточно получить только один из вариантов.
Задачи по номинациям
Номинация «Физкультура и спорт»
«Эстафета»
В лыжной эстафете 4 по 10 км участвуют N команд. В судейскую коллегию
поступает информация о том , за какое время каким участником пройден
очередной этап эстафеты .
а) Расположить участников каждой отдельной команды по возрастанию
результатов эстафеты , т.е . первой в команде должна стоять фамилия
участника, показавшего наименьшее время прохождения этапа 10 км среди
p1.lengS2 := length(p1.s2);
p2.lengS1 := length(p2.s1);
p2.lengS2 := length(p2.s2);
end;
function DefineCross(var p : TPair) : boolean;
//Нахождение пересечения, если возможно
var
i, g : integer;
begin
i := 1;
g := 1;
while (i <= p.lengS1) and (p.s1[i] <> p.s2[g]) do
begin
g := 1;
while (g <= p.lengS2) and (p.s1[i] <> p.s2[g]) do
inc(g);
if g > p.lengS2 then
inc(i);
end;
Result := (i <= p.lengS1)and(g <= p.lengS2);
if Result then
begin
p.posS1 := i;
p.posS2 := g;
end;
end;
function Max(a, b : integer): integer;
begin
result := a;
if b > a then
result := b;
end;
procedure AddSpace(var s1, s2 : TString; n1, n2 :
integer);
var
i : integer;
begin
for i := 1 to n1 do
s1 := ' ' + s1;
for i := 1 to n2 do
s2 := s2 + ' ';
end;
21
60
других членов команды , последней -
фамилия участника с наибольшим
временем прохождения этапа.
б) Определить победителя в индивидуальном первенстве среди всех
участников эстафеты .
в) Определить команду-победительницу , набравшую наименьшее суммарное
время
Номинация «Искусство»
"Конкурс пианистов"
В конкурсе пианистов выступления участников оценивает жюри , в состав
которого входят шесть музыкантов. Максимальная оценка, которую может
выставить каждый член жюри , 10 баллов, минимальная – ноль. Требуется
разработать алгоритм (программу) для
-
построения линейной таблицы , содержащей фамилии и инициалы
участников, и прямоугольной таблицы , содержащей оценки каждого члена
жюри ;
- определения фамилии участника – победителя конкурса ;
- номер самого строгого члена жюри .
Номинация «Первокурсники»
"Предметы ".
Требуется распределить N предметов (N<15), масса каждого из
которых известна, в два рюкзака так, чтобы наполненные рюкзаки
минимально отличались друг от друга по весу .
Технические требования
Входные данные берутся из текстового файла Input.txt. В его первой строке
находится число N, вторая строка содержит последовательность чисел,
задающих вес предметов по порядку их номеров.
Результат выводится на экран в виде двух строк, каждая из которых
содержит последовательность номеров предметов, помещаемых в рюкзак, и
его вес.
Номинация «Информатика , как общеобразовательная дисциплина»
"Морской бой"
Требуется смоделировать поле для игры в «морской бой» и подсчитать
TPair = record
s1, s2 : TString;
lengS1, lengS2 : integer;
posS1, posS2 : integer;
end;
var
Pair1, Pair2 : TPair;
IFile, OFile : text;
s : TString;
procedure Init;
begin
assign(IFile, InFile);
assign(OFile, OutFile);
reset(IFile);
rewrite(OFile);
end;
function IndicateString(var s : string; var pos :
integer): TString;
//Выделение слова из строки
begin
while s[pos] = ' ' do
inc(pos);
Result := '';
while s[pos] <> ' ' do
begin
Result := Result + s[pos];
inc(pos);
end;
end;
procedure IndicatePairs(var s : TString;var p1, p2 :
TPair);
//Создание и инициация пар слов
var
pos : integer;
begin
pos := 1;
p1.s1 := IndicateString(s, pos);
p1.s2 := IndicateString(s, pos);
p2.s1 := IndicateString(s, pos);
p2.s2 := IndicateString(s, pos);
p1.lengS1 := length(p1.s1);
22 59
количество одно-, двух-, трех- и четырехпалубных кораблей, расположенных
на нем . Корабли не могут быть «изогнутыми» и друг с другом не
соприкасаются . Поле для игры имеет размер 10х10 клеток.
Технические требования
Входные данные – количество занятых клеток N и набор из N пар целых
чисел (координат клеток) - берутся из текстового файла INPUT.TXT, его
первая строка содержит целое число N, в каждой следующей строке –
координаты занятой клетки .
Результаты – тип кораблей и их количество - выводятся построчно на экран .
Номинация «Информатика как профилирующая дисциплина»
"Лабиринт"
Лабиринт представляет собой набор одинаковых комнат, каждая из
которых может иметь от 1 до 4 дверей в соседние комнаты . Путник, войдя в
лабиринт, долго блуждал по нему, пока не нашел выход . Каждый раз, при
переходе в другую комнату , он делал запись в блокноте , отмечая направление
движения из комнаты в комнату буквами: N – север, E – восток, S – юг, W-
запад .
Требуется по заданному описанию маршрута путника определить самый
короткий путь, состоящий из комнат, в которых путник побывал, и ведущий
из входа в лабиринт к его выходу.
Технические требования
Входные данные берутся из текстового файла Input.txt, в первой строке файла
указывается количество переходов из комнаты в комнату , каждая следующая
строка содержит одну из букв N, E, S, W.
Выходные данные – строка литер – выводится на экран и в текстовый файл
Output.txt.
Номинация «Студенты гуманитарных специальностей»
"А и Б "
Введенный текст представляет собой предложение, в котором встречается
перечисление двух объектов, связанных союзом «и». Требуется поменять
местами слова, соединенные этим союзом . Например, текст «А и Б сидели на
трубе» после преобразования должен иметь вид «Б и А сидели на трубе».
writeln(fo);
end;
end;
var
st : string;
begin
writeln;
assign(fi, 'input.txt');
assign(fo, 'output.txt');
reset(fi); rewrite(fo);
while not eof(fi) do begin
readln(fi, st);
if (st <> '#') then Analyse(st)
else break; {Если найден завершающий символ - завершаем выполнение}
end;
close(fi); close(fo);
end.
Программа № 7
Перекресток из слов
Еще один вариант решения, представленный студентом 2 курса
математического факультета С . Логуновым
program Cross;
{$APPTYPE CONSOLE}
//Logunov S. VSU Math
const
InFile = 'Input.txt';
OutFile = 'Output.txt';
NeVozmozno = 'НЕ ВОЗМОЖНО';
type
TString = string;
23
58
Секция прикладного программного обеспечения
Задание 1
Создать эмблему школы - олимпиады по программированию и
компьютерному моделированию.
Требования:
1) Работа может быть выполнена в любом редакторе .
2) Помимо графических элементов эмблема должна содержать название или
аббревиатуру названия школы -олимпиады.
Задание 2
Создать гипертекстовый документ, содержащий информацию об авторе , его
группе и учебном заведении, в котором учится автор.
Требования:
1) Дизайнерское решение должно включать фото автора, фото группы
(подгруппы), работающей в компьютерном классе и фото здания вуза.
2) Все файлы должны содержаться в одном каталоге . Ссылки должны быть
относительными.
Задание 3
Средствами Excel создать файл, содержащий решение задачи произведения
двух матриц размера 4х4.
Требования:
1) Наличие заголовков.
2) Сохранение формул.
3) Расположение исходных данных и решения на одном экране.
ЗАДАНИЯ ВТОРОГО ТУРА
Секция
«Алгоритмизация и программирование»
Задания 2 тура в номинации "Первокурсники"
Горизонт для архитектора
Введение
С ростом производительности компьютерных систем, их повсеместное
использование уже для нас не в новинку . Одним из применением стало
begin
k := 1;
{Получаем 4 слова из строки начиная с первой буквы }
for i := 1 to 4 do stw[i] := GetWord(st, k);
{Получаем координаты пересечения слов - (i1, j1), (i2, j2)}
b := GetCross(stw[1], stw[2], i1, j1);
b := b and GetCross(stw[3], stw[4], i2, j2);
{Получаем абсолютную координату в выходном файле }
i2 := i2 + length(stw[1])+1;
{Если оба пересечения найдены , то начинаем вывод }
if b then begin
{Помещаем в min и max крайние y-координаты вертикальных слов}
if (j1 >= j2) then min := 1-j1 else min := 1-j2;
if (length(stw[2])-j1) > (length(stw[4])-j2) then max := length(stw[2])-j1 else
max := length(stw[4])-j2;
{В цикле проходим все y-координаты }
for j := min to max do begin
{Если это не главная координата (с горизонтальными словами)}
if (j <> 0) then begin
{То выводим буквы с правильной табуляцией}
for i := 1 to i1-1 do write(fo, ' ');
if (j1+j > 0) and (j1+j <= length(stw[2])) then write(fo, stw[2][j1+j]) else
write(fo, ' ');
for i := i1+1 to i2-1 do write(fo, ' ');
if (j2+j > 0) and (j2+j <= length(stw[4])) then write(fo, stw[4][j2+j]) else
write(fo, ' ');
writeln(fo);
end else
{Иначе выводим горизонтальные слова}
writeln(fo, stw[1]+' '+stw[3]);
end;
writeln(fo);
end else begin
{Если пересечение не найдено - собщаем об этом }
writeln(fo, 'CAN''T');
24
57
использование из в производственном проектировании, начиная
производственными системами , проектированием печатных плат,
проектированием и дизайном архитектурных сооружений и т.д. Одна из
проблем , которая появляется при этом - удаление невидимых линий при
отрисовке изображения на дисплее. Невидимые линии – это линии, которые
скрыты другими частями изображения.
Проблема
Ваша задача помочь городскому архитектору при проектировании городских
построек. Программа, написанная Вами должна правильно рисовать
очертания строений в городе. Для того чтобы проблема была удобной для
решения на компьютере , все здания представляются прямоугольниками ,
имеющими общее основание. Таким образом , весь город представляется
двухмерным из любой точки наблюдения. Каждое здание представлено
тройкой чисел (L
i
, H
i
, R
i
), где L
i
и R
i
левая и правая координата здания
соответственно, а H
i
высота строения. На рисунке ниже здания описываются
следующими данными: (1,11,5), (2,6,7), (3,13,9), (12,7,16), (14,3,25), (19,18,22),
(23,13,29), (24,4,28). Очертания строений будут описываться следующей
последовательностью : (1, 11, 3, 13, 9, 0, 12, 7, 16, 3, 19, 18, 22, 3, 23, 13, 29, 0)
Входные данные
Входные данные представляют собой последовательность троек (L
i
, H
i
, R
i
)
для каждого здания. Все координаты зданий представляют собой целые числа
не большие, чем 10000. Исходные данные содержат информацию как
минимум об одном здании, максимум о 50-ти . Каждая тройка чисел занимает
одну строку исходного файла , все числа разделены одним или несколькими
пробелами. Тройки чисел отсортированы по левой координате по
возрастанию, т.е . информация о зданиях, расположенных левее идет раньше.
Выходные данные
Результатом работы программы должен быть вектор, описывающий
очертание зданий. В этом векторе (V
1
,V
2
,....V
n
), V
i
– с четными i описываются
длины вертикальных линий. V
i
– с нечетными i представляют собой длины
горизонтальных линии. Можно говорить, что этот вектор представляет собой
путь пера по экрану для отрисовки . Последней компонент вектора должен
быть нулем .
Пример исходных данных
1 11 5
{
Функция получения координаты перечения слов
Если функция возвращает true, то координаты пересечения
слов st1 и st2 будут находиться в i0, j0
}
function GetCross(var st1, st2 : string; var i0, j0 : integer) : boolean;
var i, j : integer;
b : boolean;
begin
{Сначала считаем , что пересечение не найдено}
i0 := 0; j0 := 0;
i := 1; b := true;
{Проверяем все возможные варианты }
while b and (i <= length(st1)) do begin
j := 1;
while b and (j <= length(st2)) do begin
if (st1[i] = st2[j]) then begin
{Если вариант нашелся , запоминаем его координаты и сбрасываем
флаг}
b := false;
i0 := i; j0 := j;
end;
inc(j);
end;
inc(i);
end;
GetCross := not b;
end;
var
k, i, j, i1, i2, j1, j2, min, max : integer;
b : boolean; {флаг существования пересечения}
stw : array [1..4] of string; {массив входных слов}
25
56
2 6 7
3 13 9
12 7 16
14 3 25
19 18 22
23 13 29
24 4 28
Пример результата
1 11 3 13 9 0 12 7 16 3 19 18 22 3 23 13 29 0
Множители и факториалы
Факториал числа N (записывается как N
!) определяется как произведение
всех целых числе от 1 до N. Часто он определяется рекурсивно:
1!=1
N!=N*(N-1)!
Факториал растет очень и очень быстро, например 5! = 120, 10! = 3,628,800.
Один из вариантов представления таких больших чисел –
это указание его
разложения на простые множители . Так для числа 825 это ( 0 1 2 0 1), которое
можно расшифровать как: нет в разложении «2», одна «3», две «5», нет «7» и
одно число «11». Напишите программу, которая считывает целое число N ( 2
<= N <= 100 ) и печатает значение факториала в виде разложения на простые
множители .
Входные данные представляют собой число N.
Выходные данные
представляют собой строку , в начале которой
располагается число N и знак «!», знак «=», а далее повторения для каждого
множителя- простого числа .
Пример ввода
5
Пример выходных данных
5! = 3 1 1
Перекресток из слов
Автор решения - студент 3 курса факультета ПММ Выростков Дмитрий ,
победитель школы - олимпиады 2002 года, именной стипендиат
информационной компании «Информсвязь-Черноземье»
var
fi, fo : text; {Входной и выходной файл}
{
Функция выделения слова из строки
st - входная строка
k - позиция, с которой необходимо начать поиск
После выполнения процедуры k смещается вправо на днину слова
}
function GetWord(var st : string; var k : integer) : string;
var
i, ibeg : integer;
begin
if k > length(st) then begin {В случае если слов больше нет выходим}
GetWord := '';
exit;
end;
i := k;
while (st[i] = ' ') do inc(i); {Пропускаем ведущие пробелы }
ibeg := i; {Запоминаем место начала слова}
while (i <= length(st)) and (st[i] <> ' ') do inc(i);
k := i; {Теперь k=i - конец слова}
GetWord := copy(st, ibeg, i-ibeg); {Возвращаем это слово}
end;
{
Процедура анализа строки , построения пересечений слов если возможно
и вывод перекрестков в выходной файл
}
procedure Analyse(var st : string);
26
55
Пример ввода
53
Пример выходных данных
53! = 49 23 12 8 4 4 3 2 2 1 1 1 1 1 1 1
Задания 2 тура в основной номинации
Перекресток из слов
Перекресток из слов образуется парой слов, первое из которых
располагается горизонтально, а второе вертикально, при этом они должны
иметь общую букву . Основным пересечением слов будем считать
пересечение, при котором одна из возможных общих букв в горизонтальном
слове находится , как можно ближе к началу слова и эта же буква наиболее
близко располагается к началу слова, расположенного вертикально. Так слова
ЖИРАФ и ФРАНЦУЗ пересекаются на букве «Р» в каждом слов
е , а слова
БЕГЕМОТ и ПОРТУГАЛЕЦ на букве «Е». Двойное пересечение
подразумевает, что две пары слов размещаются так, что их горизонтальные
слова находятся на одной строке и каждая пара образует основное
пересечение. Необходимо написать программу, которая получает четыре
слова и формирует из них двойное пересечение.
Входные данные
Входные данные представляют собой файл INPUT.TXT, каждая
строка которого содержит 4 слова ( две пары ). Слова представляют собой от
1 до 10 заглавных букв и разделены друг от друга ровно одним пробелом .
Файл заканчивается строкой состоящей из знака «#».
Результат
Результаты работы программы должны быть помещены в файл
OUTPUT.TXT, при этом в файле они должны размещаться двойные
пересечения, так как они были описаны выше. Если пересечение невозможно,
то в файл помещает строка «НЕ ВОЗМОЖНО». Между пересечениями
различных множеств слов необходимо оставлять одну пустую строку в
файле .
Пример входных данных
MATCHES CHEESECAKE PICNIC EXCUSES
PEANUT BANANA VACUUM GREEDY
#
Пример выходных данных
C
H
E
E
структуру первого идентификатора}
p := GetPointVar(s1);
if (p = nil) then begin
{Если такой не существует, то создаем его }
new(p);
p^.name := s1;
p^.defstr := copy(st, k, length(st));
p^.next := pFirst;
pFirst := p;
end else begin
{Иначе просто меняем строку для вычисления}
p^.defstr := copy(st, k, length(st));
end;
end;
end;
end;
var
st : string;
begin
writeln;
assign(fi, 'input.txt');
assign(fo, 'output.txt');
reset(fi); rewrite(fo);
pFirst := nil;
while not eof(fi) do begin
readln(fi, st);
Analyse(st);
end;
close(fi); close(fo);
end.
Программа № 6
27
54
S
E E
C X
MATCHES PICNIC
K U
E S
E
S
НЕ ВОЗМОЖНО
Калькулятор для Пети
К несчастью калькулятор Пети сломался на прошлой неделе . Теперь Петя
не пользуется компьютером , так как там не оказалось приложения
“Калькулятор”, а вернулся к утомительной процедуре подсчета на бумаге .
Вам предлагается помочь Пете и написать ему программу, которая будет
производить простейшие вычисления. После разговора с Петей оказалось , что
ваша программа должно быть такой:
• позволять работать только с целыми числами и только с операциями
«+», «-», «*»;
• уметь использовать произвольное количество переменных, с
именами длиной не больше 50 символов;
• основной вариант использования калькулятора – написание
нескольких формул и присвоение их переменным. Некоторые
формулы достаточно сложные, а другие представляют собой просто
одно число . Потом Петя может спросить о значениях некоторых
переменных;
• можно переопределить некоторые переменные и получить новые
значения по формулам , которые зависят от введенных значений.
Входные данные строго следуют следующему синтаксису (РБНФ):
файл = строка { строка } <EOF>.
строка = [ присвоение | печать | сброс ] <CR>.
присвоение = имя_переменной ":=" выражение.
печать = "PRINT" переменная.
сброс = "RESET".
выражение = терм { операция1 терм }.
терм = множитель { операция2 множитель }.
множитель = "(" выражение ")" | имя_переменной | число.
операция1 = "+" | "-".
операция2 = "*".
имя_переменной = буква { буква | цифра }.
число = [ "-" ] цифра { цифра }.
буква = "A" | "B" | ... | "Z" | "a" | "b" | ... | "z".
procedure ResetVal;
var
p : pVar;
begin
p := pFirst;
while (p <> nil) do begin
p^.defstr := ''; {Стираем строку для вычисления}
p := p^.next;
end;
end;
{
Процедура анализа прочитанной строки st и выполнения
соответствующих действий :)
}
procedure Analyse(var st : string);
var
k, ex : integer;
s1, s2 : string;
p : pVar;
begin
k := 1;
s1 := GetWord(st, k);
if (s1 = 'PRINT') then begin
{Если первый оператор - 'PRINT' -
то печатаем следующую за ним переменную}
s2 := GetWord(st, k);
PrintVal(s2);
end else if (s1 = 'RESET') then begin
{Если оператор - 'RESET' - то сбрасываем все переменные}
ResetVal;
end else begin
{Иначе читаем второе слово}
s2 := GetWord(st, k);
if s2 = ':=' then begin
{Если это присваивание - то получаем указатель на
28
53
цифра = "0" | "1" | ... | "8" | "9".
Все строки исходного файла содержат не более 200 символов.
Значения переменных могут быть неопределенными, если :
• если она не определена или ссылается на переменную, которая не
определена
• если определение переменной содержит цикл.
Вы должны написать программу, которая хранит описание переменных и
для каждого оператора печати вычисляет значение на основании последнего
определения переменных. Если ваша программа встречает оператор
«RESET», то она должна удалить все сохраненные переменные так чтобы они
стали неопределенными.
Входные данные
Файл INPUT.TXT содержит программу, строго отвечающую приведенному
синтаксису .
Результат
Для каждого оператора печати в исходном файле , ваша программа должна
напечатать в файл OUTPUT.txt строку , со значением указанной переменной
или фразу «НЕ ОПРЕДЕЛЕНО».
Пример входных данных
a := b + c
b := 3
c := 5
PRINT d
PRINT a
b := 8
PRINT a
RESET
PRINT a
Пример выходных данных
НЕ ОПРЕДЕЛЕНО
8
13
НЕ ОПРЕДЕЛЕНО
Монеты
Валюта Новой Зеландии содержит купюры достоинством $100, $50,
$20, $10, и $5 и монеты $2, $1, 50c, 20c, 10c и 5c (доллары и центы ).
Напишите программу, которая определяла бы для заданной суммы
количество вариантов, которыми она может быть получена. Изменение
if def then def := GetTerm(st, k, m2);
if def then m1 := m1-m2;
end else k := k1; {Иначе откат}
if def then begin
{Если найдено выражение - сохраняем его}
GetExpression := true;
x := m1;
end else GetExpression := false;
end;
{
Процедура вывода значения идентификатора st
Если его значение не определено - выводится информация
о его неопределенности
}
procedure PrintVal(var st : string);
var
p : pVar;
x, k : integer;
begin
p := pFirst;
while (p <> nil) do begin
if (p^.name = st) then begin
k := 1;
if GetExpression(p^.defstr, k, x) then writeln(fo, x)
else writeln(fo, 'NE OPREDELENO');
exit;
end;
p := p^.next;
end;
writeln(fo, 'NE OPREDELENO');
end;
{
Процедура сброса значений всех идентификаторов
}
29 52
порядка следования монет не считается новым вариантом . Так сумма в 20
центов, может быть представлена вариантами: 1 монета 20с, 2 монеты по 10с,
монета 10с + 2 монеты 5с и 4 монеты 5с. Всего четыре варианта .
Входные данные
Файл INPUT.TXT содержит вещественные числа не более, чем $50.00 на
каждой строке . Каждая сумма является корректной, т.е . кратна 5c. Файл
заканчивается строкой 0.00.
Результат
Файл OUTPUT.TXT должен на каждой строке содержать сумму ( две
десятичные цифры после запятой) и через пробел количество вариантов ее
набора. Ограничение по времени для программы –30 секунд.
Пример входных данных
0.20
2.00
0.00
Пример выходных данных
0.20 4
2.00 293
Задания второго тура в секции
«Прикладное программное обеспечение»
Задача 1.
Задача связана с назначением на стипендию студентов по результатам
экзаменационной сессии.
С целью упрощения решения задачи рассмотрим данные по
некоторым студентам двух учебных групп, сдающих в сессию четыре
экзамена. Стипендия назначается студентам , получившим на экзаменах
хорошие и отличные оценки . Если хороших оценок получено более одной,
назначается стипендия в размере 100%. За одну хорошую и за все остальные
отличные оценки устанавливается
стипендия в размере 150%, а за все
отличные - 200%.
Данные организованы в три таблицы : СТУДЕНТ, СЕССИЯ,
СТИПЕНДИЯ.
Таблица СТУДЕНТ содержит необходимые сведения о каждом
студенте , обучающемся в вузе : номер личного дела , фамилия, имя, отчество,
пол, дата рождения, номер учебной группы .
и находим произведение}
if def then def := GetMnog(st, k, m2);
if def then m1 := m1*m2;
end else k := k1; {Иначе осуществляем откат}
if def then begin
{Если терм найден - возвращаем его значение}
GetTerm := true;
x := m1;
end else GetTerm := false;
end;
{
Функция чтения выражения в текущей строке st начиная с позиции k
При успешной интерпретации выражения функция возвращает true
и в переменную x помещает значение выражения
}
function GetExpression(var st : string; var k, x : integer) : boolean;
var
def : boolean;
m1, m2, k1 : integer;
op : string;
begin
if (st = '') then begin
GetExpression := false;
exit;
end;
def := GetTerm(st, k, m1); {Чтение первого терма}
k1 := k;
op := GetWord(st, k); {Чтение возможной операции}
if op = '+' then begin
{Если операция - сложение - осуществляем сложение}
if def then def := GetTerm(st, k, m2);
if def then m1 := m1+m2;
end else if op = '-' then begin
{Если вычитание - то осуществляем вычитание}
30
51