.

Реализация языкового процессора оператора FOR языка BASIC

Язык: русский
Формат: реферат
Тип документа: Word Doc
0 536
Скачать документ

Ieienoa?noai iaoee, aunoae oeieu e

oaoie/aneie iieeoeee

?inneeneie Oaaea?aoeee.

Iiaineae?neee Ainoaea?noaaiiue

Oaoie/aneee Oieaa?neoao.

Eo?niaay ?aaioa

ii eo?no «Nenoaiiia i?ia?aiie?iaaiea»

?aaeecaoeey ycueiaiai i?ioeanni?a

iia?aoi?a FOR ycuea BASIC.

Oaeoeueoao: AAO.

Eaoaae?a: ANO.

A?oiia: A–513.

Nooaeaio: Aiae?ae Aiaoieueaae/ Eoae?ei.

I?aiiaeaaaoaeue: TH?ee Aeaaeeie?iae/ Oi?ieeia.

Iiaineae?ne – 1997

Oi?iaeueiue ycue iia?aoi?a FOR ycuea BASIC:

FOR E=E|*|AA TO E|*|AA [ STEP E|*|AA ]

E – Eaeaioeoeeaoi?

* – *enei

AA – A?eoiaoe/aneia au?aaeaiea

A?aiiaoeea:

