Размещено на http://www.allbest.ru/

Министерство образования и науки Российской Федерации

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

"Северо-кавказский государственный университет"

КУРСОВОЙ ПРОЕКТ

по дисциплине "Программирование на языке высокого уровня"

Ставрополь,2011

Содержание

• 1. Описание задания для курсового проекта
• 2. Постановка задачи
• 3. Выбор метода решения
• 4. Описание функций и переменных транслятора
• 5. Разработка алгоритма
• 6. Кодирование алгоритма программы транслятора на языке Си++
• 7. Распечатка тестов и результатов
• Выводы
• Список использованной литературы

1. Описание задания для курсового проекта

Цель: спроектировать транслятор с языка Паскаль на язык Си, произвести отладку и документирование данного проекта.

Данная цель дает возможность использовать знания дисциплины "Программирование на языке высокого уровня".

Курсовая работа включает в себя ступени выполнения с разработки технического задания и заканчивается описанием проделанной работы в отчете.

Тема: "Разработка конвертора на языке Си для перевода программ на языке Паскаль в текст программы на языке Си".

По заданию на данный проект нужно: составить транслятор на языке Си для перевода программ с языка Паскаль в текст программы на языке Си.

Допустимые операторы в исходном тексте, типы переменных, определяются по вариантам.

- должны быть приведены синтаксические диаграммы для данных операторов, в соответствии с которыми будет производиться анализ операторов исходного текста и их конвертирование (по согласованию с преподавателем синтаксис некоторых сложных операторов может быть упрощен);

-должны быть описаны возможные и обязательные использования пробелов в исходном тексте;

-исходные данные и результат хранятся в текстовых файлах, их имена должны запрашиваются транслятором;

- если обнаружена синтаксическая ошибка оператора: в выходной файл вносится комментарий об ошибке;

- обработка отдельных операторов описываются как подпрограммы;

-оформить вывод комментарий из исходного файла в выходной;

- ключевые слова операторов в программе на языке Си записываются только строчными буквами, а в программе на языке Паскаль они могут быть записаны и строчными и прописными;

- в виде идентификаторов используются любые буквы;

-в одной строке исходного текста может быть записано несколько операторов или только часть одного оператора.

Так же нужно учитывать, что при формировании текста можно не использовать правило отступа.

2. Постановка задачи

Название задачи

Решаемой задачей на данный курсовой проект является создание компилятора, транслирующего исходный файл, с текстом на зыке Паскаль в выходной файл с текстом на языке Си, включающий в себя перевод обозначенных заданием операторов, комментарий, типа переменных и обозначения всех ошибочных операторов.

Данная задача актуальна из-за некоторых проблем, связанных с использованием разных языков программирования для написания программ, как например Delphi или Паскаль. Для людей знающих всего несколько языков, не включающих выше перечисленные, данная проблема будет стоять особенно остро. Язык Си и Си++ на наше время являются наиболее известными, поэтому именно этот язык мы используем для трансляции заданной программы. Кроме того, язык Си и Си++ так же наиболее эффективный и перевод программ именно на этот язык упрощает роботу с программой. Транслятор дает возможность обеспечить более дешевую разработку программы без затраты в дальнейшем на человеческие ресурсы.

Описание

Данная программа включается в себя использование исходных данных, которые подразумевают под собой текст с программой на языке Паскаль, включающий: операторы, заданные вариантом и являющиеся по определению ошибочными, комментарии, которые будут выводиться в выходной файл, описание типов переменных, подпрограмм и иных структур.

Сама программа будет реализовывать транслирование по типу:

- чтение из исходного файла - весь файл представляет собой одну большую символьную строку, с которой мы будем работать в дальнейшем;

-проверка строки на ключевые слова, описанные как массив ключевых слов;

-проверка на функции;

-проверка на операторы;

-проверка на комментарии;

-вывод текста в выходной файл: число операторов в исходной программе, число операторов в полученной программе, число ошибочных операторов в полученной программе.

Адрес исходного и выходного файла вводятся пользователем с клавиатуры.

Входная информация

По заданному условию путь к исходным данным задает пользователь. Файл будет иметь формат текста (txt), однако разрешение файла указывать не обязательно.

Заданный адрес будет обрабатываться программой и при указании несуществующего файла - выдается сообщение об ошибке. Программа не продолжает работу.

printf("Имя исходного файла:");

scanf("%s",s);

где s- массив типа char.

Выходная информация

Данные будут записываться в выходной файл, который задает пользователь в начале работы программы. Файл имеет текстовое расширение и содержит:

-модуль #include <stdio.h>- как статичный элемент разработки программ;

-название программы;

- сообщения об ошибках на месте неопознанных операторов;

-определенные по условию операторы (for, type,function);

-переменные типа integer;

-арифметические конструкции;

-логические конструкции;

-объявление главной программы;

-замену begin, end на {,};

-присутствующие в исходном файле комментарии.

Пробелами в выходном файле пренебрегли.

К выходным данным так же будут относится, данные выдающиеся на экран, описанные функцией:

printf("\nКоличество операторов"

" в исходной программе: %d", koper1);

printf("\nКоличество операторов"

" в полученной программе: %d", koper2);

printf("\nКоличество ошибочных операторов"

" в полученной программе: %d", ker);

printf("\n\nФайл с результатом: %s",s);

где:

koper1 -количество операторов в исходном файле

koper2 - количество операторов в выходном файле

ker - количество ошибок

s -имя выходного файла

Ошибки

При работе с данной программой пользователь может совершить ошибки: - неправильное имя исходного файла:

printf("Имя исходного файла:");

scanf("%s",s);

if (!GetText(s))

{ printf("\nОшибка открытия файла!"); }

- неправильное имя входного файла:

printf("\nИмя выходного файла:");

scanf("%s",s);

if (!PutText(s))

{ printf("\nОшибка создания файла!");

}

В обоих случаях происходит выход из программы. Повторный ввод данных возможен только при новом запуске программы.

3. Метод решения задачи

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

Опишем логическую и математическую модель получения данных, использованные в курсовой работе. В данных моделях, описанных графически, принимается, что синтаксические диаграммы одинаковы для языков Паскаль и Си.



Пусть мы имеем некое выражение Le2, проверим его по нашей логической модели получения данных:

1. Проверка является ли выражение Le2 слагаемым (OR), если да, то выход;

2. Проверка является ли вы выражение Le2 множителем (AND) если да, то выход;

3. Проверка является ли выражение Le2: константой, переменной или арифметическим выражением;

4. Если Le2 арифметическое выражение - проверка на арифметическое выражение: проверяем на арифметические операции (=, <>, >, >=, <=, <). Выход;

5. Если Le2 переменная, проверяем тип переменной. Если он не определен, то заключаем его в квадратные скобки и выход. Иначе - выход;

6. Если Le2 константа проверяем ее значение, выход.

Пусть мы имеем некое выражение Ae1, проверим его по нашей математической модели получения данных:

1. Если выражение операнд, то смотрим тип операции после него (+, *, /, -);

2. Проверяем тип операнда: целый или переменная;

3. Если это переменная, то проверяем, буква ли это, если это так то заключаем ее в квадратные скобки, выход.

4. Описание функций и переменных транслятора

Нарисуем структуру программы:

Где:

1. Newtype -установка типа переменной

2. Vartype - получение типа переменной, при этом тип задан заранее

3. Ocvobw- освобождение списка переменных - просто удаление обоих списков, как для локальных переменных, так и для глобальных переменных

4. Analiz- Одна из главных функций получение слова, посимвольно анализируется текст.

Программа анализирует текст посимвольно и каждый раз определяет тип символа (число, буква, пробел ит.д.), когда удается ясно определить значение этого символа (цифра, переменная и т.д.) или последовательности символов( переменная, ключевое слово и т.д.) выполнение функции прерывается она возвращает тип этого слова Функция возвращает один из следующих кодов типа "слова":

- w_error - ошибка

- w_space - пробелы

- w_str - строка

- w_numb - число

- w_char - символ

5. put_str- запись строки в выходной буфер

6. scmp - возвращает значения буферов

7. put_char - запись символа в выходной буфер

8. wcopy - копирование буферов

9. wequ -возвращает значение scmp

10. AnalizS -получение слов, пропуск пробелов

11. inc_dt- увеличение отступа

12. dec_dt -уменьшение отступа

13. put_dt - вывод отступа

14. OpenText -открытие файла

15. VvodText -вывод обработанного текста

16. Oshibka - вывод ошибочного оператора

17. IsComment -проверка на комментарии

18. CommEnd -проверка на закрытие комментарий

19. fkW - проверка на ключевое слово, сравниваются полученное нами слово со словом из списка и если да, то возвращается номер слова в списке

20. fIntRealBoolAr - обработка переменных после слова var, обращения к тем четырем функциям работающим со списком переменных и обработка описания переменных: x1,..,xn: тип;

