Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.02.2009, 20:37   #1
Настенька..Блонди
Пользователь
 
Регистрация: 25.12.2008
Сообщений: 37
По умолчанию Дан текстовый файл. Вывести количество содержащихся в нем символов и строк

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




-------------В Паскале-------------
Настенька..Блонди вне форума Ответить с цитированием
Старый 10.02.2009, 20:48   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,218
По умолчанию

Настенька..Блонди, готов решить Вашу задачку всего за 300р.
Arigato вне форума Ответить с цитированием
Старый 10.02.2009, 23:56   #3
bura
Пользователь
 
Регистрация: 07.01.2009
Сообщений: 15
По умолчанию

Вроде бы правильно работает программа:
Код:
program prog1;
uses crt;
var
 F: Text;
 namefile: string[50];
 tmp: string[100];
 len: integer;
 countstr, countch: integer;
begin
 clrscr;
 write('Imya faila: ');
 readln(namefile);
 assign(F, namefile);
 reset(F);
 countstr:=0;
 countch:=0;
 while not Eof(F) do
  begin
   readln(F, tmp);
   countstr:=countstr+1;
   countch:=countch+length(tmp);
  end;
 close(F);
 writeln('Kol-vo strok v faile: ', countstr);
 writeln('Kol-vo simvolov: '  , countch);
 readln;
end.
bura вне форума Ответить с цитированием
Старый 12.02.2009, 19:23   #4
Primitiv
Пользователь
 
Регистрация: 08.02.2009
Сообщений: 10
По умолчанию

Было бы на С++ я бы помог. 300 р. ты угараешь! за такую задачу на 5 мин )))
Primitiv вне форума Ответить с цитированием
Старый 12.02.2009, 19:28   #5
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,218
По умолчанию

Цитата:
300 р. ты угараешь! за такую задачу на 5 мин
Надо ценить свой труд.
Arigato вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать текстовой файл и подсчитать количество символов в нём. GN_ Паскаль, Turbo Pascal, PascalABC.NET 4 26.05.2010 19:45
Текстовый файл. Подсчитать в нем количество слов, символов, абзацев. Xeon332 Помощь студентам 3 24.12.2009 01:23
Дан массив с текстом. Как найти в нем количество разных слов. pascal1994 Помощь студентам 5 06.02.2009 11:50
как определить какие файлы есть в папке и вывести их имена в текстовый файл Tdoctor Паскаль, Turbo Pascal, PascalABC.NET 3 04.11.2008 05:18
Определение количество символов в строке, и самих строк. Патрон Общие вопросы Delphi 10 01.04.2008 12:43