IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Строки в текстовом файле., Помогите найти ошибку пожалуйста.
сообщение
Сообщение #1


lehf
**

Группа: Пользователи
Сообщений: 115
Пол: Женский

Репутация: -  4  +


Здравствуйте всем!Пожалуйста,помогите мне немного...у меня курсач звучит так:
разработать программу анализа текстового файла:определение средней длины слова в каждой строке и формирование файла средних длин построчно.Предусмотреть проверку существования файла и файла частот с выдачей диагностических сообщений.

я решила сначала составить программу для одной строки.

Код
program dddd;
var str:string;
kol,k,i,n,c,sred:real;
begin
readln(str);
n:=length (str);
i:=1;
kol:=0;
while i<=n do
begin
k:=0;
repeat
k:=k+1;
i:=i+1;
until (str[i]=' ') or (i>n);
kol:=kol+k;
i:=i+1;
end;
writeln(kol);

for i:=1 to n do
if (str[i]=' ') then c:=c+1;
if (str[1]=' ') then c:=c-1;
if str[n]=' ' then c:=c-1;
writeln(c+1);
sred:=kol/(c+1);
end.


но он выдает ошибку на until (str[i]=' ') or (i>n);,а именно на квадратной скобке tupe mismatch пишет.
Просто когда я не начинала считать среднее значение-программа шла и все верно считала.А теперь перестала.Я не могу понять,что ему не нравится. unsure.gif

и еще вопросик...не подскажите,что значит:Предусмотреть проверку существования файла и файла частот с выдачей диагностических сообщений?Проверку существования файла проверяют функцией IOResult?
А файл частот-это что такое?
Спасибо заранее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


              
kolb:=0;
kolc:=0;
for i:=1 to length(str) do
if pos(str[i],Iscl)=0 then
inc(kolb)
else
schet_slov(kolc,str);


Ты должна сделать процедуру с всего этого. Посмотри на мой процедурный вариант этой проги, там так и есть.
 writeln(f2,kolb/kolc);

Вместо этой строки поставь то, что написано здесь: Строки в текстовом файле.
Естественно изменив соответствующие переменные.
Цитата
а меня не забанят за такую "активность"?

За желание знать тут не банят. smile.gif

