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

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

Войти
Регистрация
Восстановить пароль
 
nurik27
 Аватар для nurik27
1 / 1 / 0
Регистрация: 27.05.2009
Сообщений: 7
29.05.2009, 20:20     Дан текстовый файл f , содержащий программу на языке Паскаль. Проверить эту программу на соответствие количества ключевых слов BEGIN, END. #1
Дан текстовый файл 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2009, 20:20     Дан текстовый файл f , содержащий программу на языке Паскаль. Проверить эту программу на соответствие количества ключевых слов BEGIN, END.
Посмотрите здесь:

C++ Дан файл,содержащий текст на русском языке.& Дана строка,
Запись в файл ключевых слов програмы C++
C++ Создать текстовый файл, содержащий программу на С++
C++ Дан текстовый файл. Определить среднее количество слов в строке
C++ Дан файл, содержащий текст на русском языке
C++ Проверить программу на соответствие числа открывающихся и закрывающихся круглых и фигурных скобок
Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки C++
C++ В файле находится текст программы на Паскале. Используя стек, проверить правильность вложений операторных скобок (begin - end) в этой программе
C++ [Проверить программу] Дан файл, компоненты которого являются действительными числами. Найти произведение компонент файлов
C++ Дан текстовый файл с данными о студентах, содержащий сведения: ФИО и сумма стипендии. Вывести 5 самых богатых
Создать текстовый файл содержащий все группы слов из словаря отличающиеся расположением букв C++

Искать еще темы с ответами

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

Текущее время: 02:30. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru