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

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

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

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

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

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

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

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

Дан текстовый файл, содержащий строки. Исключить из файла слова begin и end - Delphi
Дан текстовый файл, содержащий строки. Исключить из файла слова begin и end. Окно работающего приложения:

Составить программу, которая подсчитывает количество ключевых слов «begin» и «end», и выводит соответствующее сообщение. - Delphi
Составить программу, которая читает построчно текст другой программы на языке Object Pascal из текстового файла, файл создать заранее,...

Дан массив строк. Напишите программу, проверяющую правильность вложения операторных скобок begin . end — каждому begin должен соответствовать end - Pascal
Дан массив строк, представляющий собой фрагмент программы на языке Pascal. Напишите программу, проверяющую правильность вложения...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2009, 20:20
Привет! Вот еще темы с ответами:

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

Проверить файл программы на соответствие числа открывающих и закрывающих операторных скобок (begin и end) - Turbo Pascal
Дан текстовый файл F,содержащий программа на языке паскаль.проверить эту программу на несоответствие числа открывающих и закрывающих...

Паскаль.Дан текстовый файл, содержащий слова одного языка - Pascal ABC
интересно как это понимать ? . условие такое : Выбрать из текстового файла все разные слова и составить словарь

Дан текстовый файл f, содержащий более 1000 слов - C#
Дан текстовый файл f, содержащий более 1000 слов. Получить 10 наиболее часто встречающихся слов.


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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