21. fvar -обработка описания блока переменных

22. fvardescr -обработка блока переменных

23. fbegin - обработка блоков операторов

24. ffunction -обработка функций

25. frecord - обработка оператора record

26. ob_arif - обработка арифметического выражения

27. ob_arifmetich -обработка арифметического выражения

28. ob_logich -обработка логического выражения

29. asign -проверка на присваивание

30. ffor -обработка оператора for

31. Konvektor -главная функция преобразования текста

32. Main - основная программа

5. Описание алгоритма

На псевдоязыке опишем алгоритмы главной программы и основных процедур транслятора: Konvektor, AnalizS.

Основная программа main:

Начало

Ввод адреса исходного файла

Проверка: если адрес не правильный, то ошибка

Вызываем процедуру Konvektor

Ввод адреса выходного файла

Проверка: если адрес не правильный, то ошибка

Вывод информации на экран Конец

Описание подпрограммы Konvektor:

Начало

Анализ данных AnalizS

Проверка на ключевое слово fkW

Начало блока переменных

Проверка на ошибки ключевых слов

Блок описания типов

Начало блока операторов fbegin

Проверка на наличие комментарий IsComment / CommEnd

Точка в конце программы Конец

Описание подпрограммы AnalizS

Начало

Анализ длинны слова

Проверка символов

Если буква или цифра то увеличивает счетчик

Если знак препинания то возвращает что это символ

Если конец строки или пробел то возвращает, что этот символ пробел

Проверка на дробное число Конец

6. Кодирование аллгоритма программы транслятора на языке Си++

Оставленный нами текст программы на языке Си++ будет иметь вид:

#include "stdafx.h"

#include <conio.h>

#include <stdio.h>

#include <string.h>

#include <locale.h>

FILE *file1, *file2;

const int buob_logichn = 10000;

const int KS = 16;

char * KS1[KS] =

{

"begin", "end", "var", "write",

"writeln", "false", "true", "do",

"read", "readln", "function","type", "record", "and", "or",

"for" };

#define kw_begin 1

#define kw_end 2

#define kw_var 3

#define kw_write 4

#define kw_writeln 5

#define kw_false 6

#define kw_true 7

#define kw_do 8

#define kw_read 9

#define kw_readln 10

#define kw_function 11

#define kw_type 12

#define kw_record 13

#define kw_and 14

#define kw_or 15

#define kw_for 16

#define t_Int 1

#define t_Bool 3

#define t_Label 5

const int cuservars = 6;

int uvars;

#define w_error 0

#define w_space 1

#define w_str 2

#define w_numb 3

#define w_char 4

char instr[buob_logichn],

outstr[buob_logichn];

int inlen,outlen,inpos;

int kol1,kol2,ker;

int slen;

int stype;

int snumf;

int dt;

typedef struct var{

char s[64];

int tp;

var * next;

};

typedef struct types{

char s[64];

int tid;

types * next;

};

var *vars, *lvars;

types * typeslist;

int ob_logich();

int ob_arif();

int asign();

int dobatitvar(int gl){

var *np, *p;

if (gl) p = vars; else p = lvars;

while (p) {

if (strlen(p->s)==slen&&

!memcmp(p->s,&instr[inpos],slen)) return 0;

p = p->next;

}

np = new var;

memcpy(np->s,&instr[inpos],slen);

np->s[slen]=0;

np->tp = -1;

if (gl) {

np->next = vars;

vars = np;

} else {

np->next = lvars;

lvars = np;

}

return 1;

}

int addnestype()

{

types *head=typeslist, *ntype;

while (head) {

if (strlen(head->s)==slen&&

!memcmp(head->s,&instr[inpos],slen)) return 0;

head = head->next;

}

ntype = new types;

memcpy(ntype->s,&instr[inpos],slen);

ntype->s[slen]=0;

ntype->tid = uvars;

uvars++;

ntype->next = typeslist;

typeslist = ntype;

return 1;

}

int uvart()

{

types *head=typeslist;

while(head)

{

if (strlen(head->s)==slen&&

!memcmp(head->s,&instr[inpos],slen)) return head->tid;

head = head->next;

}

return 0;

}

char* utname(int number)

{

types *head=typeslist;

while(head)

{

if (head->tid==number) return head->s; // то вернуть тип переменной

head = head->next;

}

return 0;

}

