@nurik27

Дан текстовый файл f , содержащий программу на языке Паскаль. Проверить эту программу на соответствие количества ключевых слов BEGIN, END.

вот решение на Паскале! нужно на с или с++! заранее спасибо!!!
[I]uses crt;
var beg,en:byte;
file_ :string;

function find(slovo,stroka:string):byte;
var f,p:byte;
begin
f:=0;
p:=0;
repeat
p:=pos(slovo,stroka);
if p>0 then f:=f+1;
p:=p+length(slovo);
delete(stroka,1,p);
until p=length(slovo);
find:=f;
end;

procedure find_of_file(fname,slovo:string;var fn:byte);
var f:text;
s:string;
i:byte;
begin
fn:=0;
{Преобразуем строчные буквы slovo в прописные}
for i:=1 to length(slovo) do slovo[i]:=upcase(slovo[i]);
{Определяем файл}
assign(f,fname);
reset(f);
repeat
{Читаем строку из файла}
readln(f,s);
{Преобразуем строчные буквы в прописные}
for i:=1 to length(s) do s[i]:=upcase(s);
{Ищем кол-во вхождений slovo в строку}
fn:=fn+find(slovo,s);
until eof(f);
writeln('Слов ',slovo,' в тексте ',fn);
close(f);
end;

begin
clrscr;
repeat
write('Введите имя файла: ');
readln(file_);
if file_='' then halt;
find_of_file(file_,'begin',beg);
find_of_file(file_,'end',en);
if beg=en then writeln('В программе ',file_,' кол-во слов BEGIN соответствует кол-ву слов END')
else writeln('В программе ',file_,' кол-во слов BEGIN не соответствует кол-ву слов END');
writeln;
until file_='';
end.

1