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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
nurik27
1 / 1 / 0
Регистрация: 27.05.2009
Сообщений: 7
#1

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

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

Создать текстовый файл, содержащий программу на С++ - C++
Моя задача звучит следующим образом: "Дан текстовый файл, содержащий программу на С++. Проверить эту программу на соответствие числа...

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

Дан текстовый файл. Создать символьный файл, содержащий все знаки препинания, встретившиеся в текстовом файле - C++
Дан текстовый файл. Создать символьный файл, содержащий все знаки препинания, встретившиеся в текстовом файле (в том же порядке).

Написать программу, которая по указанному в качестве параметра в командной строке файлу создаёт текстовый файл, содержащий листинг исходного файла - C++
Очень нужно написать программу на c++, а я даже условие не до конца понимаю! Буду очень благодарен за помощь в написании! Она не должна...

Дан файл,содержащий текст на русском языке.& Дана строка, - C++
#1 Дан файл,содержащий текст на русском языке.Определить сколько раз встречается самое длинное слово. #2 Дана строка,состоящая из...

Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все слова из исходного файла, начинающиеся этой буквой - C++
Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все слова из исходного файла, начинающиеся...

Дано число k (< 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк исходного файла - C++
Дано число k (&lt; 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк исходного...

[Проверить программу] Дан файл, компоненты которого являются действительными числами. Найти произведение компонент файлов - C++
Дан файл, компоненты которого являются действительными числами. Найти произведение компонент файлов. Постоянно выдает в ответ &quot;1&quot;. В...

Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки - C++
Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки.

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


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

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

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