void newtypew(int gl, int type){

var *p;

if (gl) p = vars; else p = lvars;

while (p) {

if (p->tp==-1) p->tp = type;

p = p->next;

}

}

int vartype(){

var * p;

p = lvars;

while (p) {

if (strlen(p->s)==slen&&

!memcmp(p->s,&instr[inpos],slen)) return p->tp;

p = p->next;

}

p = vars;

while (p) {

if (strlen(p->s)==slen&&

!memcmp(p->s,&instr[inpos],slen)) return p->tp;

p = p->next;

}

return 0;

}

char* usertype()

{

types * p;

p = typeslist;

while (p) {

if (strlen(p->s)==slen&&

!memcmp(p->s,&instr[inpos],slen)) return p->s;

p = p->next;

}

}

void osvobw(int gl){

var *p, *pp;

p = lvars;

while (p) {

pp = p;

p = p->next;

delete pp;

}

lvars = NULL;

if (gl) {

p = vars;

while (p) {

pp = p;

p = p->next;

delete pp;

}

vars = NULL;

}

}

int Analiz()

{

int st = 0;

char c;

slen = 0;

while (slen+inpos<inlen ){

c = instr[inpos+slen];

switch (st){

case 0:

if (c==' ' || c=='\t' || c=='\n') st = 1;

else

if ((c>='A' && c<='Z')||(c>='a' && c<='z')) st = 2;

else

if (c>='0' && c<='9') st = 3;

else

if (

c=='.' || c<=',' || c >=':' || c<=';' ||

c=='+' || c<='-' || c>='*' || c<='/' ||

c=='\''

)

{ slen = 1; return stype = w_char; }

else { slen = 0; return stype = w_error; }

break;

case 1:

if (c==' ' || c=='\t' || c=='\n') slen++;

else return stype = w_space;

break;

case 2:

if (

(c>='A' && c<='Z') ||

(c>='a' && c<='z') ||

(c>='0' && c<='9') ||

c=='_'

) slen++;

else return stype = w_str;

break;

case 3:

if (c>='0' && c<='9') slen++; else

if (c=='.'&& instr[inpos+slen+1]!='.') {

slen++;

st = 5;

}

else{

snumf = 0;

return stype = w_numb;

}

break;

case 5:

if (c>='0' && c<='9') slen++; else {

snumf = 1;

return stype = w_numb;

}

}

}

slen = 0;

return 0;

}

void put_str(char * s){

int l = strlen(s);

memcpy(&outstr[outlen],s,l);

outlen += l;

}

int scmp(char * m, char * s, int n){

int l = strlen(s);

if (n>l) l = n;

return memicmp(m,s,l);

}

void put_char(char c){

outstr[outlen] = c;

outlen++;

}

void wcopy(){

memcpy(&outstr[outlen],&instr[inpos],slen);

inpos += slen;

outlen += slen;

}

int wequ(char * s){

return (!scmp(&instr[inpos],s,slen));

}

void wskip(){

inpos += slen;

}

void wstr(char * s){

strncpy(s,&instr[inpos],slen);

}

int AnalizS(){

Analiz();

if (stype==w_space) {

wskip();

Analiz();

}

return stype;

}

void inc_dt()

{

dt += 2;

}

void dec_dt()

{

dt -= 2;

}

void put_dt()

{

for (int i=0; i<dt; i++) put_char(' ');

}

void put_dt11()

{

char s[10];

for (int i=0; i<dt; i++) {

sprintf(s,"%d",i/2);

put_str(s);

}

}

int openText(char * s1)

{

if ((file1 = fopen(s1, "rt")) == NULL){

return 0;

}

fseek(file1, 0, SEEK_END);

inlen = ftell(file1);

fseek(file1, 0, SEEK_SET);

if (inlen>buob_logichn) inlen = buob_logichn;

inlen = fread(instr,1,inlen,file1);

instr[inlen] = 0;

inpos = 0;

outlen = 0;

return 1;

}

int vvodText(char * s2)

{

if ((file2 = fopen(s2, "wt")) == NULL){

return 0;

}

fwrite(outstr,outlen,1,file2);

return 1;

}

void Oshibka()

{

put_char('\n');

put_str("< Ошибка! > \n");

int k;

while (1){

AnalizS();

if (instr[inpos]== ';' || inpos>= inlen) {

wcopy();

break;

};

wcopy();

}

ker++;

}

int IsComment(){

return (instr[inpos]=='{' ||

instr[inpos]=='(' ||instr[inpos+1]=='*');

}

void CommEnd(){

if (instr[inpos]=='{'){

outstr[outlen] = '/';

outstr[outlen+1] = '*';

inpos++;

outlen += 2;

while (instr[inpos]!='}' && inpos<inlen) {

if (inpos>=inlen) return;

outstr[outlen] = instr[inpos];

inpos++;

outlen++;

}

outstr[outlen] = '*';

outstr[outlen+1] = '/';

inpos++;

outlen += 2;

}

else{

outstr[outlen] = '/';

outstr[outlen+1] = '*';

inpos += 2;

outlen += 2;

while (!(instr[inpos]=='*' && instr[inpos+1]==')')

&& inpos<inlen) {

if (inpos>=inlen) return;

outstr[outlen] = instr[inpos];

inpos++;

outlen++;

}

outstr[outlen] = '*';

outstr[outlen+1] = '/';

inpos += 2;

outlen += 2;

}

put_char('\n');

}

int fkW(){

for (int i=0; i<KS; i++){

if (!scmp(&instr[inpos],KS1[i],slen))

return i+1;

}

return 0;

}

int fIntRealBoolAr(int svar, int gl){

char s[256];

int label;

int sp = 0;

AnalizS();

while (1){

if (stype!=w_str||fkW()|| gl>0&&vartype() ) return 0;

dobatitvar(gl);

if (svar) {

s[sp] = '&';

s[sp+1] = ' ';

sp += 2;

}

memcpy(&s[sp],&instr[inpos],slen);

inpos += slen;

sp += slen;

AnalizS();

if (instr[inpos]==','){

s[sp]=',';

inpos++;

sp++;

} else break;

AnalizS();

}

if (instr[inpos]==':'){

inpos++;

AnalizS();

if ((stype!=w_str)&&(stype!=w_char)) return 0;

if (!scmp(&instr[inpos],"integer",slen)){

newtypew(gl,t_Int);

put_str("int ");

wskip();

memcpy(&outstr[outlen],&s[0],sp);

outlen += sp;

}

else

if (!scmp(&instr[inpos],usertype(),slen)){

put_str(usertype());

put_str(" ");

wskip();

memcpy(&outstr[outlen],&s[0],sp);

outlen += sp;

}

else

if (!scmp(&instr[inpos],"^",slen)){

wskip();

AnalizS();

newtypew(gl,uvart());

wcopy();

put_str(" * ");

memcpy(&outstr[outlen],&s[0],sp);

outlen += sp;

}

}

else return 0;

return 1;

}

int fvar(int gl){

inpos += slen;

AnalizS();

do{

kol1++;

if (IsComment()){

CommEnd();

kol2++;

continue;

}

put_dt();

if (!fIntRealBoolAr(0,gl)) Oshibka();

else kol2++;

AnalizS();

if (instr[inpos]!=';')

return 0;

wskip();

put_str(";\n");

AnalizS();

if (stype!=w_str || fkW())

return 1;

}while(1);

}

int fvardescr(){

inpos += slen;

int k,svar;

AnalizS();

do{

k = fkW();

svar = k==kw_var;

if (svar) {

wskip();

AnalizS();

}

if (!fIntRealBoolAr(svar,0)) return 0;

AnalizS();

if (instr[inpos]!=';') return 1;

wskip();

put_str(", ");

AnalizS();

k= fkW();

if (stype!=w_str || k&&k!=kw_var) return 0;

}while(1);

}

int fbegin(int k);

int ffunction(){

wskip();

put_str("\nvoid ");

AnalizS();

if (stype!=w_str||vartype()) return 0;

dobatitvar(1);

newtypew(1,10);

wcopy();

AnalizS();

if (instr[inpos]!='(') return 0;

put_char('(');

if (!fvardescr()) return 0;

AnalizS();

if (instr[inpos]!=')') return 0;

wcopy();

AnalizS();

if (instr[inpos]!=';') return 0;

wskip();

put_str("\n{\n");

inc_dt();

int b;

do{

b = 1;

AnalizS();

if (!scmp(&instr[inpos],"var",slen)){

kol1++;

if (!fvar(0)) return 0;

}

else

if (!scmp(&instr[inpos],"begin",slen)){

if (!fbegin(2)) return 0;

b = 0;

}

else

if (IsComment()) CommEnd();

else return 0;

} while (b==1);

osvobw(0);

inpos++;

return 1;

}

