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
(
T(II | T*II | T/II | T**II
II(
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