как изменить эту программу чтобы она заработала?

[Анастасия91]

помогите с программой, как сделать так чтобы эта программа заработала в microsoft visual studio 2008? что нужно в ней изменить и как?

//для элемента var раздела языка программирования Паскаль:
//1 построить грамматику
//2 преобразовать грамматиу к LL(1)-виду, если она таковой не является.
для этого нужно использовать введение дополнительных нетерминальных символов,
//левой факторизации
//3 пронумеровать правила грамматики
//4 для правил, имеющих совпадающие левые части построить множества стартовых символов или множества символов-последователей
(для правил с пустым символом в правой части).
убедиться, что множества для одинаковых нетерминалов в левой части правил имеют непересекающиеся правые части
//5 разработать программу синтаксического анализа на основе построенной грамматики использованием нисходящего метода рекурсивного спуска.
//использовать рекурсивные вызовы функций
//6 для каждого нетерминала создать отдельную функцию

//Грамматика:
//G(T,N,P,DECL),
//где Т-множество терминальных символов
// N-множество нетерминальных символов
// P- множество правил грамматики
// DECL-целевой символ грамматики
// T={'a','b','c',...,'z',',',':',';', var,real,integer,byte}
// N={DECL,SPISOK,NAME,DOP,TIP}

// P: МножестваFIRST Множества FOLLOW
// 1) DECL -> var SPISOK : TIP;
// 2)SPISOK -> NAME DOP
// 3)DOP ->, SPISOK | {,}
// 4)SL (это лямбда) {:}
// 5)TIP -> real | {real}
// integer | {integer}
// byte {byte}
// 6)NAME -> a | b| ... |z

#include "stdafx.h"
#include "iostream"
#include <stdio.h>
#include <conio.h>
#include <string.h>

char token[80];
int SPISOK(), NAME(), DOP(), TIP();
FILE *fin;

void lex()
{ fscanf(fin,"%s",token);
return;
}

int DECL()
{ if(strcmp(token,"var")!=0)
return 0;
lex();
if(SPISOK() == 0)
return 0;
if(strcmp(token,":")!=0)
return 0;
lex();
if(TIP() == 0)
return 0;
lex();
if(strcmp(token,";")!=0)
return 0;
return 1;
}

int SPISOK()
{ if(NAME() == 0)
return 0;
lex();
if(DOP() == 0)
return 0;
return 1;
}

int NAME()
{ if((strcmp(token,"a")<0) || (strcmp(token,"z")>0))
return 0;
return 1;
}

int DOP()
{ if (strcmp(token,",")==0)
	{ lex();
	SPISOK();
	}
else
if(strcmp(token,":")==0)
return 1;
else
return 0;
}

int TIP()
{ if((strcmp(token,"real")==0) || 
     (strcmp(token,"integer")==0) ||
     (strcmp(token,"byte")==0))
return 1;
return 0;
}

void main()
{ int d;

fin=fopen("all_token.dat","r");
lex();
d=DECL();
fclose(fin);
if(d==0)
printf("Error !\n");
else
printf("GOOD - Declaration \n");
while(1)
if (getch() == 27)
break;
return;
}

[Stilet]

А какие ошибки она выдает при компиляции?

[Анастасия91]

ошибки при запуске программы:
'cpo3.exe':loaded 'C:\windows\system32\msctf.dll'
'cpo3.exe':loaded 'C:\programs files\scansoft\omnipagese4.0\ophook se4.dll'
'cpo3.exe':loaded 'C:\windows\system32\version.dll'
'cpo3.exe':loaded 'C:\windows\system32\ole32.dll'
'cpo3.exe':loaded 'C:\windows\system32\oleaut32.dll'
через пару минут:
'cpo3.exe': Loaded 'C:\WINDOWS\system32\ole32.dll'
'cpo3.exe': Loaded 'C:\WINDOWS\system32\oleaut32.dll'
'cpo3.exe': Unloaded 'C:\Program Files\Kaspersky Lab\Kaspersky Internet Security 2010\mzvkbd3.dll'
The thread 'Win32 Thread' (0x53c) has exited with code 0 (0x0).
'cpo3.exe': Unloaded 'C:\Program Files\Kaspersky Lab\Kaspersky Internet Security 2010\kloehk.dll'
The thread 'Win32 Thread' (0x954) has exited with code 0 (0x0).

на протяжении всего времени висит табличка:
microsoft visual c++ debug library

debug assertion failed
program:'cpo3.exe'
file: f:\\dd\vctools\crt_bld\self_x86\crt \src\fscanf.c
line:52

expression: (stream !=NULL)
for information on how your program can cause an assertion failure, see the visual c++ documentation on asserts

[pproger]

2Анастасия91
у вас ассерт
fin=fopen("all_token.dat","r");

файл существует? если нет, fopen его не создаст, ибо вы его открываете с режимом только для чтения. причем, дальше не проверяете, корректно ли открылся файл. и во время вызова fscanf упадете

по алгоритму ничего не скажу. по коду - он ужасен чуть более, чем полностью

[Анастасия91]

как организовать корректное открытие файла (файл уже был создан, all_token.dat) и чтобы был вывод результата ввиде грамматик на экран и сохранение в другой файл тех же грамматик, которые использовала программа в свой работе

[Анастасия91]

помогите пожалуйста

[Hacker19_90]

Сообщение от Анастасия91

как организовать корректное открытие файла

Для этого надо дискриптор файла проверять! Допустим
Вот вы открываете файл
fin=fopen("all_token.dat","r");
То в случае удачи fopen вернёт указатель(дискриптор) на файл!
Иначе вернёт NULL
Отсюда проверка такая

if ((fin=fopen("all_token.dat","r")) != NULL) //То всё хорошо можно работать
else //файл открыть нельзя