int frecord(){

wskip();

put_str("struct ");

AnalizS();

if (stype!=w_str || fkW()) return 0;

addnestype();

wcopy();

AnalizS();

if (instr[inpos]!='=') return 0;

wskip();

AnalizS();

if (!wequ("record")) return 0;

put_str("\n{\n");

inc_dt();

if (!fvar(-1)) return 0;

dec_dt();

AnalizS();

if (!wequ("end")) return 0;

wskip();

put_char('}');

AnalizS();

if (instr[inpos]!=';') return 0;

wcopy();

put_str("\n\n");

inpos += slen;

return 1;

}

int ffor()

{

char tvar[32],*tint;

int tdt=dt;

wskip();

AnalizS();

memcpy(tvar,&instr[inpos],slen);

tvar[slen] = 0;

put_dt();

dt = 0;

put_str("for(");

if (!asign()) return 0;

put_str(";");

if(wequ("to")) tint = "++)";

if(wequ("downto")) tint = "--)";

wskip();

put_str(tvar);

AnalizS();

put_str("<=");

if(!ob_logich()) {

put_str(tvar);

wcopy();

}

put_str(";");

AnalizS();

put_str(tvar);

put_str(tint);

put_str("\n");

wskip();

dt = tdt;

return 1;

}

int fread(int ln){

char s[256];

int sp;

int t;

wskip();

put_dt();

put_str("scanf");

AnalizS();

if (instr[inpos]!='(') return 0;

inpos++;

put_str("(\"");

sp=0;

while (1) {

AnalizS();

if (stype!=w_str) return 0;

t = vartype();

if (t==t_Int) put_str("%d");

else return 0;

s[sp] = '&';

sp += slen;

memcpy(&s[sp],&instr[inpos],slen);

inpos += slen;

sp += slen;

AnalizS();

if (instr[inpos]!=',') break;

s[sp] = instr[inpos];

inpos++;

sp++;

}

put_str("\",");

memcpy(&outstr[outlen],s,sp);

outlen += sp;

AnalizS();

if (instr[inpos]!=')') return 0;

inpos++;

put_char(')');

AnalizS();

if (instr[inpos]!=';') return 0;

inpos++;

if (ln) put_str("; printf(\"\\n\");\n");

else put_str(";\n");

return 1;

}

int fwrite(int ln){

char s[256];

int sp;

int t;

wskip();

put_dt();

put_str("printf");

AnalizS();

if (instr[inpos]!='(') return 0;

inpos++;

put_char('(');

AnalizS();

if (instr[inpos]!='\'') return 0;

put_char('"');

inpos++;

while (instr[inpos]!= '\'') {

outstr[outlen] = instr[inpos];

inpos++;

outlen++;

}

inpos++;

if (instr[inpos]==')')

{

if (ln) put_str("\\n");

put_char(')');

inpos++;

if (instr[inpos]!=';') return 0;

inpos++;

put_str(";\n");

return 1;

}

if (instr[inpos]!=',') return 0;

inpos++;

sp=0;

while (1) {

AnalizS();

if (stype!=w_str) return 0;

t = vartype();

if (t==t_Int) put_str("%d");

else return 0;

memcpy(&s[sp],&instr[inpos],slen);

inpos += slen;

sp += slen;

AnalizS();

if (instr[inpos]!=',') break;

s[sp] = instr[inpos];

inpos++;

sp++;

}

if (ln) put_str("\\n");

put_char('"');

AnalizS();

put_str("\,");

memcpy(&outstr[outlen],s,sp);

outlen += sp;

AnalizS();

if (instr[inpos]!=')') return 0;

inpos++;

put_char(')');

AnalizS();

if (instr[inpos]!=';') return 0;

inpos++;

put_str(";\n");

return 1;

}

int ob_arif() {

AnalizS();

if (instr[inpos]=='+'){

wcopy();

}

else

if (instr[inpos]=='-'){

wcopy();

}

while (1){

AnalizS();

if (stype==w_numb) wcopy(); else

if (stype==w_str&&vartype()==t_Int) wcopy(); else

if (stype==w_str&&vartype()==t_Label) wcopy();

else return 1;

}

}

int ob_arifmetich(){

char c,c1;

if (!ob_arif()) return 0;

AnalizS();

c = instr[inpos];

c1 = instr[inpos+1];

if (c=='<'&&c1=='>') {

inpos += 2;

put_str("!=");

}

else

if (c=='=') {

inpos++;

put_str("==");

}

else

if (c=='>'||c=='<') {

if (c1=='='){

inpos += 2;

}

else wcopy();

}

AnalizS();

if (!ob_arif()) return 0;

return 1;

}

int ob_logich() {

int k;

char c,c1;

int arifm, ip,op;

while (1){

AnalizS();

k = fkW();

int ip, op;

ip = inpos;

op = outlen;

arifm = 0;

if(instr[inpos]=='+'||

instr[inpos]=='('||

instr[inpos]=='-'||

stype==w_str&&!fkW() ||

stype==w_numb)

arifm = ob_arifmetich();

if (!arifm){

inpos = ip;

outlen = op;

AnalizS();

k = fkW();

if (stype==w_str&&k==kw_true){

wskip();

put_char('1');

}

else

if (stype==w_str&&k==kw_false) {

wskip();

put_char('0');

}

else

if (stype==w_str&&vartype()==t_Bool) wcopy(); else

if (instr[inpos]=='('){

wcopy();

if (!ob_logich()) return 0;

AnalizS();

if (instr[inpos]!=')') return 0;

inpos++;

put_char(')');

}

else return 0;

}

AnalizS();

k = fkW();

if (k==kw_or) put_str("||"); else

if (k==kw_and) put_str("&&");

else return 1;

wskip();

}

}

int asign(){

int type = vartype();

if (!(type==t_Bool||type==t_Label||type==t_Int)) return 0;

put_char('\n');

put_dt();

wcopy();

AnalizS();

if((type==t_Label)&&instr[inpos]==':')

{

wcopy();

inpos++;

put_char('\n');

return 1;

}

if (instr[inpos]!=':'||instr[inpos+1]!='=')

return 0;

put_char('=');

inpos += 2;

if (type==t_Bool) {

if (!ob_logich()) return 0;

}

else

if (!ob_arif()) return 0;

AnalizS();

if (wequ("to")||wequ("downto")) return 1;

if (instr[inpos]!=';') return 0;

wcopy();

put_char('\n');

return 1;

}

int fbegin(int gl){

int rep_n = 0;

if(gl!=3) wskip();

if (gl==1) put_str("\n\nvoid main()\n");

if ((gl!=2)||(gl!=3)) {

put_dt();

put_str("{\n");

inc_dt();

}

int b;

do{

b = 1;

AnalizS();

if (IsComment()){

CommEnd();

continue;

}

switch(fkW()){

case kw_begin:

kol1++;

if (!fbegin(0)) return 0;

kol2++;

break;

case kw_write:

kol1++;

if (!fwrite(0)) return 0;

kol2++;

break;

case kw_writeln:

kol1++;

if (!fwrite(1)) return 0;

kol2++;

break;

case kw_read:

kol1++;

if (!fread(0)) return 0;

kol2++;

break;

case kw_readln:

kol1++;

if (!fread(1)) return 0;

kol2++;

break;

case kw_for:

kol1++;

if (!ffor()) return 0;

kol2++;

break;

case kw_function:

if (!ffunction()) return 0;

break;

case kw_end:

kol1++;

if(gl == 3) return 3;

wskip();

dec_dt();

put_dt();

put_str("}\n");

AnalizS();

if (gl==1&&instr[inpos]=='.' ||

gl!=1&&instr[inpos]==';'){

wskip();

kol2++;

return 1;

}

else

{

wskip();

return 0;

}

case 0:

if (!asign()) return 0;

break;

default:

return 0;

}

} while (b);

return 1;

}

int Konvektor()

{

int b;

int k;

kol1 = kol2 = 0;

put_str("#include <stdio.h>\n\n");

do{

b = 1;

AnalizS();

k = fkW();

if (k==kw_var){

kol1++;

if (!fvar(1)) {

Oshibka();

}

else kol2++; }

else

if (k==kw_type){

kol1++;

if (!frecord()) {

Oshibka();

}

else kol2++;

}

else

if (k==kw_function){

if (!ffunction()) {

Oshibka();

}

}

else

if (k==kw_begin){

if (!fbegin(1)) {

Oshibka();

}

b = 0;

}

else

if (IsComment()) CommEnd();

else {

kol1++;

Oshibka();

};

} while (b==1);

if (instr[inpos]!='.') return 0;

inpos++;

return 1;

}

void main()

