 Файлы |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Talya |
 6.04.2007 10:55
Сообщение
#1
|
|
Гость  |
Очень нужна ваша помощь! как можно решить данную задачу? Заранее огромное спасибо!
В текстовом файле подсчитать количество строк, которые начинаются и оканчиваются одной и той же буквой. |
 
|
|
  |
Ответов
| samec |
22.05.2008 20:23
Сообщение
#2
|
 Бывалый  Группа: Пользователи Сообщений: 180 Пол: Мужской Реальное имя: Юра Репутация:  1  |
надо завести три переменных типа char (ch1, ch2 и ch3 например). Сначала считываешь в первую переменную (ch1) самый первый символ строки. Приравниваешь значение второй переменной, значению первой (ch2:=ch1) Потом начинается цикл. В нём читаешь следующий символ в третью переменную (в ch3). Проверяешь, не равен ли считанный символ #13 (ch3<>#13 ???), если условие выполнено (тоесть ch3<>#13) то приравниваешь значение второй переменной, значению третьей (сh2:=ch3) и переходишь к следующей итерации цикла. Если же условие не выполнено (тоесть ch3=#13), то выходим из цикла и получаем следующее: первый символ строки - в первой переменной (ch1), последний символ строки во второй переменной (ch2). Сравниваем их, при равенстве увеличиваем счётчик и переходим к следующей строке. Затем всё повторяется от и до
 |
   |
|
Сообщений в этой теме
Talya Файлы 6.04.2007 10:55
мисс_граффити идешь по файлу, построчно считываешь...
если перва... 6.04.2007 11:12 Tan Вот о чём тебе говорит мисс_граффити :
uses crt;
C... 6.04.2007 11:21 мисс_граффити a:=Length(s);
if S[1] = S[a]
а зачем н... 7.04.2007 9:12 Tan да, я сам заметил, когда уже запостил, но не измен... 7.04.2007 11:13 sintanial Эмм вот тоже задали это же. Я её сделал сначало с ... 22.05.2008 20:01 Client А можно со строкой и переменной типа char обойтись 22.05.2008 20:44 samec вот что то подобное должно получиться:
uses crt;
... 22.05.2008 20:50
sintanial А я сделал попроще =)
var x:real; s1,s2:char; f:t... 22.05.2008 21:42 |
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 30.07.2025 4:45 |