Mail.RuПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискВсе проекты

проверьте пожалуйста срочно надо

Знаток (259), закрыт 6 лет назад
11. Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

program X_11;
uses crt;
var
iSymbolCount,iStringCount:integer;
strFileName,strTemp:string;
F:text;
begin
iSymbolCount:=0;
iStringCount:=0;
writeln ('Ââåäèòå èìÿ ôàéëà è ïóòü ê íåìó');
readln(strFileName);
assign (F, strFileName)
reset(f);
while not eof(F) do
begin
readln(F,stTemp);
inc(iStringCount);
inc(iSymbolCount,length(strTemp));
end;
close(F);
writeln ('Strings - ',iSymbolCount);
writeln ('Symbols - ',iStringCount);
readln;
end.
Дополнен 6 лет назад
program X_11;
uses crt;
var
iSymbolCount,iStringCount:integer;
strFileName,strTemp:string;
F:text;
begin
iSymbolCount:=0;
iStringCount:=0;
writeln ('Введите имя файла и путь к нему');
readln(strFileName);
assign (F, strFileName)
reset(f);
while not eof(F) do
begin
readln(F,stTemp);
inc(iStringCount);
inc(iSymbolCount,length(strTemp));
end;
close(F);
writeln ('Strings - ',iSymbolCount);
writeln ('Symbols - ',iStringCount);
readln;
end.
Дополнен 6 лет назад
на проверить работает ли она, и правильно ли работает
Лучший ответ
Может быть решить вам задачу? Я не вижу, где вы указали ответ.
Остальные ответы
Похожие вопросы
Также спрашивают