{

setlocale(LC_ALL,"Russian");

char s[128];

printf("Введите имя входного файла: ");

scanf("%s",s);

if (!openText(s))

{

printf("\nОшибка открытия файла!");

}

vars = NULL;

lvars = NULL;

uvars = cuservars;

Konvektor();

osvobw(1);

printf("\nВведите имя выходного файла:");

scanf("%s",s);

if (!vvodText(s))

{

printf("\nОшибка создания файла!");

}

printf("\nКоличество операторов"

" в исходном файле: %d", kol1);

printf("\nКоличество операторов"

" в полученном файле: %d", kol2);

printf("\nКоличество ошибочных операторов"

" которые не были обработаны: %d", ker);

printf("\n\nРезультат хранится в файле: %s",s);

fclose(file1);

fclose(file2);

while (!kbhit()) ;

}

7. Распечатка тестов и результатов

Проведем несколько тестов на анализ работоспособности получившейся программы:

Тест 1: Для анализа создадим программу, в которой есть все определяемые операторы (for(to), function, type), тип переменной integer и комментарии. Текст такой программы:

var

k,s,a: integer;

{объявление переменных}

type

rec = record

x,y: integer;

end;

(*начало функции*)

function pr(k: integer);

begin

for i:=1 to 2 do

readln(k);

end;

begin

write ('введите количество чисел числа ',s);

end.

транслятор программа паскаль алгоритм

Созданный компилятор должен определить данные заданием функции, тип переменных и комментарии.

В остальных случаях программа должна выводить <Ошибка> на месте не определившихся операций и оставшуюся программу начиная с ошибочного оператора, помещать в коментарий. Распознавание арифметических и логических переменных происходит. Структура сохраняется.

Запустим компилятор и получим результат:

Текст в файле p.txt

#include <stdio.h>

int k,s,a,i,l;

/*объявление переменных*/

struct rec

{

int x,y;

};

/*начало функции*/

void pr(int k)

{

{

for(

i=1;i<=l;i++)

scanf("%d",&k); printf("\n");

}

void main()

{

printf("введите количество чисел числа %d",s);

}

Тест 2: Пусть цикл for будет изменен с for(to) на for(downto):

var

k,s,a,i,l: integer;

{объявление переменных}

type

rec = record

x,y: integer;

end;

(*начало функции*)

function pr(k: integer);

begin

for i:=1 downto l do

readln(k);

end;

begin

write ('введите количество чисел числа ',s);

end.

Запустим компилятор и получим результат:

Текст в файле p.txt

#include <stdio.h>

int k,s,a,i,l;

/*объявление переменных*/

struct rec

{

int x,y;

};

/*начало функции*/

void pr(int k)

{

{

for( i=1;i<=l;i--)

scanf("%d",&k); printf("\n");

}

void main()

{

printf("введите количество чисел числа %d",s);

}

Тест 3: Изменим код из файла p.txt: добавим ошибочный оператор while. Пусть теперь код программы на паскале:

var

k,s,a,i,l: integer;

{объявление переменных}

type

rec = record

x,y: integer;

end;

(*начало функции*)

function pr(k: integer);

begin

while(l!=2)do

bedin

for i:=1 to 2 do

readln(k);

l=l+1;

end;

end;

begin

write ('введите количество чисел числа ',s);

end.

Запустим компилятор и получим результат:

Текст в файле p.txt:

#include <stdio.h>

int k,s,a,i,l;

/*объявление переменных*/

struct rec

{

int x,y;

};

/*начало функции*/

void pr(int k)

{

{

< Ошибка! >

while(l!=2)dobedinfori:=1to2doreadln(k);

< Ошибка! >

l=l+1;

< Ошибка! >

end;

< Ошибка! >

end;

void main()

{

printf("введите количество чисел числа %d",s);

}

Выводы

В процессе выполнения данной курсовой работы мы закрепили знания по дисциплине "Программирование на языке высокого уровня". Улучшили знания работы с файлами, циклами, динамической памятью, структурами, рекурсией, процедурами и функциями.

В курсовой работе разработана программа, позволяющая частично транслировать с языка Паскаль на язык Си некоторые функции, обрабатывать комментарии, целочисленный тип переменных, начало и конец цикла, а так же определять логические и арифметические выражения.

Список использованной литературы

1.Н.Ю.Братченко "Методические указания по выполнению курсового проекта по дисциплине "Программирование на языке высокого уровня"

для студентов специальности 230102 Автоматизированные системы обработки информации и управления", 2006

2. В.Б.Попов "Turbo Pascal", Москва "Финансы и статистика", 2006

3. Зайцева, Л. В. Алгоритмические языки и программирование. 1995.

Размещено на Allbest.ru