Разработать программу, подсчитывающую сколько раз в текстовом файле встречается задаваемый пользователем символ.
В модулях не шарю, и Паскаля пока нет так что прогу пока так написал на глаз:
И что?...
Да.. конечно программка у тебя Klim более чем оригинальная
По-моему, можно сделать так:
program hff;
uses crt;
var f1: text;
n:integer;
k:string;
ch: char;
begin
clrscr;
assign(f1,'текст.txt'); {сразу создай там же, где и код программы}
{$I-} {файл с текстом и таким же именем, как будет в проге}
reset(f1);
{$I+}
if IOResult=0 then
begin
n:=0;
writeln('Введите символ:');
readln(k);
while not eof(f1) do
begin
read(f1,ch);
if ch=k then inc(n);
end;
close(f1);
if n=0 then writeln('Такого символа в тексте нет!')
else writeln('символ *',k,'* встречается в тексте ',n,' раз(-a)');
end
else writeln('файла с именем +текст.txt+ на диске нет');
end.
Это зачем ?
var
name,txt:string;
// ...
txt:=txt+ch;
Это я удалить забыла, когда проверяла нормально ли работает прога, выводила текст файла так... Переменную name тоже убрать забыла, она нигде не используется
Огромное спасибо Айрв и паскаль нашел. Только как модуль сделать я до сих пор не понял
Пометь в программе или так выпиши, что именно непонятно, будем объяснять
Если хочешь программу, которая обрабатывает ошибки, а не вылетает при первом же чихе - то это заменить нельзя... Если для "абы как - сдал и забыл", то ты вообще ошибся форумом...
А у меня встречный вопрос: ты не пробовал программирование чем-нибудь заменить? Или обойтись без него?