Сообщение отредактировано: Bokul -


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Ellsa   Строки в текстовом файле.   9.12.2006 21:22
Алена   А не нравится ему то, что I описывается, как Real,…   9.12.2006 21:48
Ellsa   А не нравится ему то, что I описывается, как Real…   9.12.2006 21:52
Ellsa   ну хотя бы просто о файле частот....хрен с ними со…   9.12.2006 22:24
мисс_граффити   со строками все просто: если ты сделаешь readln(f,…   9.12.2006 23:52
Ellsa   да нет,так написано почти у всех,у кого курсовик н…   9.12.2006 23:56
Ellsa   нет,не знаю я как избавится от ошибки 104...в поис…   10.12.2006 0:20
мисс_граффити   а зачем тебе массив, собственно? пиши сразу в резу…   10.12.2006 0:25
Ellsa   а зачем тебе массив, собственно? пиши сразу в рез…   10.12.2006 0:28
Ellsa   что-то я еще больше во всем этом запуталась.... :…   10.12.2006 0:48
Bokul   С каждым своим сообщением ты все больше запутываеш…   10.12.2006 0:55
Ellsa   я пока вот на этом остановилась: program ddd; var …   10.12.2006 1:14
Bokul   По условию я понял, что это файл-результат, куд…   10.12.2006 1:20
Ellsa   По условию я понял, что это файл-результат, куда …   10.12.2006 1:22
мисс_граффити   не вижу строчки assign(f1,чего-нибудь) и сделай но…   10.12.2006 1:43
Bokul   Вот, глянь, что я накалякал: const SourceFile=…   10.12.2006 1:48
Ellsa   program ddd; var str1,str2,imya1,imya2:string; …   10.12.2006 1:53
Bokul   Если надо, могу написать комментарии или написа…   10.12.2006 2:03
Ellsa   Bokul просто я боюсь,что она подумает,что я не сам…   10.12.2006 2:06
Bokul   :no1: А нам и на слова резать не надо, только …   10.12.2006 2:18
Ellsa   что-тоо я неочень поняла свои ошибки...только одну…   10.12.2006 2:21
Bokul   Да, его я убрал. :) Ну с ошибками я погорячи…   10.12.2006 2:32
Ellsa   Bokul черт,спасибо большое! :give_rose: А е…   10.12.2006 2:34
Bokul   То приходи еще :) Какие плюсики?   10.12.2006 2:37
мисс_граффити   к репутации :) Ellsa, ты пока что сама не можешь -…   10.12.2006 2:39
Ellsa   я приду еще с домашним заданием за весь курс.... …   10.12.2006 2:39
Bokul   А что ты вводишь и где лежит файл с данными? У …   10.12.2006 2:44
Ellsa   у тебя неправильно отработала та прога,что ты испр…   10.12.2006 2:46
Bokul   Не понял. Та, что полностью моя, работает отлич…   10.12.2006 2:54
Ellsa   спасибо.Я попробую сегодня ночью еще. :) Большое…   10.12.2006 3:01
Bokul   Вот моя прога без функций: uses crt; const Sepa…   10.12.2006 3:19
Ellsa   и все-таки знаете...никак от ошибки 104 не могу из…   10.12.2006 15:07
Bokul   Возьми мой код, или там тоже самое?   11.12.2006 0:16
Ellsa   ну ведь у тебя она шла....твоя прога работает и ра…   11.12.2006 0:45
Bokul   Так оно и есть. :) Попробуй запустить это: var …   11.12.2006 0:55
Ellsa   зачем ты пишешь readln exit и в самомо конце еще…   11.12.2006 1:01
Bokul   Делает задержку. Программа не будет выполнятся да…   11.12.2006 1:13
Ellsa   ошибку вроде твоя не выдает,но считает неправильно…   11.12.2006 1:26
Bokul   assign(f2,'c:\result.txt'); Было d, …   11.12.2006 1:35
Ellsa   просто дело в том,что цикл работал и считал правил…   11.12.2006 1:38
Bokul   :no1: Во-первых, у тебя к разделителям слов отн…   11.12.2006 2:02
Ellsa   Так что возьми мой код и не мучься. :) :cray:…   11.12.2006 2:05
Bokul   Почему не сможешь? Спрашивай что не ясно! :)   11.12.2006 2:08
Ellsa   не могу я все спрашивать...итак из исправления оши…   11.12.2006 2:10
Bokul   До этой части должно быть все понятно const Se…   11.12.2006 2:40
Ellsa   большое тебе спасибо....но боюсь это не по моим мо…   11.12.2006 2:59
Bokul   Так мы объявляем константу-строку, тоже самое, чт…   11.12.2006 3:01
Bokul   trunc - обрежет дробовую часть, а как же тогда бы…   11.12.2006 3:13
Алена   Форматированный вывод. Первая цифра отвечает за ко…   11.12.2006 3:47
Ellsa   просто букв не может быть дробное число...среднее …   11.12.2006 3:15
Bokul   Ни черта не понял... :blink:   11.12.2006 3:18
Ellsa   опять я неправа думаю. :unsure:   11.12.2006 3:43
Bokul   Точно.. В чем ты не права? Я не понял, что ты хо…   11.12.2006 4:03
Ellsa   зачем ((i-1)<>0)) ? :unsure: а нет про…   11.12.2006 4:59
Bokul   Цикл идет от 1 и до длинны строки. В следующим к…   11.12.2006 5:11
Ellsa   я правда видела.... :unsure: блин,спасибо теб…   11.12.2006 5:14
Bokul   Форум этот научил, за что ему спасибо :good: Поту…   11.12.2006 5:20
Ellsa   программа работает,но я не понимаю....опозновани…   11.12.2006 7:01
Bokul   Конечно нет. Как ты думаешь эта строка определяет…   11.12.2006 7:05
Ellsa   Конечно нет. Как ты думаешь эта строка определяет…   11.12.2006 7:06
Bokul   :good: :good: :good: Молодец! Наверно я ч…   11.12.2006 7:16
Ellsa   так...написано в твоем сообщении,что если i-тый си…   11.12.2006 7:19
Bokul   :good: Почти... убери не, тогда будет правильно…   11.12.2006 7:30
Ellsa   а почему тогда слово-то прибавляем? :blink:   11.12.2006 7:32
Bokul   Мы делаем проверку символа перед i, только чтобы б…   11.12.2006 7:40
Ellsa   черт!Я поняла! :lol: неужели в самом дел…   11.12.2006 7:50
Bokul   kolb:=0; kolc:=0; for i:=1 to leng…   11.12.2006 8:00
Ellsa   :give_rose: :blush: :applause: :respect: :re…   11.12.2006 8:10
Bokul   :good: Знаки (форматированный вывод) не главное…   11.12.2006 8:19
Ellsa   :good: Знаки (форматированный вывод) не главно…   11.12.2006 8:20


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 22:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name