6.4. Индивидуальные задания

ментов первого списка, заключенных между максимальным и минимальным,

вставить второй список.

У

Г

11.

Создать двухсвязанный список из случайных целых чиселИ. далить из спи-

ска элементы с повторяющимися более одного раза значениями.

12.

Б

Создать двухсвязанный список и поменять в нем элементы с максималь-

ным и минимальным значениями, при этом элементы не должны перемещаться в

памяти.

а

к

13. Создать двухсвязанный список из н рисов нных вами картинок. Преобра-

зовать его в кольцо и организовать го ци лический просмотр в компоненте

Image.

е

вать перемещения выделенных ранее строк перед текущей строкой. При этом в

ли

TListBox должны отображаться строки из двухсвязанного списка.

ли

б

и

Б

7.2. Порядок написания программы

Задание: Написать программу расшифровки и вычисления арифметических

выражений с использованием стека.

Р

Панель диалога будет иметь вид, показанный на рис. 7.1.

И

У

Г

Б

а

к

Рис. 7.1

Текст программы приведен

.

#include <vcl.h>

о

ниже

//---------------------------------------------------------------------------

#pragma hdrstop

т

#include "lr07P.h"

и

#include <math.h>

л

#pragma package(smart init)

#pragma resource "*.dfm"

и

TForm1 *Form1;

//---------------------------------------------------------------------------

Б

Owner)

__fastcall TForm1::TForm1(TComponent*б

} ;

int SizeTSel = sizeof(TSel);

AnsiString str;

double mszn[201]; //[a..z]

TSel

*stk;

Set

<char, 0, 255> zn, zn2;

TSel *AddStask(TSel *Sp, char S) // Добавление элемента в стек

{

Р

TSel *Spt;

И

Spt = (TSel *) malloc(SizeTSel);

Spt->Inf=S;

У

Spt->A=Sp;

Sp=Spt;

Г

return Sp;

Б

}

//---------------------------------------------------------------------------

TSel *ReadStack(TSel *Sp, char *S) // Чтение элемента из стека

{

а

TSel *Spt;

Spt=Sp;

т

к

*S=Sp->Inf;

е

Sp=Sp->A;

о

free(Spt);

и

return Sp;

}

л

{

//---------------------------------------------------------------------------

б

// Расчет арифметического выражения

double AV(AnsiString strp)

и

char ch,ch1,ch2;

Б

stk=ReadStack(stk,&ch1);

stk=ReadStack(stk,&ch2);

op1=mszn[int (ch1)];

op2=mszn[int (ch2)];

switch (ch){

case '+' : rez=op2+op1;

break;

case '-' : rez=op2-op1; break;

case '*' : rez=op2*op1;

break;

case '/' : rez=op2/op1;

break;

Р

case '^' : rez=pow(op2,op1); break;

}

И

mszn[int (chr)]=rez;

stk=AddStask(stk,chr);

У

chr++;

}

}

Г

Б

return rez;

}

та

//---------------------------------------------------------------------------

int prior(char ch)

// Вычисление приорите операций

{

switch (ch){

к

т

case '(' : case ')' : return 0;

break;

case '+' : case '-' : return 1;

break;е

о

break;

case '*' : case '/' : return 2;

case '^'

и

: return 3; break;

}

}

л

б

//---------------------------------------------------------------------------

и

AnsiString OBP(AnsiString stri) // Перевод в постфиксную форму

Б

if (zn2.Contains(ch)){

if (ch=='(') stk=AddStask(stk,ch);

else

if (ch==')'){

stk=ReadStack(stk,&ch);

while (ch!='(') {

strp+=ch;

stk=ReadStack(stk,&ch);

}

Р

}

else

И

if (stk==NULL) stk=AddStask(stk,ch); // Если стек пусть

else { // Выталкивание менее приоритетных

pc=prior(ch);

У

do {

Г

stk=ReadStack(stk,&ch1);

Б

bl=prior(ch1)>=pc;

if (bl) strp+=ch1;

else stk=AddStask(stk,ch1);

}

} while ( (stk != NULL) && (bl));

к

stk=AddStask(stk,ch);

} }

а

else strp+=ch;

т

while (stk != NULL) {

stk=ReadStack(stk,&ch);е

о

и

strp+=ch;

return strp;

}

}

//---------------------------------------------------------------------------

б

и

//---------------------------------------------------------------------------л

Б

void fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Clear(); Edit2->Clear(); Edit3->Clear();

StringGrid1->Cells[0][0] ="Имя"; StringGrid1->Cells[1][0] ="Значение";

StringGrid1->Cells[0][1] ="a";

StringGrid1->Cells[1][1] ="0,1";

StringGrid1->Cells[0][2] ="b";

StringGrid1->Cells[1][2] ="5,2";

StringGrid1->Cells[0][3] ="c";

StringGrid1->Cells[1][3] ="2,4";

StringGrid1->Cells[0][4] ="d";

StringGrid1->Cells[1][4] ="6";

}

StringGrid1->Cells[0][5] ="e";

StringGrid1->Cells[1][5] ="8,4";