51188

Інтерпретатор виразів з обчисленням першої та другої похідної

Практическая работа

Информатика, кибернетика и программирование

Мета: Удосконалити навики ООП, використавши для реалізації задачі про Інтерпретатор механізми інкапсуляції,наслідування, поліморфізму, динамічного звязування і віртуальних функцій.

Украинкский

2014-02-07

21.38 KB

0 чел.

Розробив

Олійник Д.А.

27.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова

1

Змін

Арк.

№ Докум

Підпис

Дата

Практична робота №9

Тема: Інтерпретатор виразів з обчисленням першої та другої похідної.

Мета: Удосконалити навики ООП, використавши для реалізації задачі про

           Інтерпретатор механізми інкапсуляції,наслідування, поліморфізму,

           динамічного зв’язування і віртуальних функцій.

Хід роботи

PTElement=^TElement;

PPlus=^Plus;

PMinus=^Minus;

PMult=^Mult;

PDivide=^Divide;

PReal=^Real;

PVariable=^Variabl;

TElement=object;

Protected;

Left, right, : PTlement;

constructor  Create (l, r : PTElement);

public

destructor Erase;

function rezult : double; virtual;

function copy : PTElement; virtual;

function differ : PTElement; virtual;

procedure set_var(float : double); virtual;

end;

constructor TElement.Create(l, r : PTElement);

begin

left:=l;

right:=r;

end;

destructor TElement.Erase;

begin

Dispose(left);

Dispose(right);

End;

function TElement.rezult :double;

begin

end;

function TElement.copy :PTElement;

begin

copy:=nil;

end

function TElement.differ :PTElement;

begin

differ:=nil;

end;

function TElement.set_var(float:double);

begin

Розробив

Олійник Д.А.

27.04.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова

2

Змін

Арк.

№ Докум

Підпис

Дата

if left<>nil then left^.set_var(float);

if right <>nil then right^.set_var(float);

end;

Real=object(TElement);

private

f:doble;

public

constructorCreat(float:double);

function result : duble; virtual;

function copy : PTElement; virtual;

function differ :PTElement;

end;

function PosFromEnd(sub, s :string) : integer;

var

     I, l : integer;

     s, p : string;

begin

l := Length(s);

SetLength(p, l);

for i := 1 to l do p[l-i+1] :=s[i];

if Pos(sub, p)>0 then PosFromEnd := l- Pos(sub, p) +1

   else PosFromEnd :=0;

end;

end.  

 

Висновок: Я удосконалив навики ООП, використавши для реалізації задачі про

                  інтерпретатор механізми інкапсуляції,наслідування, поліморфізму,

                  динамічного зв’язування і віртуальних функцій.


 

А также другие работы, которые могут Вас заинтересовать

3769. Українське відродження або нова русифікація 1.49 MB
  Вступ День 2 листопада 1998 р. починався як звичайний робочий день, котрі заповнюють більшість нашого життя. Залишилася в минулому виборча лихоманка, а Верховна Рада України, нарешті, пережила "спікеріаду" й занурилася до роботи. Здавалося, що на як...
3770. Звукоподражание в современном английском языке 157 KB
  Введение Настоящая курсовая работа посвящена изучению агломератов английских звукоподражательных единиц. Основные понятия настоящей работы: Звукоподражание (ономатопея) – условное воспроизведение звуков природы и звучаний, сопровождающих некото...
3771. Орнамент — один из древнейших видов изобразительной деятельности человека 589 KB
  Введение. В народном декоративном искусстве все основано на отработанных профессиональных навыках и приемах, выработанных на протяжении многих поколений. Эти приемы настолько совершенны, что их применение позволяет достичь большой художественной выр...
3772. Конспект урока по рассказу А.И. Солженицына Правая кисть 120.5 KB
  Конспект урока по рассказу А.И. Солженицына Правая кисть Методический замысел урока: Этот урок – продолжение разговора об осмыслении трагедии маленького человека, беззащитного перед мертвой идеологией. Урок по рассказу А.И. Солженицына ...
3773. Комп’ютерне моделювання в економіці 100.33 KB
  Розв'язання засобами сучасних комп'ютерних технологій укономічних та інженерних задач, що моделюються сумісними системами лінійних алгебраїчних рівнянь.
3774. Food. Yummy, yummy 74.5 KB
  Food. Yummy, yummy Цель: Формирование лексико-фонетических, грамматических умений и навыков. Главные основания выбора замысла урока. Место данного урока в системе уроков, его связь с предыдущими и последующими уроками. Данный урок являе...
3775. ПРАВИЛА ДОРОЖНЫЕ ЗНАТЬ КАЖДОМУ ПОЛОЖЕНО 45 KB
  Внеклассное мероприятие по ОБЖ Правила дорожные знать каждому положено Цель: Актуализация знаний правил дорожного движения Развитие творческих способностей, внимания, быстроты реакции. Воспитание умения работать в колл...
3776. Введение в раздел О весна, без конца и без краю 38.56 KB
  Введение в раздел О весна, без конца и без краю… (Стихотворения А. Макаревича Снег, Ф. Тютчева Ещё земли печален вид). Цель и задачи урока: Познакомить детей со стихами о весне. Учить анализировать стихи, воспринимать и понимать чувства...
3777. Brain Ring What? Where? When? 135.5 KB
  Brain Ring What? Where? When? Мета: освітня – закріплення та повторення одержаних знань практична – вчити радити, пропонувати та аргументувати свою думку, сприймати розповідь на слух розвиваюча – розвивати увагу, пізнавальний інт...