Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

А вот к какой выразительности может привести краткость, я сейчас покажу:

#include <stdio.h>

#define Q r=R[*p++ - '0'];while(

#define B ;break;case

char*s="Qjou!s311^ - g311^ - n311^ - c::^ - q - ma%mO1JBHm%BQ - aP1J[O1HB%[Q<nbj

o)*|gps)<<*txjudi)m*|aQdbtf!::::;sfuvso<aQefgbvmu;aQ<m,,a%CQ<csfbla%bQ<aN2!Q

ndbtf!aP2Q;m>aP2Q<a%!D12J!JGJHJOJQJFJSJJJMHS%HD12D12N3!N4nJUJT%UQm>aP4HC%T

Qsq,,^>m,2<m>aP4HC%SD12N1nJNQm>s..q^aHC%NHb%GN1!D32P3%RN1UP1D12JPQUaP1H

R%PN4nQ<g(aP3Q(^>aP2Q,2<n(aP3Q(^>aP4Hb%OD12D12N2!N3nJVP3Q,,<jg)aP3Q=>n

(aP3Q(^*m>g(aP3Q(^<fmtf!m,,aHC%QN1!N1nJ#Qqsjoug)#&e]o# - aP1Q*aHb%#Qqvut)

aP1Q*aHb%FN1nQm>::::aHC%VP3Q>bupj)hfut)c**aHb%JD12JON1!Qjg)a%LN1UP1D12JIQUa

P1HL%IQ*m>aN2!N2nP2Q<fmtf!m,,aHC%MN1!N2>P2Q>aN2nP2Hbdd!b/d";int k;char R[4][99]

;main(c,v)char**v;{char*p,*r,*q;for(q=s;*q;q++)*q>' '&&(*q) - - ;{FILE*i=fopen(v

[1],"r"),*o=fopen(q - 3,"w");for(p=s;;p++)switch(*p++){B'M':Q(k=fgetc(i))!=EOF

&&k!=*p)*r++=k;if(k==EOF){fputs("}}n",o);fclose(o);return system(q - 6);}*r=0

B'P':while(*p!='`')fputc(*p++,o)B'O':Q*r)fputc(*r++,o);p - - B'C':k=0;Q k<*p - '0'

)(*r++=fgetc(i),k++);*r=0 B'I':k= *p;if(**R==k)goto G B'G':k= *p;G:p=s;while(

*p!='$'||p[1]!= k)p++;p++B'N':R[*p - '0'][0]++;}}}

Эта программа всего в 17 строчках текстового режима VGA(25X80) представляет собой полнофункциональный интерпретатор языка Basic, который поддерживает:

Переменные(имена от A до Z), которые инициализируются нулевыми значениями при запуске.

Цикл FOR var = exp TO exp ..NEXT var

Подпрограммы GOSUB exp и RETURN

Естественно, оператор GOTO(какой же Basic без GOTO)

Условия IF exp THEN exp

Комментарий REM any text

Рекомендуем скачать другие рефераты по теме: курсовая работа на тему бесплатно, бесплатные контрольные.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата