|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.04.2008, 19:11 | #1 |
Новичок
Джуниор
Регистрация: 10.03.2008
Сообщений: 1
|
текстфайл
Здравствуйте. Пишет Вам совсем зеленая по-программированию Раса. Надеюсь получить объяснения и консультации. У меня много вопросов, но начну постепенно. Вот задачка: дан текстовый файл (нпр., стишок), сосчитать все слова и вывести в другой файл. Но у меня не считает. Вот что я тут нацарапала:
program kiek_zodziu; var k : integer; f, g : text; s, ss : string; begin assign (f, 'd.txt'); reset (f); readln (f, s); k := 0; while not eoln(f) do begin read (f, ss); //writeln (s); k := k + 1; //writeln (k); end; //assign (g, 'r.txt'); //rewrite (g); //WriteLn(g, k); close (f); //close (g); writeln (ss); writeln (k); Readln; end. |
09.04.2008, 21:37 | #2 |
Пользователь
Регистрация: 22.01.2008
Сообщений: 78
|
Код:
Последний раз редактировалось Костя КС; 09.04.2008 в 22:12. |
09.04.2008, 21:53 | #3 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
eoln - конец строки. используют только в редких случаяХ!
Программирование - это великое искусство... Такое же как например и живопись!
|
10.04.2008, 09:46 | #4 |
Пользователь
Регистрация: 03.11.2007
Сообщений: 91
|
assign(f1, '1.txt');
assign(f2, '2.txt'); Reset(f1); while not EOF(f1) do readln(f1,peremennaja); Close(f1); Rewrite(f2); write(f2,peremennaja); Close(f2); Чего париться.. |
10.04.2008, 17:15 | #5 |
Пользователь
Регистрация: 22.01.2008
Сообщений: 78
|
|
10.04.2008, 19:20 | #6 |
Пользователь
Регистрация: 22.01.2008
Сообщений: 78
|
может так проще:
Код:
А эта берет по одной букве,если это пробел - значит началось следующее слово |
11.04.2008, 09:10 | #7 |
Пользователь
Регистрация: 03.11.2007
Сообщений: 91
|
Да, я твое задание не правильно понял)
|