Форум C++

Смог сам сделать вот код одобренный преподавателем:

#include <vcl.h> #include <windows.h> #include <string.h> #include <stdlib.h> #include <stdio.h> #include <iostream.h> #pragma hdrstop using namespace std; string pr[100]; string p[]={"real", "byte", "readln", "exp", "keypressed", "writeln", "clrscr", "until", "repeat", "program", "uses", "var", "begin", "then", "if", "else", "function", "end.", "end"}; #pragma argsused int main() { SetConsoleTitle("Работа с файлами"); FILE *F; FILE *Fout; char buf[500], s; int n=300, j=0; char * patch = new char[300]; char * token = new char[500]; cout << "File name: "; cin >> patch; patch="test.txt"; if ((F=fopen(patch, "r+t"))==NULL) {  cerr << "File not open!";  return 0; } if ((Fout=fopen("out.txt", "w+t"))==NULL) {  cerr << "File not open!";  return 0; } token=NULL; while(fgets(buf, n, F)!=NULL) { bool first=true; while((token=strtok(first? buf : NULL, " 1234567890'><+*,-/:=();\n"))!=NULL) { bool t=true; first=false; for (int i=0;i<=18; i++) if (strcmp(token, p[i].c_str())==0)  {        t=false; break; } for (int i=0;i<j;i++) if (strcmp(token, pr[i].c_str())==0)  {        t=false; break; } if (t==true)    { pr[j]=token; fputs(token, Fout); fputs("\n", Fout); j++;            } }                              }    fclose(F);    fclose(Fout); if (j>0) cout << "Zapicano indefikatorov: " <<  j; else if (j==0) cout << "net indefikatorov";    fflush(stdin);    cin.get();         return 0; }

Как мне подсказал преподаватель надо сформировать массив указателей для prov, а потом туда записывать массивы с служебными словами и сравнивать их с token спомощью функции strcmp ( я так понял).
Но если использовать strcmp, то компилятор ругается на string....

Тогда token нужно привести к типу string (он у вас сейчас char * - поэтому сравниваться будут не строки, а адреса).

Var в паскале у меня пишется с маленькой буквы, цифра 8 означает кол-во слов в массиве prov[]

string * prov=new string[9]; prov[0]="program"; prov[1]="uses"; prov[2]="var"; prov[3]="begin"; prov[4]="then"; prov[5]="if"; prov[6]="else"; prov[7]="function"; prov[8]="end.";

вот я их и сравниваю...

А у вас Var в Pascal-программе с маленькой или большой буквы пишется?

Кроме того вызывает вопрос проверка вида

for (int i=0;i<=8; i++) if (token==prov[i]) t=false; //если token совпадет со служебным словом

Цифра 8 в ней что означает? У вас ведь слова имеют разную длину... Кроме того, зачам так сложно проверять, если вы всё равно ввели в программу тип string, который позволяет сравнивать строки при помощи оператора ==, используйте тип string для сравнения.

что-то никак не получается делю выход из цикла так

if (token=="begin") {out=false; break;}

но когда проверяю пошагово программу, то из цикла она не выходит, а продолжает дальше работать...

Я насколько помню, в Pascal все переменные объявляются в обязательном порядке в начале программы и располагаются между ключевым словом Var и первым begin. Причём характер объявления выглядит следующим образом

InpValue, i, j, j_max, MidValue :Integer;    A :Array[1..50, 1..50] of Integer;

Т.е. в каждой строке нужно прочитать значения переменных разделённых запятой до первого двоеточия ":".

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

нужно найти все переменные и записать их в файл вот в чем работа....

А в чём выражается не работа?

PS Найти нужно только служебны слова?

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

#include <vcl.h> #include <string.h> #include <stdlib.h> #include <stdio.h> #include <iostream.h> #pragma hdrstop using namespace std; #pragma argsused int main() { FILE *F; FILE *Fout; char * patch; char buf[500], s; int n=300; ///запоминаем служебные слова string * prov=new string[9]; prov[0]="program"; prov[1]="uses"; prov[2]="var"; prov[3]="begin"; prov[4]="then"; prov[5]="if"; prov[6]="else"; prov[7]="function"; prov[8]="end."; patch = new char[300]; cout << "File name: "; cin >> patch; if ((F=fopen(patch, "r+t"))==NULL) {  cerr << "File not open!";  return 0; } if ((Fout=fopen("out.txt", "w+t"))==NULL) {  cerr << "File not open!";  return 0; } bool t=true; char *token=NULL; while((fgets(buf, n, F))!=NULL) { bool first=true; while((token=strtok(first? buf : NULL, " "))!=NULL) //выделяем слово из строки { first=false; for (int i=0;i<=8; i++) if (token==prov[i]) t=false; //если token совпадет со служебным словом  if (t==true) fputs(token, Fout); } }    fclose(F);    fclose(Fout);    fflush(stdin);    cin.get();         return 0; }