(FOR = TO [ STEP ]

(A{A|Oe}

([E] |E

([Oe{Oe}].Oe{Oe}| Oe{Oe}

(T|+T|-T

T(II | T*II | T/II | T**II

II(| E |

O – Iia?aoi?

E – Eaeaioeoeeaoi?

*AC – *enei aac ciaea

Ae* – Aeanyoe/iia /enei

AA – A?eoiaoe/aneia au?aaeaiea

O – Oa?i

II – Iia?aiae

A – Aoeaa

Oe – Oeeo?a

Aeaiiay a?aiiaoeea yaeyaony eiioaenoii-naiaiaeiie, o.e. niioaaonoaoao
i?aaeeo auaiaea aeey eiioaenoii-naiaiaeiuo a?aiiaoee:

A(a, A(Vn , a(V*

A aeaiiie ?aaioa ?aaeeciaai iaoiae neioaene/aneiai aiaeeca naa?oo -aiec.

Oanoe?iaaiea ia oeaii/eao:

FOR C=0 TO 128.456E23 STEP 45.67

Ipiaapyai iiapaoip

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai neiai

N/eouaaai neiaie

N/eouaaai neiaie

N/eouaaai neiaie

N/eouaaai neiaie

Aicapauaai neiaie

Ipiaapyai FOR

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ‘=’

Ipiaapyai aupaaeaiea

Ipiaapyai oapi

Ipiaapyai iiapaiae

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘(‘

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Aicapauaai neiaie

Ipiaapyai /enei aac ciaea

Ipiaapyai aeanyoe/iia /enei

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘E’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

Ipiaapyai ia ‘/’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘+’ eee ‘-‘

Aicapauaai neiaie

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

N/eouaaai neiai

N/eouaaai neiaie

N/eouaaai neiaie

N/eouaaai neiaie

Aicapauaai neiaie

Ipiaapyai TO

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

Ipiaapyai aupaaeaiea

Ipiaapyai oapi

Ipiaapyai iiapaiae

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘(‘

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Aicapauaai neiaie

Ipiaapyai /enei aac ciaea

Ipiaapyai aeanyoe/iia /enei

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘.’

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘E’

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

Ipiaapyai ia ‘/’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘+’ eee ‘-‘

Aicapauaai neiaie

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

N/eouaaai neiai

N/eouaaai neiaie

N/eouaaai neiaie

N/eouaaai neiaie

N/eouaaai neiaie

N/eouaaai neiaie

Aicapauaai neiaie

Ipiaapyai STEP

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

Ipiaapyai aupaaeaiea

Ipiaapyai oapi

Ipiaapyai iiapaiae

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘(‘

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Aicapauaai neiaie

Ipiaapyai /enei aac ciaea

Ipiaapyai aeanyoe/iia /enei

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘.’

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘E’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

Ipiaapyai ia ‘/’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘+’ eee ‘-‘

Aicapauaai neiaie

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

Ipiaapyai ia eiiaoe nopiee

FOR C=A*B+10 TO B-2*C

Ipiaapyai iiapaoip

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai neiai

N/eouaaai neiaie

N/eouaaai neiaie

N/eouaaai neiaie

N/eouaaai neiaie

Aicapauaai neiaie

Ipiaapyai FOR

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ‘=’

Ipiaapyai aupaaeaiea

Ipiaapyai oapi

Ipiaapyai iiapaiae

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘(‘

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

Aicapauaai neiaie

Ipiaapyai iiapaiae

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘(‘

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

Ipiaapyai ia ‘/’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘+’ eee ‘-‘

Ipiaapyai oapi

Ipiaapyai iiapaiae

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘(‘

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Aicapauaai neiaie

Ipiaapyai /enei aac ciaea

Ipiaapyai aeanyoe/iia /enei

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘E’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

Ipiaapyai ia ‘/’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘+’ eee ‘-‘

Aicapauaai neiaie

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

N/eouaaai neiai

N/eouaaai neiaie

N/eouaaai neiaie

N/eouaaai neiaie

Aicapauaai neiaie

Ipiaapyai TO

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

Ipiaapyai aupaaeaiea

Ipiaapyai oapi

Ipiaapyai iiapaiae

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘(‘

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

Ipiaapyai ia ‘/’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘+’ eee ‘-‘

Ipiaapyai oapi

Ipiaapyai iiapaiae

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘(‘

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Aicapauaai neiaie

Ipiaapyai /enei aac ciaea

Ipiaapyai aeanyoe/iia /enei

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia oeeopo

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘E’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

Aicapauaai neiaie

Ipiaapyai iiapaiae

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘(‘

Aicapauaai neiaie

Ipiaapyai iapaiaiioth

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia aoeao

Ipiaapyai ia oeeopo

N/eouaaai i/apaaeiie neiaie

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘*’

Ipiaapyai ia ‘/’

Aicapauaai neiaie

N/eouaaai i/apaaeiie neiaie

Ipiaapyai ia ‘+’ eee ‘-‘

Aicapauaai neiaie

Oaeaeyai ipiaaeu

N/eouaaai neiaie

Ipiaapyai ia ipiaae

Ipiaapyai ia ipiaae

Aicapauaai neiaie

Eenoeia:

#include

#include

#include

#include

#include

#include “kuriface.h” //Eioapoaeniay /anoue

#define FALSE 0

#define TRUE 1

int cur_str=0; // oaeouay nopiea

int num_err=0; // eie-ai ioeaie

char next; // neaaeothuee neiaie

int open_file(void);

void instr(void);

char* reading(void);

int var(void);

void expr(void);

void term(void);

void operand(void);

void error(int);

void sc(void);

void unsc(void);

void del_space(void);

int dc(void);

int cbz(void);

void next_lex(void);

/*******************************************************************/

/*

*/

/* Ooieoeey ioepuoey oaeea
*/

/*

*/

/*******************************************************************/

int open_file(void)

{

draw_window(20,10,60,14,0,7,”Ioepuoue”);

gotoxy(5,2);

cprintf(“Aaaaeeoa eiy oaeea :”);

textbackground(BLUE);

textcolor(WHITE);

window(22,13,58,13);

clrscr();

gotoxy(1,1);

_setcursortype(_NORMALCURSOR);

if(filename[0]!=’\n’) fclose(fd);

gets(filename);

_setcursortype(_NOCURSOR);

if ((fd = fopen(filename,”rt”))==NULL)

{

draw_window(20,10,60,14,14,12,”Ioeaea”);

gotoxy(12,2);

cprintf(“Ha iiao ioepuoue oaee”);

gotoxy(13,4);

cprintf(“Haaeie ethaoth eeaaeoo”);

getch();

return(FALSE); // anee oaee ia ioepuee – eiaeue

}

return(TRUE); // anee ioepuee – enoeia

}

/***********************************************************************
****/

/*
*/

/* Ooieoeey caapocee oaeea
*/

/*
*/

/***********************************************************************
****/

void load(void)

{

if(open_file()==FALSE) // anee oaee ia oaeaeinue ioepuoue

{

window(1,1,80,24);

textbackground(BLACK);

clrscr();

return;

}

fseek(fd,0,0);

num_err=0; //

cur_str=0; // iaioeyai cia/aiey

next=0; //

display(); // ioiapaaeaai oaee

fseek(fd,0,0);

while(next!=EOF) // iiea ia aeieaeai aei eiioea oaeea

{

cur_str++;

instr();

}

getch();

window(1,1,80,24);

textbackground(BLACK);

clrscr();

}

/***************************************************************/

/*
*/

/* Ooieoeey n/eouaaiey neiaa
*/

/*
*/

/***************************************************************/

char* reading()

{

int i=0;

char* temp;

char buf;

temp=(char*)malloc(250);

buf=fgetc(fd);

while(isalpha(buf)) // n/eouaaai anee oieueei aoeau

{

temp[i]=buf;

i++;

buf=fgetc(fd);

}

ungetc(buf,fd);

temp[i]=NULL;

return(temp);

}

/************************************************************/

/*
*/

/* Iiapaoip
*/

/*
*/

/************************************************************/

void instr(void)

{

int i;

char* temp;

del_space(); // oaepaai ipiaaeu

sc(); // aapai neaaeothuee neiaie

if(next==EOF||next==’\n’) return; // ipiaapyai ia eiiaoe oaeea eee
nopiee

unsc(); // aicapauaai neiaie

temp=reading(); // n/eouaaai neiai

if(strcmp(temp,”FOR”)!=NULL) // ipiaapyai a niioaaonoaee n
apaiiaoeeie

{

error(3); // anee iaaapii – ioeaea

next_lex(); // ipiioneaai yoi neiai

}

del_space(); // oaepaai ipiaaeu

if(var()==FALSE) error(4); // ipiaapyai iapaiaiioth

sc(); // aapai neaaeothuee neiaie

if(next!=’=’) error(6); // ipiaapyai ia neiaie ‘=’

expr(); // ipiaapyai aupaaeaiea

del_space(); // oaepaai ipiaaeu

temp=reading(); // n/eouaaai neiai

if(strcmp(temp,”TO”)!=NULL) // ipiaapyai a niioaaonoaee n apaiiaoeeie

{

error(2); // anee iaaapii – ioeaea

next_lex(); // ipiioneaai yoi neiai

}

del_space(); // oaepaai ipiaaeu

expr(); // ipiaapyai aupaaeaiea

del_space(); // oaepaai ipiaaeu

if(next==EOF||next==’\n’) return; // ipiaapyai ia eiiaoe oaeea eee
nopiee

temp=reading(); // n/eouaaai neiai

if(strcmp(temp,”STEP”)==NULL) // ipiaapyai a niioaaonoaee n
apaiiaoeeie

{ // anee aapii

del_space(); // oaepaai ipiaaeu

expr(); // ipiaapyai aupaaeaiea

}

del_space(); // oaepaai ipiaaeu

if(next!=’\n’) // ipiaapyai ia eiiaoe nopiee

{

error(1); // anee ia oae – ioeaea

sc();

while(next!=’\n’) sc(); // n/eouaaai aei eiioea nopiee

unsc();

}

}

/************************************************************/

/*
*/

/* Iapaiaiiay
*/

/*
*/

/************************************************************/

int var(void)

{

sc();

if(isalpha(next)) // n/eouaaai

{ // iiea iaeie aoeau

while(isalnum(next)) sc();

unsc();

return(TRUE);

}

else

{

unsc();

return(FALSE);

}

}

/**********************************************************/

/*
*/

/* Apeoiaoe/aneia aupaaeaiea
*/

/*
*/

/**********************************************************/

void expr(void)

{

term();

sc();

while(next==’+’||next==’-‘) // anee ‘+’ eee ‘-‘

{

term(); // ipiaapyai oapi

sc();

}

unsc();

}

/***********************************************************/

/*
*/

/* Oapi
*/

/*
*/

/***********************************************************/

void term(void)

{

operand(); // ipiaapyai iiapaiae

sc();

while(next==’*’) // iiea ‘*’

{

sc();

if(next!=’*’) unsc(); // eee iiea ‘**’

operand(); // ipiaapyai iiapaiae

sc();

}

while(next==’/’) // iiea ‘/’

{

operand(); // ipiaapyai iiapaiae

sc();

}

unsc();

}

/********************************************************/

/*
*/

/* Iiapaiae
*/

/*
*/

/********************************************************/

void operand(void)

{

sc();

if(next=='(‘) // anee ‘(‘

{

expr(); // ipiaapyai aupaaeaiea

sc();

if(next!=’)’) // anee ia ‘)’

{

unsc();

error(5); // ioeaea

return;

}

else return; // a ipioeaiii neo/aa aapiooueny

}

unsc();

if(var()==TRUE) return; // anee iapaiaiiay – aapiooueny

if(cbz()==TRUE) return; // anee /enei aac ciaea – aapiooueny

error(7); // eia/a – ioeaea

}

/***********************************************************/

/*
*/

/* *enei aac ciaea
*/

/*
*/

/***********************************************************/

int cbz(void)

{

if (dc()==FALSE) return(FALSE); // anee ia aeanyoe/iia /enei aapiooue
eiaeue

sc();

if(next==’E’) // anee ‘E’

{

sc();

if(isdigit(next))

{

while(isdigit(next)) sc(); // n/eouaaoue iiea oeeopu

unsc();

return(TRUE); // aapiooue enoeio

}

return(FALSE); // eia/a aapiooue eiaeue

}

unsc();

return(TRUE);

}

/********************************************************/

/*
*/

/* Aeanyoe/iia /enei
*/

/*
*/

/********************************************************/

int dc(void)

{

int i=0;

sc();

if(isdigit(next))

{

while(isdigit(next)) // iiea iaeie oeeopu

{

sc(); // n/eouaaai

if(next==’.’&&i!=1) // anee ‘.’

{

i=1;

sc(); // n/eoaoue

}

}

unsc();

return(TRUE);

}

else

{

unsc();

return(FALSE);

}

}

/**************************************************/

/*
*/

/* Ooieoeey iapaaioee ioeaie
*/

/*
*/

/**************************************************/

void error(int i)

{

num_err++; // oaaee/eoue n/ao/ee ioeaie

gotoxy(1,num_err);

switch(i)

{

case 1: cprintf(“%d no?. Iaeeaeaaony eiiaoe nopiee”,cur_str);

break;

case 2: cprintf(“%d no?. Iaeeaeaaony TO”,cur_str);

break;

case 3: cprintf(“%d no?. Iaeeaeaaony FOR”,cur_str);

break;

case 4: cprintf(“%d no?. Iaeeaeaaony eaeaioeoeeaoi?”,cur_str);

break;

case 5: cprintf(“%d no?. Iaeeaeaaony ‘)'”,cur_str);

break;

case 6: cprintf(“%d no?. Iaeeaeaaony ‘='”,cur_str);

break;

case 7: cprintf(“%d no?. Iaeeaeaaony /enei, eae-? eee au?-ea
“,cur_str);

break;

case 8: cprintf(“%d no?. Iai?aaeaeaeaiiue eiiaoe no?iee eee
oaeea”,cur_str);

}

}

/*****************************************************/

/*
*/

/* Ooieoeey n/eouaaiey neaaeothuaai neiaiea
*/

/*
*/

/*****************************************************/

void sc(void)

{

next=fgetc(fd);

}

/*******************************************************/

/*
*/

/* Ooieoeey aicapauaiey n/eoaiiiai neiaiea a iioie
*/

/*
*/

/*******************************************************/

void unsc(void)

{

ungetc(next,fd);

}

/*************************************************/

/*
*/

/* Ooieoeey ipiionea oaeouaai neiaa
*/

/*
*/

/************************************************/

void next_lex(void)

{

sc();

while(next!=’ ‘) sc(); // n/eouaaoue aei 1-ai ipiaaea

unsc();

}

/**********************************************/

/*
*/

/* Ooieoeey oaeaeaiey ipiaaeia
*/

/*
*/

/**********************************************/

void del_space(void)

{

char liter;

liter=fgetc(fd);

while((isspace(liter))) liter=fgetc(fd); // n/eouaaoue iiea ipiaaeu

ungetc(liter,fd);

}

void main()

{

clrscr();

for (;;) // aaneiia/iue oeeee

{

switch (menu(27,8,”Auaapeoa ioaeiia”,ss)) // auaanoe iaith

{

case 0 : about();

break;

case 1 : grammatic();

break;

case 2 : language();

break;

case 3 : load();

break;

default : quit();

}

}

}

PAGE

PAGE 12

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2020