помогите пожалуйста нечего не получается смог смастерить программу для подсчета слов в фаиле и больше нечего паскаль идет всего неделю и нужно срочно сдать задачу
Заранее спасибо
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
задача "файлы" помогите решить, задали задачку уже 8 часов голову ломаю(((( |
Vigame |
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: 0 |
вот задача
Цитата Дан текстовый файл. Считая, что количество букв в одном слове не превосходит 20, определить, сколько в файле имеется слов, состоящих из одного, двух, трех и т.д. символов. Результат вывести в другой текстовый файл. помогите пожалуйста нечего не получается смог смастерить программу для подсчета слов в фаиле и больше нечего паскаль идет всего неделю и нужно срочно сдать задачу Заранее спасибо |
Vigame |
Сообщение
#2
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: 0 |
вот сделал
Код for i:=1 to 20 do begin WriteLn(i,':',a[i]:10); Assign(g,'text2.txt'); Append(g); Write(g,i, ' - ',a[i]); Close(g); end; а как сделать чтобы в тексте выводилось с новой страки у меня вот что получилось Код 01 - 12 - 43 - 84 - 135 - 16 - 77 - 08 - 09 - 310 - 011 - 012 - 013 - 014 - 015 - 016 - 017 - 018 - 019 - 020 - 0 а мне надо Код 01 - 12 02 - 43 03 - 84 04 - 135 ..... можно такое сделать??? Добавлено через 7 мин. ура все сделал вначале ступил))))) вот код если кому интересно Код const Letters=['A'..'Z','a'..'z']; var f: file of char; g: text; a: array[1..20]of integer; i: integer; c: char; begin Assign(f,'text1.txt'); ReSet(f); i:=0; while not EoF(f) do begin Read(f,c); if c in Letters then Inc(i) else if i>0 then begin Inc(a[i]); i:=0 end end; Close(f); if c in Letters then Inc(a[i]); Assign(g,'text2.txt'); Append(g); for i:=1 to 20 do begin WriteLn(i,':',a[i]:10); Writeln(g,i, ' - ',a[i]:10); end; Close(g); end. Lapp спасибо тебе огромное если хочешь за помощь магу рублеф 50 кинуть на вебмани токо вечером |
Текстовая версия | 17.05.2024 6:00 |