Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Функции для очистки содержимого файла http://www.cyberforum.ru/cpp-beginners/thread37226.html
Есть какие нибудь функции для очистки содержимого файла???ну или для его удаления хотя бы?Подскажите пжл...
C++ Определить минимально значение среди трех вещественных чисел Описать функции: 1) ввода исходных данных 2) обработки исходых данных 3) вывода результата С помощью этих функций написать программу для решения предложенной задачи: Определить минимально... http://www.cyberforum.ru/cpp-beginners/thread37225.html
C++ Файловые потоки и кириллица в имени файла
существует следующая проблема, возможно ранее обсуждалась, но поиск по форуму результатов не принес: ... std::ofstream file( "c:/кириллица_в_пути/file.txt" ); file << "hello, world!"; ...
Есть код нужно исправить ошибки C++
есть задача: ввести размер квадратной матрицы и ее элементы. Элементы матрицы расположить в динамической памяти. Определить номер столбца, у которого сумма элементов, расположенных выше главной...
C++ Из строки удалить все символы, кроме пробелов, не являющиеся буквами английского алфавита http://www.cyberforum.ru/cpp-beginners/thread37195.html
Разработать консольное приложение. 1. Во введенной строке после k-го символа вставить заданную подстроку. Подстроку ввести с клавиатуры. 2. Найти и напечатать сколько раз повторяется в строке...
C++ Бинарный поиск в текстовом файле Есть текстовый файл с 10000 словами в алфавитном порядке. Функция проверяет, есть ли введенное слово в этом файле. Помогите реализовать бинарный поиск по первой букве bool slovo_true(char *slovo,... подробнее

Показать сообщение отдельно
nurik27
1 / 1 / 0
Регистрация: 27.05.2009
Сообщений: 7

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

29.05.2009, 20:20. Просмотров 987. Ответов 0
Метки (Все метки)

Дан текстовый файл 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru